vb句型.docVIP

VB句型整理 目录： 常用句型 运行（exe，文件夹，网面） 删除文件（夹） 新建、复制文件（夹） 文件（夹）存在？ 忽略错误 停止运行 导出到文本 确认对话框 改变字体颜色 自身名称、路径 开机自启 窗体类 窗体置前 打开子窗体 隐藏运行 定议数据类型 显示动态图片gif 按钮类 1.保存图片 文本类 数字截取 切换文本框焦点 读入txt文件 全选文本 计时器 下拉列表 1.获取文件清单到下拉列表 系统类 读取文件修改时间 释放子程序 复制剪切板 结束进程 读取计算机名、开机时间 透时窗体 快捷键 生成随机数 延时 常用句型 运行（可执行文件、文件夹、网页） Shell (App.Path /极品时刻表.exe) Shell Explorer.exe F:\My File\常用句型 Shell Explorer.exe / 删除(文件、文件夹) Kill c:\windows\极品时刻表.exe.exe Shell cmd /c rd E:\test /q /s, 0 在引用中添加microsoft sriptsing runtimer Dim fso As New FileSystemObject 首先声明一个FSO对象： fso.DeleteFolder (F:\复件VB教程), True 获取文件夹大小 Dim fso1 As New FileSystemObject Dim folder1 As Folder Set folder1 = fso1.GetFolder(F:\CAM gerber) MsgBox folder1.Size \ 1024 \ 1024 MB 新建、复制（文件、文件夹） Mkdir (“c:\temp”) FileCopy E:\123.exe, C:\123.exe ‘文件 Createobject (“scripting.filesystemobject”).copyfolder “c:\temp”, “d:\temp” ‘文件夹 Shell xcopy E:\temp C:\genesis\fw\jobs\temp\ /e /c /y, 0 ‘文件夹 文件（夹）是否存在 If Dir(C:\windows\path.db) = Then If Dir(\\ed-04\share, vbDirectory) Then 5. 忽略错误 On Error Resume Next On Error GoTo bug .............. 可能发生错误的语句 On Error GoTo 0 关闭错误陷阱 6. 停止执行 Exit sub 7. 导出（列印）到记事本txt Open C:\windows\path.db For Output As #1 替换写入 Print #1, App.Path \ App.EXEName .exe Print #1, \\ed-04\share\靶距计算.exe Close #1 Open C:\windows\path.db For Append As #1 替换写入 Print #1, App.Path \ App.EXEName .exe Print #1, \\ed-04\share\靶距计算.exe Close #1 8. 确认对话框 a = MsgBox(你确定要清空数据吗?, vbYesNo) If a = vbYes Then xt1.Text = End If 9. 变字的颜色 Private Sub Command10_Click() CommonDialog1.ShowColor Rtb.ForeColor = CommonDialog1.Color End Sub 10. 自身路径（不含后缀） App.Path： App.exename 11. 自启动: Dim a As String a = Environ(USERPROFILE) If Dir(a \「开始」菜单\程序\启动\ App.EXEName .exe) = Then SetAttr a \「开始」菜单\程序\启动, 0 FileCopy App.Path \ App.EXEName .exe, a \「开始」菜单\程序\启动\ App.EXEName .exe SetAttr a \「开始」菜单\程序\启动, vbSystem + vbHidden End If 二、窗体类 1. 窗体置前 Private Declare Function SetWind