解决方案 »
- 再次请教关于一句汇编代码在VB中的写法
- DataGrid行屬性是什么?
- 请教一个字体的怪问题,各位多帮忙.[关于将字体设成小五号与设成10号的区别]
- 数据库连接问题,很郁闷!!!
- MscComm通信时ComEventFrame的问题
- 用TreeView1.SetFocus出现“无效的过程或参数调用”!?
- 紧急求救:各位大虾,怎样在vb中把系统的beep声音给屏蔽掉?
- vb中怎么末编写存储过程
- 大家来讨论一下,使用第三方控件好还是自己编程实现好?
- Application.WorksheetFunction 简写
- 关于上午EXCEL的VBA.AppActivate的代码。
- System.Drawing.SizeF(8.0!, 16.0!)中的感叹号什么意思?
这行代码犯了VB效率的3个大忌
1.字符串&
2.IIF()
3.数字转字符要想速度快
1.open时用binary方式,get/put时不要逐字节读(我习惯64K一组读入)
2.比较时直接比较数字,不要把数字转换成16进制去比较,比较数字比字符串要快很多
3.少用函数嵌套,套得越多,速度越慢以上...
Dim i As Long
For i = 0 To 3
GetText2 = GetText2 & right("0" & Hex(a(i)),2)
doevents
Next
End Function