VB代码全集.docx

1、VB代码全集隐藏form1： h7Nb17gSL form1.hide Xjf 6Q :+ 5o 显示form1： TVc9z form1.show RO*lGi 53Gk?4o - f#aP|VD c+,eAZ 退出程序时，弹出窗口提示是否要退出： 3#R%z=q 124FwC Private Sub Form_Unload(Cancel As Integer) w5L#Hu1; Dim iAnswer As Integer CA.k3,vPBK - 9DS3|R K (T%? 只能用任务管理器关闭程序的代码： i.ncUFM8 Private Sub From_Unload(Cancel

2、As Integer) NO.ih Cancel = true ?,|b6m,u/ End Sub SSm(b 31cZLmmT - c?e7#Ei Ywb 点击command1打开33IQ网： X-y9(|tj .M8j5YK Dim strURL ?0Zz4 e7d/EQU Private Sub Command1_Click() 9E=97 nh label1 (.caption) = label2 (.caption) zF+E:7 er67PMN 注：是变动值（被替换值） = 数据值（参考值、不变值），别搞反了。 qb4y, uG 如 label1 = 1 而不是 1 = label

3、1 PC01m7Ic oF*K1T8 - # C0+5N MKIoAEwG Open cd1.FileName For Output As #1 OpZ_EG (l Print #1, Text1.Text |9_8S& Close #1 S&5eBR& End If I8bQBX 9mJRi*O - 5kc7wo,?V 3TnjJRD 把某文本文件读取到TEXT1 !lGM=5 % rW%A/b Dim tmp$ I86p8. cd1.ShowOpen HnsInq!m If Not cd1.FileName = Then !)=$2W&ki Open cd1.FileName For In

4、put As #1 Yh5yj1.mc Close #1 BI%XA Text1 = tmp Jg$2nYh End If /L=t|KLS tavLx X - PJ; LO _s c d 点击command1弹出窗口（红色处请替换成你要的内容） P.V&,p5O Ites9 Function a() As String cDJ9Y Dim b(2) As String E3EQFe 7q b(0) = 1 $kEsB i b(1) = 2 o?PZYGP b(2) = 3 afCSN; Q Randomize AZ %I a = b(Rnd * 2) YBezzADg End Functio

5、n +rB;(FC ab,b wG Private Sub Command1_Click() v87a Label1.Caption = a IDSBzTt End Sub ,u!DU !?Gw?QQ& 删除D:1.txt： vd5(H=:l Kill D:1.txt L$ZJ i x8Hk* 7 新建文件夹D:123： Dr2/113 MkDir d:123 E&nLuU /bnOSt 复制文件，由桌面的1.txt复制到D:1.txt： %TV!/m FileCopy C:Documents and SettingsAdministrator桌面1.txt, D:1.txt 4.X?7oX_

6、8D 7_R v Jgze# App.title =这是标题 42dG#UX 在 任务管理器-程序 中此VB程序的名字，本例的标题为这是标题 y0TaDP)h Y#*jWub App.TaskVisible = False JTXnaF+ 隐藏 任务管理器 中此VB程序的名字 P1OED?3/ eXaz App.Path *b4GgdJ 此VB程序的所在文件夹路径（如程序在d:1.exe，则此值为d:，没有 ） Khg+SR 6 BwV4vQd* App.EXEName RqYoq;$) 此VB程序的文件名（如程序在d:这是程序.exe，则此值为这是程序，没有.exe） MF!V v vRK/

7、Rrx - h3l;) ) dfczvVT+ 一个小程序，类似病毒（不要运行！仅供参考）。新建工程，放入一个timer控件，改Interval值为1，然后输入以下代码即可： LMb,SWT Iu4E=%A X=2$_BI ;jMG Private Sub Form_Load() Cu |j= App.Title = .o3qc9H- App.TaskVisible = False Q$7/Kq FileCopy App.Path & & App.EXEName & .exe, C:Documents and SettingsAdministrator开始菜单程序启动 & App.EXEName

8、 & .exe r= X V_ End Sub IlD 2 C2!QPl 6Qun+MV Private Sub Timer1_Timer() U&C X Form1.Show =$#5Ohr: End Sub 6 PIh(- 用Mid$命令超速字符串添加操作 大家都知道，&操作符的执行速度是相当慢的，特别是处理长字符串时。当必须重复地在同一变量上附加字符时，有一个基于Mid$命令的技巧可以使用。基本思路就是：预留一个足够长的空间存放操作的结果。下面是应用这个技术的一个例子。假设要建立一个字符串，它要附加从1开始的10000个整数：1 2 3 4 5 6 7 . 999910000。下面是最简

9、单的实现代码：res = For i = 1 to 10000: res = res & Str(i): Nextface=宋体代码虽然简单，但问题也很明显：Res变量将被重分配10000次。下面的代码实现同样的目的，但效果明显好转：Dim res As StringDim i As LongDim index As Long预留足够长的缓冲空间res = Space(90000)指针变量，指出在哪里插入字符串index = 1循环开始For i = 1 to 10000substr = Str(i)length = Len(substr)填充字符串的相应区间段数值Mid$(res, inde

10、x, length) = substr调整指针变量index = index + lengthNext删除多余字符res = Left$(res, index - 1)测试表明：在一个333MHz的计算机上，前段代码执行时间为2.2秒，后者仅仅为0.08秒！代码虽然长了些，可是速度却提高了25倍之多。呵呵，由此看来：代码也不可貌相啊从头开始删除集合项目删除集合中的所有内容有许多方法，其中有些非常得迅速。来看看一个包含10,000个项目的集合：Dim col As New Collection, i As LongFor i = 1 To 10000 col.Add i, CStr(i)Next

11、可以从末尾位置为起点删除集合内容，如下：For i = col.Count To 1 Step -1col.Remove iNext也可以从开始位置为起点删除集合内容，如下：For i = 1 To col.Count Step 1col.Remove iNextface=宋体试验证明，后者要快于前者百倍多，比如0.06秒比4.1秒。原因在于：当引用接近末尾位置的集合项目时，VB必须要从第1个项目开始遍历整个的项目链。 face=宋体更有趣的是，如果集合项目的数量加倍，那么从末尾开始删除与从头开始删除，前者要比后者花费的时间将成倍增长，比如前者是24秒，后者可能为0.12秒这么短！最后提醒您：

12、删除集合的所有内容的最快方法就是毁灭它，使用下面的语句： Set col = New Collection对于一个包含20,000个项目的集合，上述操作仅仅耗时0.05秒，这比使用最快的循环操作进行删除也要快2倍左右。用InStr函数实现代码减肥 可以采用旁门左道的方式使用Instr函数实现代码的简练。下面是一个典型的例子，检测字符串中是否包含一个元音字母：1、普通的方法：If UCase$(char) = A Or UCase$(char) = E Or UCase$(char) = I Or UCase$(char) = O Or UCase$(char) = U Then it is a

13、 vowelEnd If2、更加简练的方法：If InStr(AaEeIiOoUu, char) Then it is a vowelEnd If同样，通过单词中没有的字符作为分界符，使用InStr来检查变量的内容。下面的例子检查Word中是否包含一个季节的名字： 1、普通的方法：If LCase$(word) = winter Or LCase$(word) = spring Or LCase$(word) = _ summer Or LCase$(word) = fall Then it is a seasons nameEnd If2、更加简练的方法：If Instr(;winter;s

14、pring;summer;fall;, ; & word & ;) Then it is a seasons nameEnd If有时候，甚至可以使用InStr来替代SelectCase代码段，但一定要注意参数中的字符数目。下面的例子中，转换数字0到9的相应英文名称为阿拉伯数字： 1、普通的方法：Select Case LCase$(word)Case zeroresult = 0Case oneresult = 1Case tworesult = 2Case threeresult = 3Case fourresult = 4Case fiveresult = 5Case sixresult

15、 = 6Case sevenresult = 7Case eightresult = 8Case nineresult = 9End Select2、更加简练的方法：result = InStr(;zero;one;two;three;four;five;six;seven;eight;nine;, _; & LCase$(word) & ;) 6精用Boolean表达式，让代码再减肥当设置基于表达式结果的Boolean型数值时，要避免使用多余的If/Then/Else语句结果。比如：If SomeVar SomeOtherVar ThenBoolVal = TrueElseBoolVal =

16、 FalseEnd If上面这段代码就很烦琐，它们完全可以使用下面的一行代码来替代：BoolVal = (SomeVar SomeOtherVar)括号不是必须的，但可以增加可读性。根据表达式中的操作数不同，后者比前者执行起来大约快50%到85%。后者中的括号对速度没有影响。有时，使用这个技术实现代码的简练并非很明显。关键是要牢记：所有的比较操作结果或者是0（false），或者是1（True）。所以，下面例子中的2段代码是完全相同的，但是第2段要运行得快些：1、传统方法： If SomeVar SomeOtherVar Thenx = x + 1End If2、更简练的方法x = x - (S

17、omeVar SomeOtherVar)函数名巧做局部变量很多程序员都没有认识到在函数本身中使用函数名的妙处，这就象对待一个局部变量一样。应用这个技巧可以起到临时变量的作用，有时还能加速程序运行。看看下面的代码：Function Max(arr() As Long) As LongDim res As Long, i As Longres = arr(LBound(arr)For i = LBound(arr) + 1 To UBound(arr)If arr(i) res Then res = arr(i)NextMax = resEnd Function去掉res变量，使用函数名称本身这个

18、局部变量，可以使程序更加简练：Function Max(arr() As Long) As LongDim i As LongMax = arr(LBound(arr)For i = LBound(arr) + 1 To UBound(arr)If arr(i) Max Then Max = arr(i)NextEnd Function火眼识破隐藏的Variant变量如果没有用As语句声明变量，默认类型就是Variants，比如：Dim name this is a variant或者，当前模块下没有声明Option Explicit语句时，任何变量都是Variants类型。许多开发者，特别是

19、那些先前是C程序员的人，都会深信下面的语句将声明2个Interger类型变量：Dim x, y As Integer而实际上，x被声明为了variant类型。由于variant类型变量要比Integer类型慢很多，所以要特别注意这种情况。正确的一行声明方法是：Dim x As Integer, y As IntegerGoSub在编译程序中速度变慢编译为本地代码的VB应用程序中，如果使用 GoSubs 命令，就会比通常的 Subs 或者 Function 调用慢5-6倍；相反，如果是p-code模式，就会相当快。减少DoEvents语句的数量不要在代码中放置不必要的DoEvents语句，尤其是

20、在时间要求高的循环中。遵循这个原则，至少能在循环中的每N次反复时才执行DoEvents语句，从而增强效率。比如使用下面的语句：If (loopNdx Mod 10) = 0 Then DoEvents如果只是使用DoEvents来屏蔽鼠标以及键盘操作，那么就可以在事件队列中存在待处理项目时调用它。通过API函数GetInputState来检查这个条件的发生：Declare Function GetInputState Lib user32 Alias GetInputState () As Long .If GetInputState() Then DoEvents为常量定义合适的类型VB在内

21、部使用最简单、最可能的数据类型保存符号数值，这意味着最通常的数字类型比如0或者1都按照Integer类型存储。如果在浮点表达式中使用这些常量，可以通过常量的合适类型来加速程序运行，就象下面的代码： value# = value# + 1#.这个语句强迫编译器按照Double格式存储常量，这样就省却了运行时的隐含转换工作。还有另外的一种处理方法就是：在常量声明时就进行相应类型的定义，代码如下：Const ONE As Double = 1And、Or和Xor：让我们来优化表达式要检测一个整数值的最高有效位是否有数值，通常要使用如下的代码（有二种情况：第一组If判断表明对Integer类型，第二组对Long类型）：If intvalue And &H8000 Then most significant bit is setEnd IfIf lngvalue And &H80000000 Then most signifi