在VB中，相对于本身的潜在功能，LIKE可能是最被忽视的一个操作符了。它的最基本用途是检查一个字符串与给定样式的匹配程度。比如，很容易检查一个产品ID号是否由一个字母以及3个数字组成： If ProductID Like "[A-Za-z][0-9][0-9][0-9]" Then Print "OK" ' this is equi...

2008-02-23 06:39:59

有一个简单但仍未发现的技巧可用于在TreeView控件中装载多个节点，或者在ListView控件中装载多个ListItems。这种方法要比传统做法快。先看看下面这个传统方法： For i = 1 To 5000 TreeView1.Nodes.Add , , , "Node " i Next 改进一下，代替重复引用TreeView1对象的Node...

2008-02-23 06:39:59

读写数组中的元素速度通常都慢于访问一个简单变量，因此，如果在一个循环中要重复使用同一数组元素值，就应该分配数组元素值到临时变量中并使用这个变量。下面举一个例子，检测整数数组中是否存在重复项： Function AnyDuplicates(intArray() As Integer) As Boolean '...

2008-02-23 06:39:57

当要应用一个控件的字体到另一控件时，最直接的方法就是直接赋值： Set Text2.Font = Text1.Font 但多数情况下这种方法并不奏效，因为这实际上是将同一字体的引用分配给了2个控件。换言之，当随后修改其中之一控件的字体时，另外一个控件也受到影响。因此，要实现我们...

2008-02-23 06:39:57

不要在代码中放置不必要的DoEvents语句，尤其是在时间要求高的循环中。遵循这个原则，至少能在循环中的每N次反复时才执行DoEvents语句，从而增强效率。比如使用下面的语句： If (loopNdx Mod 10) = 0 Then DoEvents 如果只是使用DoEvents来屏蔽鼠标以及键盘操作，那么...

2008-02-23 06:39:56

当要处理字符串中的每一个字符时，可以将字符串赋值到一个byte数组中进行操作。要记住：每一个Unicode字符对应双字节。这种方法通常要快许多，因为节省了大量的Mid$函数操作以及大量的临时字符串空间。下面的代码是统计字符串中空格数目的最快方法 Dim b() as Byte, co...

2008-02-23 06:39:55

读取text文件的最快方法是使用Input$函数，就象下面的过程： Function FileText (filename$) As String Dim handle As Integer handle = FreeFile Open filename$ For Input As #handle FileText = Input$(LOF(handle), handle) Close #handle End Function 使用上述方...

2008-02-23 06:39:54

固定长度字符串的处理速度通常慢于可变长度字符串，这是因为所有的VB字符串函数和命令只能识别可变长度字符串。因此，所有固定长度字符串比然被转换为可变长度字符串。 但是，由于固定长度字符串数组占据着一块连续的内存区域，因此在被分配以及释放时，速度明显快于可...

2008-02-23 06:39:53

要检测一个整数值的最高有效位是否有数值，通常要使用如下的代码（有二种情况：第一组If判断表明对Integer类型，第二组对Long类型）： If intValue And H8000 Then ' most significant bit is set End If If lngValue And H80000000 Then ' most significant bit is se...

2008-02-23 06:39:53

在VB6中，无需离开开发环境就可以创建新的SQL Server和Oracle表。方法很简单：打开DataView窗口，用鼠标右键单击数据库的表文件夹，再选择新表格菜单命令。 当处理相似表格时，就是说具有许多相同字段的表格，我们完全可以在很短的时间内容完成设定操作。具体步骤是：...

2008-02-23 06:39:51