-
从头开始删除集合项目 日期:2009-12-30 15:42:36 点击:1 好评:0
删除集合中的所有内容有许多方法,其中有些非常得迅速。来看看一个包含10,000个项目的集合: DimcolAsNewCollection,iAsLong Fori=1To10000 col.Addi,CStr(i) Next 可以从末尾位置为起点删除集合内容,...
-
精用Boolean表达式,让代码再减肥 日期:2009-12-30 15:42:36 点击:2 好评:0
当设置基于表达式结果的Boolean型数值时,要避免使用多余的If/Then/Else语句结果。比如: IfSomeVarSomeOtherVarThen BoolVal=True Else BoolVal=False EndIf 上面这段代码就很烦琐,它们完全可以使用下面...
-
用InStr函数实现代码减肥 日期:2009-12-30 15:42:36 点击:2 好评:0
可以采用“旁门左道”的方式使用Instr函数实现代码的简练。下面是一个典型的例子,检测字符串中是否包含一个元音字母: 1、普通的方法: IfUCase$(char)="A"OrUCase$(char)="E"OrUCase$(char)="I...
-
函数名巧做局部变量 日期:2009-12-30 15:42:36 点击:1 好评:0
很多程序员都没有认识到“在函数本身中使用函数名”的妙处,这就象对待一个局部变量一样。应用这个技巧可以起到临时变量的作用,有时还能加速程序运行。看看下面的代码: Fun...
-
减少DoEvents语句的数量 日期:2009-12-30 15:42:36 点击:2 好评:0
不要在代码中放置不必要的DoEvents语句,尤其是在时间要求高的循环中。遵循这个原则,至少能在循环中的每N次反复时才执行DoEvents语句,从而增强效率。比如使用下面的语句: If(loo...
-
GoSub在编译程序中速度变慢 日期:2009-12-30 15:42:36 点击:1 好评:0
...
-
And、Or和Xor:让我们来优化表达式 日期:2009-12-30 15:42:36 点击:1 好评:0
要检测一个整数值的最高有效位是否有数值,通常要使用如下的代码(有二种情况:第一组If判断表明对Integer类型,第二组对Long类型): IfintValueAndH8000Then mostsignificantbitisset EndIf Iflng...
-
善用AssumeNoAliasing编译选项 日期:2009-12-30 15:42:36 点击:1 好评:0
据说,如果过程能够2次或多次引用同样的内存地址,那么过程就会包含别名数值。一个典型的例子如下: Dimg_GlobalVariableAsLong ... SubProcWithAliases(xAsLong) x=x 1 g_GlobalVariable=g_GlobalVariable 1...
-
为常量定义合适的类型 日期:2009-12-30 15:42:36 点击:0 好评:0
VB在内部使用最简单、最可能的数据类型保存符号数值,这意味着最通常的数字类型-比如0或者1-都按照Integer类型存储。如果在浮点表达式中使用这些常量,可以通过常量的合适类型...
-
重定义编译DLL文件的基地址 日期:2009-12-30 15:42:36 点击:3 好评:0
许多VB开发者都知道应该在工程属性对话框的“编译”功能页面中定义一个DLL基地址数值。这不同于工程中任何其他DLL或OCX的基地址。 当操作没有源代码的编译DLL或者OCX文件时,可以使...
-
Friend过程快于Public过程 日期:2009-12-30 15:42:36 点击:2 好评:0
你可能会非常惊奇:Friend类型过程的执行速度要明显快于Public类型。这可以通过创建一个带有Private类和Public类(设定Instancing=MultiUse)的ActiveXEXE工程看到,在2个类模块中添加下面的代码:...
-
基于Win95的VB5串口通信程序 日期:2009-12-30 15:42:36 点击:1 好评:0
----VisualBasic5.0(以下简称VB)以其简单易学、32位面向对象的程序设计等特点,倍受广大计算机开发者的青睐,已泛地应用于各个领域;在实时监测系统中串行端口通信是一项基础功能,因...
-
使用VB获取网上邻居里的计算机名 日期:2009-12-30 15:42:36 点击:0 好评:0
OptionExplicit PrivateConstRESOURCE_CONNECTEDAsLong=H1 PrivateConstRESOURCE_GLOBALNETAsLong=H2 PrivateConstRESOURCE_REMEMBEREDAsLong=H3 PrivateConstRESOURCEDISPLAYTYPE_DIRECTORY=H9 PrivateConstRESOURCEDISPLAYTYPE_DOMAIN=H1 PrivateConstRESOUR...
-
用VB设计聚焦框程序 日期:2009-12-30 15:42:36 点击:4 好评:0
什么是聚焦框?在Windows中是这样解释的:当某个按钮被按下或某个控件正在使用时,由一个长方形的虚线框聚焦在此按钮或控件上来提示用户它正起作用。但是并非所有的控件在任何时...
-
制作带有动画和声音的屏幕保护程序 日期:2009-12-30 15:42:36 点击:0 好评:0
利用VB5.0和WINDOWS95自身所带的“画笔”就可以制作出带有动画和声音的屏幕保护程序。画面是一只蝴蝶在音乐的伴奏下飞动,碰动屏幕的边缘就会向小球反弹一样换个方向飞。这里需要两...
-
建立无模式窗口 日期:2009-12-30 15:42:36 点击:2 好评:0
makeanewproject;twoforms onform1acommandbutton putthecodeintherightplaces pressF5 SubForm2_load() intheform2_loadevent besuretomaketheform2smallerthenform1! lngOrigParenthWnd=SetWindowWord(Me.hwnd,-8,mdiMain.hwnd) EndSub PrivateSubForm_Unloa...
-
利用VB产生屏幕变暗的效果 日期:2009-12-30 15:42:36 点击:5 好评:0
想利用VB编程实现屏幕变暗的效果(像关闭Win95时的效果),只要按下面的步骤来做: 1.在Form1中加入两个CommandButton和一个PictureBox. 2.在Form1的代码窗口中添加以下代码: PrivateTypeRECT Lef...
-
桌面屏幕翻转 日期:2009-12-30 15:42:36 点击:3 好评:0
PrivateDeclareFunctionGetDesktopWindowLib"user32"()AsLong PrivateDeclareFunctionGetDCLib"user32"(ByValhwndAsLong)AsLong PrivateDeclareFunctionStretchBltLib"gdi32"_ (ByValhdcAsLong,_ ByValxAsLong,_ ByValyAsLong,_ ByValnWidthAsLong,_ ByValnHei...
-
动态改变屏幕设置 日期:2009-12-30 15:42:36 点击:0 好评:0
我们经常看到许多Win95的应用程序(尤其是游戏)在运行它的时候改变屏幕的设置,运行完后恢复,在VB中,我们可以用以下方法实现: -定义 PrivateDeclareFunctionlstrcpy_ Lib"kernel32"Alias"lstr...
-
在VisualBasic中终止Windows95 日期:2009-12-30 15:42:36 点击:2 好评:0
在VisualBasic程序中,可以使用WindowsAPI函数来重新启动计算机系统,文本介绍如何退出Windows95并关闭计算机系统。 #关闭计算机系统 可以使用WindowsAPI的ExitWindowsEx函数来从VisualBasic程序中重...