Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function SetWindowText Lib "user32" Alias "Set

 常用API的数据类型和数据结构含义对照API的数据类型和数据结构函数命名规则： 函数名由一个动词后接一个名词组成，其中动词和名词的第一个字母必须大写。数据类型：数据类型 含 义 WORD 16位无符号整数 LONG 32位有符号整数 DWORD 无符号长整数 HANDLE 用作句柄的32位整数 HWND 用作窗口句柄的32位整数 UINT 32

建一个模块 Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As LongPublic Type OPENFILENAME lStructSize As Long hw

建立两个formPrivate Sub Form_Load()'隐藏窗体Me.Visible = False'拷贝控件到系统目录FileCopy App.Path & "/test.dll", "C:/windows/system32/VbTest.dll"'注册Dll'/u——反注册控件'/s——不管注册成功与否，均不显示提示框'/c——控制台输出'/i——跳过控件的选项进行安装(与注册不同)'/n——不注册控件，此选项必须与/i选项一起使用Shell "r

<br />Private Sub Command1_Click()If Dir("d:/test.txt") = "" Then MsgBox "不存在"Else MsgBox "存在"End IfEnd Sub

<br />ByVal 与 ByRef(默认值) <br />这两个是子过程的参数传递时,指定参数按什么传递的 <br />ByVal(按值传递) <br />ByRef(按地址传递) <br />具体这样来理解: <br />过程中的参数列表,我们称形参 <br />调用过程时的参数列表,我们称实参 <br /><br />在调用时,我们要将实参的值传递给形参,这样过程才能拿这些数据参与计算并实现一些功能 <br />那么在传递的过程中,就存在这两种传递方式 <br />传值时(ByVal),是先给形参开