痛并快乐着

静态一维数组Dim 数组名（下标） [As 类型]说明：（1）下标必须为常数，不可以为表达式或变量。（2）下标下界最小为-32768，最大上界为32767。（3）省略下界，其默认值为为0，一维数组的大小为：上界-下界+1。静态多维数组Dim 数组名（下标1[，下标2…]） [As 类型]说明：（1）下标个数决定数组的维数，最多60维。（2）数组的大小=每一维

　　什么是一个高效的软件？一个高效的软件不仅应该比实现同样功能的软件运行得更快，还应该消耗更少的系统资源。这篇文章汇集了作者在使用VB进行软件开发时积累下来的一些经验，通过一些简单的例子来向你展示如何写出高效的VB代码。其中包含了一些可能对VB程序员非常有帮助的技术。在开始之前，先让我陈清几个概念。 　　让代码一次成型：在我接触到的程序员中，有很多人喜欢先根据功能需求把代码写出来，然后在此基础

1.字符串函数 长度与分析用datalength(Char_expr) 返回字符串包含字符数,但不包含后面的空格 substring(expression,start,length) 不多说了,取子串 right(char_expr,int_expr) 返回字符串右边int_expr个字符字符操作类 upper(char_expr) 转为大写 lower(char_ex

　　虽然WindowsXP的界面非常华丽。但是令人遗憾的是，我们用VB写的程序除了菜单和窗口的外观是XP风格外，其他控件还是一如既往的是普通风格。我想，有的程序在XP下有XP的风格，VB也一定有办法实现XP的风格。后来笔者在网上看到一篇介绍XML的文章，又在网上找到了一篇实现XP风格的文章，经过自己的实践，终于找到了VB程序实现XP风格的办法。为了使其他的网友不至于走像我这样的多的弯路，将此办法写

　　任何数据类型的数组都需要20个字节的内存空间，加上每一数组维数占4个字节，再加上数据本身所占用的空间。数据所占用的内存空间可以用数据元数目乘上每个元素的大小加以计算。例如，以 4 个 2 字节之 Integer 数据元所组成的一维数组中的数据，占 8 个字节。这 8 个字节加上额外的 24 个字节，使得这个数组所需总内存空间为 32 个字节。变量与常量：必须以字母或汉字开头，由字母、汉字、

Visual：指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象添加到屏幕上即可。 Basic：指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，一种在计算技术发展历史上应用得最为广泛的语言。Visual Basic 在原有 BASIC 语言的基础上进一步发

1、如果一行程序太长，查阅起来很麻烦，能不能换行？ VB的程序代码是允许换行书写的，只要在每次换行的最后一个字符加上换行字符“_”就可以了。例如： Sub PicMove() Frm.Picture2.Left = Frm.Picture1.Left + _ ’加上换行符 Frm.Picture1.WidthEnd Sub2、如何在设计的时候清空存在的图片？用鼠标点中该图片，在属性窗口

Inet控件支持HTTP与FTP两种通讯协议。利用这个控件可以完成许多功能。我们通过例子来看看。环境VB6+WINXP打开VB6,新建工程添加部件Microsoft Internet Transfer Controls.在form中添加2个按钮，2个文本框和Inet控件代码如下:Option Explicit’这段代码使用了GetHeader来返回页面信息，比较

文件的打开与读写Open “文件名” For 模式 As [#] 文件号 [Len=记录长度]模式：（1）顺序访问模式OutPut：打开一个文件，将对该文件进行写操作。Input：打开一个文件，将对该文件进行读操作。Append：打开一个文件，将在该文件末尾追加记录。-----写数据：其中的[输出列表]一般指用逗号，分隔的数值或字符串表达式。Write #与Print

窗体事件Initialize：初始化应用程序，设置初始化的变量值，在应用程序的生命周期内只触发一次，在窗体Load事件之前被触发。Load：窗体装载，将缺省值赋给窗体和该窗体中的控件，该事件可发生多次。Activate：激活事件，Load事件加载完后不能马上捕捉用户的操作，需要激活事件。QueryUnload：查询卸载。Unload：卸载窗体，将该窗体占用的资源归还给操作系统。

　　先引用Mcrsoft DAO 3.6(或2.5或3.51) Object Library和Mcrsoft Access 9.0 Object Library，在Form上加个Command1,粘贴以下代码： Private Sub Command1_Click()　　Dim wrkDefault As Workspace　　Dim dbsNew As Database　　Dim tdf

Dim strinp As StringDim msgint As IntegerDim intlen As Integerstrinp = InputBox("请输入您要查询的IMEI", "入库记录查询")intlen = Len(strinp)If strinp = "" Thenmsgint = MsgBox("实在是佩服，空的IMEI号也要查询!请重新输入要查询的IMEI", vbOKO

子过程（Sub）的定义事件过程窗体事件过程Private  Sub Form_事件名（[参数列表]）　　[局部变量和常数声明]　　语句块End Sub说明：（1）窗体事件过程名由Form_事件名组成，多文档窗体用MDIForm_事件名。（2）每个窗体事件过程名前都有一个Private的前缀，表示该事件过程不能在它自己的窗体模块之外被调用。（3）事件过程有无参

去掉所有HTML标记Function FilterHTML(str,strlen)　　Dim re　　Set re=new RegExp　　re.IgnoreCase =True　　re.Global=True　　re.Pattern="]*)>"　　str=re.Replace(str,"")　　set re=Nothing　　Dim l,t,c,i　　l=Len(str)　　t=0