杜勇科普网 http://blog.china.com:80/u/080105/110864/ 计算机科普知识，医学科普知识，杂七杂八 shandashu shandashu VB自学教材——VisualBasic语句大全及详解 http://blog.china.com:80/u/080105/110864/200806/2818017.html <![CDATA[ <DIV align=center><FONT color=#ff0000 size=5>作者：杜勇</FONT></DIV> <P>　　VisualBasic是微软公司推出的简单易学、功能强大编程工具，是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，使用VB能轻而易举地开发适合在Windows环境下各类应用程序。<BR>　　语句是程序的基本功能单位，每条语句都有确切的含义，能完成一定的任务。熟练掌握语句，是开发应用程序的基础。VB共有语句77个，这里给出72个，另外5个由于很少用到没有给出，它们是Width#语句，设置文件的输出行宽度。Implements语句，指定要在包含该语句的类模块中实现的接口或类。其余3个用于声明Property过程的名称，参数以及构成其主体的代码，PropertyGet语句，该Property过程获取一个属性的值；PropertyLet语句，该Property过程给一个属性赋值；PropertySet语句，该Property过程设置一个对象引用。<BR><FONT color=#ff0000>点击相关语句看详细内容</FONT></P> <TABLE borderColor=#f2f2f2 cellSpacing=1 cellPadding=4 width="100%" align=center border=1> <TBODY> <TR> <TD width="25%" bgColor=#fafafa height=20> <DIV align=center><FONT color=#cc3333>语句</FONT></DIV></TD> <TD width="75%" bgColor=#fafafa height=20> <DIV align=center><FONT color=#cc3333>描述</FONT></DIV></TD></TR> <TR> <TD width="25%" bgColor=#ffffff height=20><A href="http://duyongkepu.blog.china.com/200806/2817891.html" target=_blank>AppActivate语句</A></TD> <TD width="75%" bgColor=#ffffff height=20>激活其它应用程序。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2817864.html" target=_blank>Beep语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>通过计算机喇叭发出声音。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2817838.html" target=_blank>Call语句</A></TD> <TD width="75%" height=20>调用一个子程序或函数。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2817818.html" target=_blank>ChDir语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>改变当前的路径(目录或文件夹)。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2817801.html" target=_blank>ChDrive语句</A></TD> <TD width="75%" height=20>改变当前的驱动器。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2817784.html" target=_blank>Close语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>关闭用Open语句打开的文件。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2817758.html" target=_blank>Const语句</A></TD> <TD width="75%" height=20>声明常量。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2817743.html" target=_blank>Date语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>设置当前系统日期。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2817672.html" target=_blank>Declare语句</A></TD> <TD width="75%" height=20>用于在模块或窗体中声明对动态链接库(DLL)中外部过程的引用，在引用API函数时经常用到。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2817645.html" target=_blank>Deftype语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>在模块或窗体，为变量和传给过程的参数，设置缺省数据类型，以及为其名称以指定的字符开头的Function和PropertyGet过程，设置返回值类型。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2817633.html" target=_blank>DeleteSetting语句</A></TD> <TD width="75%" height=20>删除指定的Windows注册表的子键。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2817626.html" target=_blank>Dim语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>声明局部变量并分配存储空间。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2817614.html" target=_blank>Do...Loop语句</A></TD> <TD width="75%" height=20>循环语句，有两种变形，一种是当条件为True时，重复执行一个语句块中的命令。另一种重复执行一个语句块中的命令，直到条件变为True时。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2817605.html" target=_blank>End语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>结束程序、过程或语句。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2817590.html" target=_blank>Enum语句</A></TD> <TD width="75%" height=20>定义枚举类型。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2817582.html" target=_blank>Erase语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>重新初始化大小固定的数组的元素，以及释放动态数组的存储空间。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2817538.html" target=_blank>Error语句</A></TD> <TD width="75%" height=20>模拟错误的发生。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2817525.html" target=_blank>Event语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>定义用户自定义的事件。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2817512.html" target=_blank>Exit语句</A></TD> <TD width="75%" height=20>提前退出控制结构、循环或过程的语句体。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2817502.html" target=_blank>FileCopy语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>复制一个文件。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2817489.html" target=_blank>For...Next语句</A></TD> <TD width="75%" height=20>以指定次数来重复执行一组语句。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2817476.html" target=_blank>ForEach...Next语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>针对一个数组或集合中的每个元素，重复执行一组语句。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2786532.html" target=_blank>Function语句</A></TD> <TD width="75%" height=20>声明Function过程的名称，参数以及构成其主体的代码。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2786528.html" target=_blank>Get语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>将一个已打开的磁盘文件读入一个变量之中。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2786495.html" target=_blank>GoSub...Return语句</A></TD> <TD width="75%" height=20>在一个过程中跳到另一个子程序中执行，执行后再返回。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=27><A href="http://duyongkepu.blog.china.com/200806/2786490.html" target=_blank>GoTo语句</A></TD> <TD width="75%" bgColor=#fafafa height=27>无条件地转移到过程中指定的行。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2786480.html" target=_blank>If...Then...Else语句</A></TD> <TD width="75%" height=20>条件语句，根据表达式的值有条件地执行一组语句。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2786461.html" target=_blank>Input#语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>从已打开的顺序文件中读出数据并将数据指定给变量。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2786452.html" target=_blank>Kill语句</A></TD> <TD width="75%" height=20>删除磁盘文件。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2786444.html" target=_blank>Let语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>将表达式的值赋给变量或属性。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2786435.html" target=_blank>LineInput#语句</A></TD> <TD width="75%" height=20>从已打开的顺序文件中读出一行并将字符串变量指定给变量。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2786428.html" target=_blank>Load语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>把窗体或控件加载到内存中。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2786370.html" target=_blank>Lock，Unlock语句</A></TD> <TD width="75%" height=20>锁定或解锁用Open语句打开的全部文件或一部分文件，控制其它进程是否可以修改文件。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2786359.html" target=_blank>LSet语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>将某字符串插入到另一字符串变量的最左边，或是将一用户定义类型变量复制到另一用户自定义类型变量。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2786344.html" target=_blank>Mid语句</A></TD> <TD width="75%" height=20>用另一个字符串中指定数量的字符替换Variant或String变量中的字符。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=31><A href="http://duyongkepu.blog.china.com/200806/2786334.html" target=_blank>MkDir语句</A></TD> <TD width="75%" bgColor=#fafafa height=31>创建一个新的目录或文件夹。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2786324.html" target=_blank>Name语句</A></TD> <TD width="75%" height=20>重新命名一个文件、目录或文件夹。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2786300.html" target=_blank>On...GoSub、On...GoTo语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>根据表达式的值，转到特定行执行。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2786292.html" target=_blank>OnError语句</A></TD> <TD width="75%" height=20>启动一个错误处理程序并指定该子程序在一个过程中的位置；也可用来禁止一个错误处理程序。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2786280.html" target=_blank>Open语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>打开磁盘文件。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2786247.html" target=_blank>OptionBase语句</A></TD> <TD width="75%" height=20>在模块或窗体级别中使用，用来声明数组下标的缺省下界。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2786240.html" target=_blank>OptionCompare语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>在模块或窗体级别中使用，用于声明字符串比较时所用的缺省比较方法。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2786235.html" target=_blank>OptionExplicit语句</A></TD> <TD width="75%" height=20>在模块或窗体级别中使用，强制显式声明模块或窗体中的所有变量。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2786231.html" target=_blank>OptionPrivate语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>强制声明某个模块为该模块所属工程的私有模块。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2786229.html" target=_blank>Print#语句</A></TD> <TD width="75%" height=20>将格式化显示的数据写入顺序文件中。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2786227.html" target=_blank>Private语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>在模块或窗体级别中使用，用于声明私有变量及分配存储空间。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2786224.html" target=_blank>Public语句</A></TD> <TD width="75%" height=20>在模块或窗体级别中使用，用于声明全局变量（公用变量）和分配存储空间。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2786220.html" target=_blank>Put语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>将一个变量的数据写入磁盘文件中。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2786205.html" target=_blank>RaiseEvent语句</A></TD> <TD width="75%" height=20>引发在一个类、窗体、或者文档中的模块级中声明的一个事件。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2786202.html" target=_blank>Randomize语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>初始化随机数发生器。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2786199.html" target=_blank>ReDim语句</A></TD> <TD width="75%" height=20>在过程级别中使用，用于为动态数组变量重新分配存储空间。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2786197.html" target=_blank>Rem语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>注释语句。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2786191.html" target=_blank>Reset语句</A></TD> <TD width="75%" height=20>关闭所有用Open语句打开的磁盘文件。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2786187.html" target=_blank>Resume语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>在On...Error的错误处理程序或On...GoSub的特定程序区段结束后，恢复原先的运行。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2786186.html" target=_blank>RmDir语句</A></TD> <TD width="75%" height=20>删除一个存在的目录或文件夹。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2786185.html" target=_blank>RSet语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>在一字符串变量中将一字符串往右对齐。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2785059.html" target=_blank>SavePicture语句</A></TD> <TD width="75%" height=20>将窗体或控件中的图形保存到文件中。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2785049.html" target=_blank>SaveSetting语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>在Windows注册表中保存或建立应用程序项目。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2785039.html" target=_blank>Seek语句</A></TD> <TD width="75%" height=20>在Open语句打开的文件中，设置下一个读/写操作的位置。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2785033.html" target=_blank>SelectCase语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>多分支语句。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2785024.html" target=_blank>SendKeys语句</A></TD> <TD width="75%" height=20>将一个或多个按键消息发送到活动窗口，就如同在键盘上进行输入一样。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2785000.html" target=_blank>Set语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>将对象引用赋给变量或属性。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2785016.html" target=_blank>SetAttr语句</A></TD> <TD width="75%" height=20>为一个文件设置属性信息。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2784989.html" target=_blank>Static语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>在过程级别中使用，用于声明变量并分配存储空间。在整个代码运行期间都能保留使用Static语句声明的变量的值。通俗的讲，就是声明静态变量。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2784930.html" target=_blank>Stop语句</A></TD> <TD width="75%" height=20>暂停执行。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2784917.html" target=_blank>Sub语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>声明子过程的名称，参数，以及构成其主体的代码。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2784909.html" target=_blank>Time语句</A></TD> <TD width="75%" height=20>设置系统时间。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2784901.html" target=_blank>Type语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>在模块级别中使用，用于定义包含一个或多个元素的用户自定义的数据类型。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2784883.html" target=_blank>Unload语句</A></TD> <TD width="75%" height=20>从内存中卸载窗体或控件。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2784874.html" target=_blank>While...Wend语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>只要指定的条件为True，则会重复执行一系列的语句。</TD></TR> <TR> <TD width="25%" height=20><A href="http://duyongkepu.blog.china.com/200806/2784867.html" target=_blank>With语句</A></TD> <TD width="75%" height=20>在一个单一对象或一个用户定义类型上执行一系列的语句。</TD></TR> <TR> <TD width="25%" bgColor=#fafafa height=20><A href="http://duyongkepu.blog.china.com/200806/2784852.html" target=_blank>Write#语句</A></TD> <TD width="75%" bgColor=#fafafa height=20>将数据写入顺序文件。</TD></TR></TBODY></TABLE>]]> 星期五, 13 六月 2008 14:59:14 GMT http://blog.china.com:80/u/080105/110864/200806/2818017.html 2008-06-13T14:59:14Z VB语句详解——AppActivate语句 http://blog.china.com:80/u/080105/110864/200806/2817891.html <![CDATA[ <P align=center><FONT color=#ff0000 size=5>作者：杜勇</FONT></P> <P>描述：激活其它应用程序。<BR>一、语法：<BR>AppActivate　title[,wait]<BR>AppActivate语句的语法具有以下几个命名参数：</P> <TABLE borderColor=#e2f2f2 cellSpacing=1 cellPadding=4 width="100%" align=center border=1> <TBODY> <TR> <TD> <DIV align=center>部分</DIV></TD> <TD> <DIV align=center>描述</DIV></TD></TR> <TR> <TD>title</TD> <TD>必需的。字符串表达式，所要激活的应用程序的名称。常使用Shell函数返回的任务识别码来替换title，以激活应用程序</TD></TR> <TR> <TD>wait</TD> <TD>可选的。Boolean值，取值为True/False。说明在激活另一个应用程序之前调用的应用程序是否有焦点。如果为False（缺省），那么，即使调用的应用程序没有焦点，也直接激活指定的应用程序。如果为True，则调用的应用程序会等到有焦点后，才激活指定的应用程序</TD></TR></TBODY></TABLE> <P>二、说明：<BR>　　AppActivate语句不能打开应用程序，只能激活应用程序（使其变成活动窗口）。在使用AppActivate语句时必须打开应用程序，否则程序会报错。所以通常先用Shell函数启动一个应用程序，然后使用AppActivate语句激活。</P> <P>三、应用举例：<BR>　　本例使用AppActivate语句来激活Microsoft Excel。建立一个标准工程，在窗体上添加一个命令按钮，将下面的程序粘贴过去。<BR>Private Sub Command1_Click()<BR>　AppActivate "Microsoft EXCEL" '激活Microsoft Excel。<BR>End Sub<BR>　　首先打开Microsoft Excel，然后运行程序，单击命令按钮，你将看到Excel变成活动窗体。<BR>　　下面示例用Shell函数启动Microsoft Excel，然后用AppActivate语句来激活Microsoft Excel。在运行程序前，首先找到Microsoft Excel的路径，并关闭Excel。<BR>　　在上面的标准工程中，用下面的程序替换上面的程序，并把路径换成你电脑中Microsoft Excel的路径，然后运行程序，单击命令按钮，你将看到Excel被打开并被激活。<BR>Private Sub Command1_Click()<BR>　Dim MyAppID<BR>　MyAppID = Shell("C:\Program Files\Microsoft Office\Office\EXCEL.EXE", 1)<BR>　'运行Microsoft Excel。<BR>　AppActivate MyAppID '激活Microsoft Excel。<BR>End Sub </P>]]> 星期五, 13 六月 2008 14:53:51 GMT http://blog.china.com:80/u/080105/110864/200806/2817891.html 2008-06-13T14:53:51Z VB语句详解——Beep语句 http://blog.china.com:80/u/080105/110864/200806/2817864.html <![CDATA[ <P align=center><FONT color=#ff0000 size=5>作者：杜勇</FONT></P> <P>描述：通过计算机喇叭发出声音。<BR>一、语法：<BR>Beep </P> <P>二、说明：<BR>　　呼叫的频率与时间长短取决于硬件和系统软件，并随计算机不同而不同。</P> <P>三、应用举例：<BR>　　在调试程序时，有时需要在发生错误时发出音响。本例在程序运行时，如果某一步发生错误，则转到错误处理入口，使用Beep语句让计算机发出响声，同时MsgBox函数将提示错误。<BR>　　建立一标准工程，在窗体上添加一命令按钮，将下面的程序粘贴过去。<BR>Private Sub Command1_Click()<BR>On Error GoTo ErrorHandler '发生错误转到错误处理入口<BR>　MsgBox "程序运行"<BR>　Exit Sub '程序运行完毕，没有错误退出程序<BR>　ErrorHandler: '错误处理入口<BR>　Beep '发出声响。<BR>　MsgBox "出错"<BR>End Sub<BR>　　单击命令按钮，MsgBox显示"程序运行"。<BR>　　现在加入一条错误的激活Microsoft Excel语句，程序如下：<BR>Private Sub Command1_Click()<BR>　On Error GoTo ErrorHandler '发生错误转到错误处理入口<BR>　AppActivate "EXCEL.EXE" '错误语句。<BR>　MsgBox "程序运行"<BR>　Exit Sub '程序运行完毕，没有错误退出程序<BR>　ErrorHandler: '错误处理入口<BR>　Beep '发出声响。<BR>　MsgBox "出错"<BR>End Sub <BR>　　单击命令按钮，MsgBox显示"出错"，计算机喇叭发出声音。<BR>　　误区：有些教材用下面的示例使用Beep语句让计算机连续响三声，实际上计算机在运行下面的程序时只能响一声，原因是计算机的运行速度远比计算机喇叭发出声音的速度快。<BR>Dim I<BR>　For I = 1 To 3 '循环3次。<BR>　Beep '发出一声。<BR>Next I </P>]]> 星期五, 13 六月 2008 14:52:38 GMT http://blog.china.com:80/u/080105/110864/200806/2817864.html 2008-06-13T14:52:38Z VB语句详解——Call语句 http://blog.china.com:80/u/080105/110864/200806/2817838.html <![CDATA[ <P align=center><FONT color=#ff0000 size=5>作者：杜勇</FONT></P> <P>描述：将控制权转移到一个Sub过程，Function过程，通俗的讲就是调用一个子程序或函数。<BR>一、语法：<BR>[Call]name[argumentlist]<BR>Call语句的语法包含下面部分：</P> <TABLE borderColor=#e2f2f2 cellSpacing=1 cellPadding=4 width="100%" align=center border=1> <TBODY> <TR> <TD> <DIV align=center>部分</DIV></TD> <TD> <DIV align=center>描述</DIV></TD></TR> <TR> <TD>call</TD> <TD>可选参数；关键字。如果指定了这个关键字，则参数必须加上括号，例如：Call MyProc(0)</TD></TR> <TR> <TD>name (过程名)</TD> <TD>必要参数，要调用的过程名称</TD></TR> <TR> <TD>argumentlist(参数列表)</TD> <TD>可选参数，传递给过程的变量、数组或表达式的列表，各参数间以逗号隔开。Argumentlist的每个参数都可以加上关键字ByVal或ByRef，来描述被调用的过程将如何处理这些参数。</TD></TR></TBODY></TABLE> <P>二、说明：<BR>　　调用一个过程时，并不一定要使用Call关键字。如果使用Call关键字来调用一个需要参数的过程，argumentlist就必须要加上括号。<BR>　　Call name(argumentlist)<BR>　　如果省略了Call关键字，那么也必须要省略argumentlis外面的括号。<BR>　　Name argumentlist<BR>　　如果需要函数的返回值，则应先定义一个变量，然后将函数的返回值赋予变量，这时虽然省略了Call关键字，但argumentlist也必须要加上括号。如下面的格式：<BR>　　Dim str As String<BR>　　str = name(argumentlist)<BR>　　若要将整个数组传给一个过程，使用数组名，然后在数组名后加上空括号。<BR>　　有时为了方便，可用公有变量传递参数。</P> <P>三、应用举例：<BR>　　下列示例示范如何使用Call语句来调用子过程。建立一个标准工程，在窗体上添加一命令按钮和一个文本框，将下面的程序粘贴过去。<BR>Private Sub Command1_Click()<BR>　Call procedure<BR>End Sub</P> <P>Private Sub procedure()<BR>　Dim a '定义变量<BR>　a = Date '取日期<BR>　Text1.Text = a<BR>End Sub<BR>　　单击命令按钮，Text1显示日期。<BR>　　下列示例示范如何使用省略了Call关键字来调用函数，并根据返回值决定程序是否继续运行。还在上面的这个标准工程里，用下面的程序替换上面程序中的第一部分。<BR>Private Sub Command1_Click()<BR>　Dim str As String '定义变量<BR>　str = MsgBox("是否继续运行", vbYesNo + vbExclamation, Me.Caption)<BR>　If str = vbNo Then Exit Sub<BR>　procedure<BR>End Sub<BR>　　单击命令按钮后MsgBox函数提示“是否继续运行”，单击‘否’退出程序，Text1无变化；单击‘是’运行后面的程序，Text1显示日期。</P>]]> 星期五, 13 六月 2008 14:51:18 GMT http://blog.china.com:80/u/080105/110864/200806/2817838.html 2008-06-13T14:51:18Z VB语句详解——ChDir语句 http://blog.china.com:80/u/080105/110864/200806/2817818.html <![CDATA[ <P align=center><FONT color=#ff0000 size=5>作者：杜勇</FONT></P> <P>描述：改变当前的路径(目录或文件夹)。<BR>一、语法：<BR>ChDir　path<BR>path(路径名)为必要参数，它是一个字符串表达式，指明将改变到哪个路径(目录或文件夹)。 </P> <P>二、说明：<BR>　　如果改变的路径不在当前的驱动器上，则应输入包括驱动器在内的完整路径，如：<BR>　　ChDir "f:\talltree\yyglclient\help"<BR>　　上移一层目录采用下面的格式：<BR>　　ChDir".."<BR>注意：path必须为有效路径，否则系统会报错。</P> <P>三、应用举例：<BR>　　本示例使用ChDir语句来改变当前路径，建立一标准工程，在窗体上添加一命令按钮，一个文本框和一个文件列表框(FileListBox)，将下面的程序粘贴过去。<BR>Private Sub Command1_Click()<BR>　ChDir Text1.Text<BR>　File1.Path = Text1.Text<BR>End Sub<BR>　　在文本框里输入一个完整路径，然后单击命令按钮，文件列表框将显示这个路径下的全部文件。 </P>]]> 星期五, 13 六月 2008 14:50:09 GMT http://blog.china.com:80/u/080105/110864/200806/2817818.html 2008-06-13T14:50:09Z VB语句详解——ChDrive语句 http://blog.china.com:80/u/080105/110864/200806/2817801.html <![CDATA[ <P align=center><FONT color=#ff0000 size=5>作者：杜勇</FONT></P> <P>描述：改变当前的驱动器。<BR>一、语法：<BR>ChDrive　drive<BR>drive(驱动器名)为必需参数，它是一个字符串表达式，指明将改变到哪个驱动器。如果使用零长度的字符串("")，则当前的驱动器将不会改变。</P> <P>二、应用举例：<BR>　　本示例使用ChDrive语句来改变当前的驱动器。建立一标准工程，在窗体上添加一命令按钮，一个文本框和一个目录列表框(DirListBox)，将下面的程序粘贴过去。<BR>Private Sub Command1_Click()<BR>　ChDrive Text1.Text<BR>　Dir1.Path = Text1.Text<BR>End Sub<BR>　　在文本框里输入一个完整路径，然后单击命令按钮，目录列表框将显示这个驱动器的名称，点击目录列表框右边的箭头，可以看到这个驱动器下的全部一级文件夹。 </P>]]> 星期五, 13 六月 2008 14:49:08 GMT http://blog.china.com:80/u/080105/110864/200806/2817801.html 2008-06-13T14:49:08Z VB语句详解——Close语句 http://blog.china.com:80/u/080105/110864/200806/2817784.html <![CDATA[ <P align=center><FONT color=#ff0000 size=5>作者：杜勇</FONT></P> <P>描述：关闭用Open语句打开的输入/输出(I/O)文件。<BR>一、语法：<BR>Close[filenumberlist]<BR>filenumberlist(文件号列表)为可选参数，它是一个或多个文件号，其中filenumber为任何有效的文件号。如果是多个文件号，个文件号之间用逗号隔开，语法如下：<BR>[[#]filenumber1][,[#]filenumber2]...</P> <P>二、说明：<BR>　　若省略filenumberlist，则将关闭Open语句打开的所有活动文件。文件被关闭后，相关联的缓冲区空间被释放，文件与其文件号之间的关联也将终结。</P> <P>三、应用举例：<BR>　　本示例使用Close语句来关闭为Output而打开的文件。建立一个标准工程，在窗体上添加一命令按钮，将下面的程序粘贴过去。<BR>Private Sub Command1_Click()<BR>　Open "a.txt" For Output As #1 '打开文件。<BR>　Print #1, "文件被打开。" '将字符串写入文件。<BR>　Close '将已打开的文件关闭。<BR>End Sub<BR>　　运行程序，单击命令按钮。我们会发现程序新建了一个名为“a”的文本文件，“文件被打开。”已经写入导文本里。 </P>]]> 星期五, 13 六月 2008 14:48:04 GMT http://blog.china.com:80/u/080105/110864/200806/2817784.html 2008-06-13T14:48:04Z VB语句详解——Const语句 http://blog.china.com:80/u/080105/110864/200806/2817758.html <![CDATA[ <P align=center><FONT color=#ff0000 size=5>作者：杜勇</FONT></P> <P>描述：声明常量。<BR>一、语法：<BR>[Public|Private]Const　constname[As　type]=expression<BR>Const语句的语法包含下面部分：</P> <TABLE borderColor=#e2f2f2 cellSpacing=1 cellPadding=4 width="100%" align=center border=1> <TBODY> <TR> <TD> <DIV align=center>部分</DIV></TD> <TD> <DIV align=center>描述</DIV></TD></TR> <TR> <TD>public</TD> <TD>可选的。该关键字用于在模块级别中声明该常量为全局的（公用的），也就是说在所有模块和窗体中都可以使用的常量。该关键字在窗体中不能使用。</TD></TR> <TR> <TD>private</TD> <TD>可选的。该关键字用于在模块或窗体级声明该常量为局部的，即只能在包含该声明的模块或窗体中使用的常量。不能在过程中使用。</TD></TR> <TR> <TD>constname</TD> <TD>必需的。有效的常量名；遵循标准的变量命名约定。</TD></TR> <TR> <TD>type</TD> <TD>可选的。常量的数据类型；可以是VB变量的各种类型。所声明的每个常量都要使用一个单独的As类型子句。</TD></TR> <TR> <TD>expression</TD> <TD>必需的。文字，其它常量，或由除Is之外的任意的算术操作符和逻辑操作符所构成的任意组合。</TD></TR></TBODY></TABLE> <P>二、说明：<BR>　　对于程序中多次出现的数值、文字等最好使用常量，这样在程序运行时不易出错。常量可以使程序更具可读性，以及易于修改。<BR>　　在缺省情况下常量是局部的。在Sub、Function或Property过程中声明的常量都是该过程的局部常量，在类模块声明的常量也是局部的。在标准模块中，可以用Public关键字来声明常量为全局的。<BR>　　可以在一行中声明若干个常量，使用逗号将每个常量赋值分开。用这种方法声明常量时，如果使用了Public或Private关键字，则该关键字对该行中所有常量都有效。</P> <P>三、应用举例：<BR>　　该示例使用Const语句来声明常量。Public常量在标准模块的通用部分声明，而不是在类模块中声明。Private常量可以在任何模块类型的通用部分声明。<BR>Const Pai = 3.14 '缺省情况下常量是局部的。<BR>Public Const MyStr = "你好" '声明全局常量。<BR>Private Const vbGrayed As Integer = 2 '声明局部的整数常量。<BR>Const MyStr = "你好", Pai As Double = 3.14 '在一行中声明多个常量。 </P>]]> 星期五, 13 六月 2008 14:46:44 GMT http://blog.china.com:80/u/080105/110864/200806/2817758.html 2008-06-13T14:46:44Z VB语句详解——Date语句 http://blog.china.com:80/u/080105/110864/200806/2817743.html <![CDATA[ <P align=center><FONT color=#ff0000 size=5>作者：杜勇</FONT></P> <P>描述：设置当前系统日期。<BR>一、语法：<BR>Date=date<BR>Date的格式为#mm/dd/yyyy#，日期两边用#，不能用双引号(“”)。对于运行Microsoft　Windows98的系统，要设置的日期必须介于1980年1月1日与2099年12月31日之间。对于运行Microsoft　WindowsNT的系统，日期必须介于公元1980年1月1日到2079年12月31日之间。</P> <P>二、应用举例：<BR>　　本示例使用Date语句来设置系统日期。在开发环境中，日期原义会根据系统的地区设置，以短式日期格式显示。建立一标准工程，在窗体上添加一命令按钮，将下面的程序粘贴过去。<BR>Private Sub Command1_Click()<BR>　Date = #11/6/2007# '设置系统日期。<BR>End Sub<BR>　　单击命令按钮，这时系统日期将改变到你指定的日期。 </P>]]> 星期五, 13 六月 2008 14:45:44 GMT http://blog.china.com:80/u/080105/110864/200806/2817743.html 2008-06-13T14:45:44Z VB语句详解——Declare语句 http://blog.china.com:80/u/080105/110864/200806/2817672.html <![CDATA[ <P align=center><FONT color=#ff0000 size=5>作者：杜勇</FONT></P> <P>描述：用于在模块或窗体中声明对动态链接库(DLL)中外部过程的引用，在引用API函数时经常用到。<BR>一、语法：<BR>语法1<BR>[Public|Private]Declare　Sub　name　Lib"libname"[Alias"aliasname"][([arglist])]<BR>语法2<BR>[Public|Private]Declare　Function　name　Lib"libname"[Alias"aliasname"][([arglist])][As　type]<BR>Declare语句的语法包含下面部分：</P> <TABLE borderColor=#e2f2f2 cellSpacing=1 cellPadding=4 width="100%" align=center border=1> <TBODY> <TR> <TD> <DIV align=center>部分</DIV></TD> <TD> <DIV align=center>描述</DIV></TD></TR> <TR> <TD>Public</TD> <TD>可选的。用于声明其引用是全局的（公用的），也就是说该引用的过程在整个工程中都可以使用。Public只能在模块中声明。</TD></TR> <TR> <TD>Private</TD> <TD>可选的。用于声明其引用是局部的，也就是说只能在该声明所在的模块或窗体中使用。</TD></TR> <TR> <TD>Sub或Function</TD> <TD>可选的（但二者必须选其一）。Sub表示该过程没有返回值；Function表示该过程会返回一个可用于表达式的值。</TD></TR> <TR> <TD>Name</TD> <TD>必需的。为合法的过程名。</TD></TR> <TR> <TD>Lib</TD> <TD>必需的。Declare的子句。</TD></TR> <TR> <TD>Libname</TD> <TD>必需的。所声明过程的动态链接库名或代码资源名。</TD></TR> <TR> <TD>Alias</TD> <TD>可选的。表示将被调用的过程在动态链接库(DLL)中还有另外的名称。当动态链接库的过程与同一范围内的公用变量、常数或任何其它过程的名称相同时，可以使用这个参数。</TD></TR> <TR> <TD>Aliasname</TD> <TD>可选的。动态链接库或代码资源中的过程名。如果首字符不是数字符号(#)，则aliasname是动态链接库中该过程的入口处的名称。如果首字符是(#)，则随后的字符必须指定该过程的入口处的顺序号。</TD></TR> <TR> <TD>Arglist</TD> <TD>可选的。代表调用该过程时需要传递的参数列表。</TD></TR> <TR> <TD>Type</TD> <TD>可选的。Function过程返回值的数据类型；可以是VB变量的各种类型、用户定义类型或对象类型，不支持定长的String。</TD></TR></TBODY></TABLE> <P>arglist参数的语法以及语法各个部分如下：<BR>[Optional][ByVal|ByRef][ParamArray]varname[()][As　type]</P> <TABLE borderColor=#e2f2f2 cellSpacing=1 cellPadding=4 width="100%" align=center border=1> <TBODY> <TR> <TD> <DIV align=center>部分</DIV></TD> <TD> <DIV align=center>描述</DIV></TD></TR> <TR> <TD>Optional</TD> <TD>可选的。表示参数不是必需的。如果使用该选项，则arglist中的后续参数都必需是可选的，而且必须都使用Optional关键字声明。</TD></TR> <TR> <TD>ByVal</TD> <TD>可选的。表示该参数按值传递。</TD></TR> <TR> <TD>ByRef</TD> <TD>可选的。表示该参数按地址传递，是缺省选项。</TD></TR> <TR> <TD>ParamArray</TD> <TD>可选的。只用于arglist的最后一个参数，表示最后的参数是一个Variant元素的Optional的数组。使用ParamArray关键字可以提供任意数目的参数。ParamArray关键字不能与ByVal、ByRef或Optional一起使用。</TD></TR> <TR> <TD>Varname</TD> <TD>必需的。代表传给该过程的参数的变量名；遵循标准的变量命名约定。</TD></TR> <TR> <TD>()</TD> <TD>对数组变量是必需的。指明varname是一个数组。</TD></TR> <TR> <TD>Type</TD> <TD>可选的。传递给该过程的参数的数据类型；可以是VB变量的各种类型、用户定义类型或对象类型，不支持定长的String。</TD></TR></TBODY></TABLE> <P>二、说明：<BR>　　如果引用API函数，可以从API Text Viewer直接将声明复制过来，方法是在程序菜单里选择Microsoft Visual Studio 6.0——Microsoft Visual Studio 6.0 Tools——API Text Viewer，在API Viewer的File菜单里点击Load Text File，打开WIN32API。选择你需要的API函数，添加到Selectde Items里，但要注意根据需要选择Public或Private，然后单击复制。<BR>　　对Function过程而言，过程的数据类型决定其返回值的数据类型。可以在arglist之后使用As子句来指定函数返回值的数据类型。在arglist中，可以使用As子句来指定任何传给该过程的参数的数据类型。<BR>注意：在Declare语句的参数表中不能使用定长的字符串；只能用变长的字符串。</P> <P>三、应用举例：<BR>　　该示例演示如何在使用Declare语句来声明API函数，使某一窗体保持在前面。建立一标准工程，将窗体改名为FrmMain。在窗体上添加一命令按钮，将下面的程序粘贴过去。<BR>Private Sub Command1_Click()<BR>　FrmFore.Show '显示第二个窗体<BR>End Sub<BR>　　在工程上添加一个窗体，改名为FrmFore。在窗体上添加两个命令按钮，将下面的程序粘贴过去。<BR>Option Explicit</P> <P>Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long '声明API函数</P> <P>Private Sub Command1_Click()<BR>　Dim rtn<BR>　rtn = SetWindowPos(FrmFore.hwnd, -1, 0, 0, 0, 0, 3)<BR>　Me.Caption = "窗体在前"<BR>End Sub</P> <P>Private Sub Command2_Click()<BR>　Dim rtn<BR>　rtn = SetWindowPos(FrmFore.hwnd, -2, 0, 0, 0, 0, 3)<BR>　Me.Caption = "活动窗体"<BR>End Sub<BR>　　在工程(Project)菜单打开属性对话框，在对话框中的Starup Object选择FrmMain，然后点击确定。<BR>　　运行程序时，出现的是第一个窗体，单击显示辅窗体，第二个窗体出现，位于第一个窗体前面。我们分三步来演示这个程序：<BR>一、单击第一个窗体，则第一个窗体到第二个窗体的前面，再单击第二个窗体，第二个窗体又到了前面。<BR>二、这时单击第二个窗体的命令按钮1，然后单击第一个窗体，那么我们可以看到，第一个窗体只被激活，但第二个窗体始终在第一个窗体的前面。<BR>三、最后单击第二个窗体的命令按钮2，此时的情况如同第一步。 </P>]]> 星期五, 13 六月 2008 14:40:48 GMT http://blog.china.com:80/u/080105/110864/200806/2817672.html 2008-06-13T14:40:48Z