1、#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 = label1 PC01m7Ic oF*K1T8 - # C0+5N MKIoAEwG Open cd1.FileName For Output As #1
2、OpZ_EG (l Print #1, Text1.Text |9_8S&Close #1 S5eBR&End If I8bQBX 9mJRi*O - 5kc7wo,?V 3TnjJRD 把某文本文件读取到TEXT1 !lGM=5 % rW%A/b Dim tmp$ I86p8. cd1.ShowOpen HnsInq!m Then !)=$2W&ki Open cd1.FileName For Input As #1 Yh5yj1.mc Close #1 BI%XA Text1 = tmp Jg$2nYh End If /L=t|KLS tavLx X - PJ; LO _s c d 点击c
3、ommand1弹出窗口(红色处请替换成你要的内容) 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 Function +rB;(FC ab,b wG Private Sub Command1_Click() v8!?Gw?QQ& 删除D:1.txt: vd5(H=:l Kill L$ZJ i x8Hk* 7
4、新建文件夹123 Dr2/113 MkDir d: E&nLuU7oX_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程序的文件名
5、(如程序在“d:这是程序.exe”,则此值为“这是程序”,没有“.exe”) MF!V v vRK/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 &.exeDocuments and
6、SettingsAdministrator开始菜单程序启动 r= X V_ End Sub IlD 2 C2!QP6Qun+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、7 . 999910000。下面是最简单的实现代码: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)填充字符串的相应
8、区间段数值Mid$(res, index, 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
9、.Add i, CStr(i)可以从末尾位置为起点删除集合内容,如下:For i = col.Count To 1 Step -1col.Remove i也可以从开始位置为起点删除集合内容,如下:For i = 1 To col.Count Step 1试验证明,后者要快于前者百倍多,比如0.06秒比4.1秒。原因在于:当引用接近末尾位置的集合项目时,VB必须要从第1个项目开始遍历整个的项目链。 SomeOtherVar ThenBoolVal = TrueElseBoolVal = False上面这段代码就很烦琐,它们完全可以使用下面的一行代码来替代:BoolVal = (SomeVar S
10、omeOtherVar)括号不是必须的,但可以增加可读性。根据表达式中的操作数不同,后者比前者执行起来大约快50%到85%。后者中的括号对速度没有影响。有时,使用这个技术实现代码的简练并非很明显。关键是要牢记:所有的比较操作结果或者是0(false),或者是1(True)。所以,下面例子中的2段代码是完全相同的,但是第2段要运行得快些:1、传统方法: If SomeVar x = x + 12、更简练的方法x = x - (SomeVar 函数名巧做局部变量很多程序员都没有认识到“在函数本身中使用函数名”的妙处,这就象对待一个局部变量一样。应用这个技巧可以起到临时变量的作用,有时还能加速程序运
11、行。看看下面的代码: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)Max = resEnd Function去掉res变量,使用函数名称本身这个局部变量,可以使程序更加简练:Max = arr(LBound(arr) Max Then Max = arr(i)火眼识破隐藏的Variant变量如果没有用As语句声明变量,默认类型就是Varian
12、ts,比如:Dim name this is a variant或者,当前模块下没有声明Option Explicit语句时,任何变量都是Variants类型。许多开发者,特别是那些先前是C程序员的人,都会深信下面的语句将声明2个Interger类型变量:Dim x, y As Integer而实际上,x被声明为了variant类型。由于variant类型变量要比Integer类型慢很多,所以要特别注意这种情况。正确的一行声明方法是:Dim x As Integer, y As IntegerGoSub在编译程序中速度变慢编译为本地代码的VB应用程序中,如果使用 GoSubs 命令,就会比通常
13、的 Subs 或者 Function 调用慢5-6倍;相反,如果是p-code模式,就会相当快。减少DoEvents语句的数量不要在代码中放置不必要的DoEvents语句,尤其是在时间要求高的循环中。遵循这个原则,至少能在循环中的每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在内部使用最简单、最可能的数据类型保存符号数值,这意味着最通常的数字类型比如0或者1都按照Integer类型存储。如果在浮点表达式中使用这些常量,可以通过常量的合适类型来加速程序运行,就象下面的代码: value# = va
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1