- 获取局域网内所有的域和工作组
- 简介： 获取局域网内所有的域和工作组 下载地址 点这里下载 上一篇： 获取本机及其名和Ip地址（使用Winsock控件） 下一篇： 播放Gif动画（使用WebBrowse控件）...
- 作者：west263.com发表于：2008-02-23 查阅全文...
- 使用"$-类型"字符串函数会更快
- VB官方文档似乎很鼓励使用"无$"类字符串函数，比如：Left、LTrim或者UCase，而不是实现同样功能的Left$、LTrim$和UCase$函数。但是我们必须认识到：前者返回variant类型的数值，当用于字符串表达式中时，最终必须要转换为字符串（string）类型。 因此，在严格要求时间...
- 作者：west263.com发表于：2008-02-23 查阅全文...
- 精用Boolean表达式，让代码再减肥
- 当设置基于表达式结果的Boolean型数值时，要避免使用多余的If/Then/Else语句结果。比如： If SomeVar SomeOtherVar Then BoolVal = True Else BoolVal = False End If 上面这段代码就很烦琐，它们完全可以使用下面的一行代码来替代： BoolVal = (SomeVar SomeOtherVar)...
- 作者：west263.com发表于：2008-02-23 查阅全文...
- VB中OLE调用的优化方法
- VB5.0中大量使用OLE，对象的正确使用对于开发一个高效的应用程序是非常关键的。因此，笔者想谈一谈OLE调用的优化。 一、利用WITH语句减少重复调用。 为了设置单个对象的多个特性，可以使用WITH END WITH减少激活引用链设置特性的次数，在这种情况下，甚至不需要定义对象...
- 作者：west263.com发表于：2008-02-23 查阅全文...
- 使用ObjPtr检测2个对象变量是否指向同一对象
- 判断2个对象变量释放指向同一对象的方法是使用Is操作符，代码如下： If obj1 Is obj2 Then ... 但当2个对象是同一类型时，或者指向同一个二级接口时，我们就可以利用ObjPtr（）函数对代码进行一些优化处理： If ObjPtr(obj1) = ObjPtr(obj2) Then ... 后者的执行速度将...
- 作者：west263.com发表于：2008-02-23 查阅全文...
- 善用"Assume No Aliasing"编译选项
- 据说，如果过程能够2次或多次引用同样的内存地址，那么过程就会包含别名数值。一个典型的例子如下： Dim g_GlobalVariable As Long ... Sub ProcWithAliases(x As Long) x = x 1 g_GlobalVariable = g_GlobalVariable 1 End Sub 如果传递给这个过程g_GlobalVariable变...
- 作者：west263.com发表于：2008-02-23 查阅全文...
- 妙用Replace函数替代字符串连接操作符
- 你大概不知道Replace函数还能这么用吧？比如下面的语句： MsgBox "Disk not ready." VBCr vbCr "Please check that the diskette is in the drive" vbCr "and that the drive's door is closed." 可以看出，为了显示完整的字符串含义，要将可打印字符与非打印字符（比...
- 作者：west263.com发表于：2008-02-23 查阅全文...
- 为常量定义合适的类型
- VB在内部使用最简单、最可能的数据类型保存符号数值，这意味着最通常的数字类型－比如0或者1－都按照Integer类型存储。如果在浮点表达式中使用这些常量，可以通过常量的合适类型来加速程序运行，就象下面的代码： value# = value# 1#. 这个语句强迫编译器按照Double格...
- 作者：west263.com发表于：2008-02-23 查阅全文...
- 快速找到选中的OptionButton
- OptionButton控件经常是作为控件数组存在的，要快速找到其中的哪一个被选中，可以使用下面的代码： '假设控件数组包含3个OptionButton控件 intSelected = Option(0).Value * 0 - Option(1).Value * 1 - Option(2).Value * 2 注意，因为第一个操作数总是0，所以上述代码...
- 作者：west263.com发表于：2008-02-23 查阅全文...
- 无闪烁地快速附加字符串到TextBox控件
- 附加文本到TextBox或者RichTextBox控件的通常方法是在当前内容上连接上新的字符串： Text1.Text = Text1.Text newString 但还有一个更快的方法，并且会减少连接操作的闪烁感，代码如下： Text1.SelStart = Len(Text1.Text) Text1.SelText = newString 上一篇： 创建新...
- 作者：west263.com发表于：2008-02-23 查阅全文...
- 用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...
- 作者：west263.com发表于：2008-02-23 查阅全文...
- 火眼识破隐藏的Variant变量
- 如果没有用As语句声明变量，默认类型就是Variants，比如： Dim name ' this is a variant 或者，当前模块下没有声明Option Explicit语句时，任何变量都是Variants类型。 许多开发者，特别是那些先前是C程序员的人，都会深信下面的语句将声明2个Interger类型变量： Dim x...
- 作者：west263.com发表于：2008-02-23 查阅全文...
- 函数名巧做局部变量
- 很多程序员都没有认识到“在函数本身中使用函数名”的妙处，这就象对待一个局部变量一样。应用这个技巧可以起到临时变量的作用，有时还能加速程序运行。看看下面的代码： Function Max(arr() As Long) As Long Dim res As Long, i As Long res = arr(LBound(arr)) For i...
- 作者：west263.com发表于：2008-02-23 查阅全文...
- 从头开始删除集合项目
- 删除集合中的所有内容有许多方法，其中有些非常得迅速。来看看一个包含10,000个项目的集合： Dim col As New Collection, i As Long For i = 1 To 10000 col.Add i, CStr(i) Next 可以从末尾位置为起点删除集合内容，如下： For i = col.Count To 1 Step -1 col.Remove...
- 作者：west263.com发表于：2008-02-23 查阅全文...
随机推荐
热门关注
- VB创建多线程应用程序
- VB程序中如何处理随机事件
- 如何实现VB程序登录密码加密
- 通信控件MSComm使用详解
- 已知三角形三边长度求面积
- VB里实现帮助文件速成
- VB Access设计图书管理系统
- Visual Basic中DataCombo 和
- 用VB设计MSN信息群发软件
- 去掉窗体的关闭按钮
- Visual Basic变态用法之函数
- 使用SetWindowLong改变窗口
- VB编程步步高－打印篇（二）
- Visual Basic里与Print有关
- 演示快速排序算法
- 从html中分析提取链接(url)
- 简单介绍Visual Basic中的Do
- 在VB中利用UDP协议编写聊天
- 在Visual Basic中使用WinSoc
- 如何把Excel文件转换成mdb数
