vb程序设计教程(vb程序设计代码大全)

急!关于VB,简单的程序设计

分类：电脑IT

四、数组中常见错误和注意事项

1.静态数组声明下标出现变量

n= InputBox("输入数组的上界")

Dim a(1 To n) As Integer

2．数组下标越界

引用的下标比数组声明时的下标范围大或小。

Dim a(1 To 30) As Long, I as integer

a(1)= 1: a(2)= 1

For i= 3 To 30

a(i)= a(i- 2)+ a(i- 1)

Next I

3．数组维数错

数组声明时的维数与引用数组元素时的维数不一致。

Dim a(3, 5) As Long

a(I)=10

4．Aarry函数使用问题

只能对Variant的变量或动态数组赋值。

5．获得数组的上界、下界

UBound、Lbound函数

1．Dim数组声明

有时用户为了程序的通用性，声明数组的上界用变量来表示，如下程序段：

n=InputBox("输入数组的上界")

Dim a(1 To n)As Integer

程序运行时将在Dim语句处显示"要求常数表达式"的出错信息。即Dim语句中声明的数组上、下界必须是常数，不能搏碧做是变量。

解决程序通用的问题，一是将数组声明的很大，这样浪费一些存储空间；二是利用动态数组，将上例改变如下：

Dim a()As Integer

n=InputBox("输入数组的上界")

ReDim a(1 To n) As Integer

2．数组下标越界

引用了不存在的数组元素，即下标比数组声明时的下标范围大或小。例如，要形成有如下30项的斐波那契数列：

1,1,2,3,5,8,13,21,34,…,317811，514229，832040

正确的程序段如下：

Dim a(1 To 30) As Long, i%

若将For i=3 To 30改为For i=1 To 30，程序运行时会显示"下标越界"的出错信息，因为开始循环时i=l，执行到循环体语句a(i)=a(i-2)+a(i-1)，数组下标i-2、i-1均小于下界1。

同样若将上例：a(i)=a(i-2)+a(i-1)语句改为：a(i+2)=a(i)+a(i+1)。

程序运行时也会显示"下标越界"的出错信息，这时是数组下标大于上界30。

3．数组维数错

数组声明时的维数与引用数组元素时的维数不一致。例如，下程序段为形成和显示3×5的矩阵：

Dim a(3,5) As Long

For i=1 To 3

For j=1 To 5

a(i)=i*j

Print a(i);"";

Next j

Print

Next i

程序运行到a(i)=i*j语句时出现"维数错误"的信息，因为在Dim声明时是二维数组，引用时的一个下标。

4．Array函数使用问题

Array函数可方便地对数组整体赋值，但此时只慧渗能声明Variant的变量或仅由括号括起的动态数组。赋值后的数组大小由赋值的个数决定。

例如，要将1，2，3，4，5，6，7这些值赋值给数组a，表2.5.1列出了三种错误及相应正确的赋值方法。

表2.5.1 Array函数表示方法

错误的Array函数赋值

改正的Aarry函数赋值

Dim a(1 To 8)

a=Array(1,2,3,4,5,6,7,8)

Dim a() a=Array(1,2,3,4,5,6,7)

Dim a As Integer a=Array(1,2,3,4,5,6,7)

Dim a a=Array(1,2,3,4,5,6,7)

Dim a

a()=Array(1,2,3,4,5,6,7)

Dim a a=Array(1,2,3,4,5,6,7)

5．如何获得数组的上界、下界

Array函数可方便地对数组整体赋值，但在程序中如何获得数组的-上界、下界，以保证访问的数组元素在合法的范围基衡内，可使用UBound和LBound函数来决定数组访问。

在上例中，若要打印a数组的各个值，可通过下面程序段实现：

For i=Lbound(A) To Ubound(A)

Print a(i)

Next i

6．给数组赋值

VB6.0提供了可对数组整体赋值的新功能，方便了数组对数组的赋值操作。但真正使用不那么方便，有不少限制。数组赋值形式如下：

数组名2=数组名1

我们就此形式作讨论：这里的数组名2，实际上在前面的数组声明时，只能声明为Variant的变量，赋值后的数组2的大小、维数、类型同数组名1；否则，若声明成动态或静态的数组，例如：

Dim数组名2()或Dim数组名2(下标)

程序在运行到上述赋值语句时显示"不能给数组赋值"的出错信息。

所以，为了程序的安全、可靠，建议读者还是忍痛割爱，少用VB6．0的这一新功能，使用传统的循环结构来给数组赋值。基于此原因，我们也就在教程中不作展开。

五、过程中常见错误和注意事项

1．程序设计算法问题

该章程序编写难度较大，主要是算法的构思有困难，这也是程序设计中最难学习的阶段。经验告诉每一位程序设计的初学者，没有捷径可走，多看、多练、知难而进。上机前一定要先编写好程序，仔细分析、检查，才能提高上机调试的效率。每当一个程序通过艰苦的努力调试通过时，那苦尽甘来的喜悦令你一言难尽。

2．确定自定义的过程是子过程还是函数过程

实际上过程是一个具有某种功能的独立程序单位，供多次调用。子过程与函数过程的区别是前者子过程名无值，后者函数过程名有值。若过程有一个返回值，则习惯使用函数过程；若过程无返回值，则使用子过程，若过程返回多个值，一般使用子过程，通过实参与形参的结合带回结果，当然也可通过函数过程名带回一个，其余结果通过实参与形参的结合带回。

3．过程中形参的个数和传递方式的确定

对初学者，在定义过程时不能确定形参的个数和传递方式。

过程中参数的作用是实现过程与调用者的数据通信。一方面，调用者为子过程或函数过程提供初值，这是通过实参传递给形参实现的，另一方面，子过程或函数过程将结果传递给调用者，这是通过地址传递方式实现的，因此，决定形参的个数就是由上述两方面决定的。对初学者，往往喜欢把过程体中用到的所有变量作为形参，这样就增加了调用者的负担和出错概率，也有的初学者全部省略了形参，则无法实现数据的传递，既不能从调用者得到初值，也无法将计算结果传递给调用者。

VB中形参与实参的结合有传值和传地址两种方式。区别如下：

(1)在定义形式上前者在形参前加即ByVal关键字。

(2)在作用上值传递只能从外界向过程传入初值，但不能将结果传出，而地址传递既可传入又可传出。

(3)如果实参是数组、自定义类型、对象变量等，形参只能是地址传递。

4．实参与形参类型对应问题

在地址传递方式时，调用过程实参与形参类型要一致。例如：

函数过程定义如下：

Public Function f!(x!)

f=x+x

End Function

主调程序如下：

Privme Sub Commandl_Click()

Dim y%

y=3

Print f(y)

End Sub

上例形参x是单精度型、实参y是整型，程序运行时会显示"ByRef参数类型不符"的编译出错信息。

在值传递时，若是数值型，则实参按形参的类型将值传递给形参。例如：

函数过程定义如下：

Public Function f!(ByVal x%)

f=x+x

End Function

主调程序如下：

Priva~SubCommandI_Click()

Dim y!

Y=3.4

Print f(y)

End Sub

程序运行后显示的结果是6。

5．变量的作用域问题

局部变量，在对该过程调用时，分配该变量的存储空间，当过程调用结束，回收分配的存储空间，也就是调用一次，初始化一次，变量不保值，窗体级变量，当窗体装入，分配该变量的存储空间，直到该窗体从内存卸掉，才回收该变量分配的存储空间。

例如，要通过文本框输入若干个值，每输入一个按Eeter键，直到输入的值为9999，输入结束，求输入的数的平均值。

Private Sub Textl_Key Press(Key Ascii As Integer)

Dim sum!,n%

If KeyAscii=13 Then

If Val(Text1)=9999 Then

sum=sum/n

Print sum

Else

Sum=sum+Text1

n=n+1

Text1=""

End If

End If

End Sub

该过程没有语法错，运行程序可输入若干个数，但当输入9999时，程序显示"溢出"的错误。原因sum和n是局部变量，每按一个键，局部变量初始化为0，所以会有上述错误产生。

改进方法：将要保值的局部变量声明为Static静态变量或声明为窗体级变量。也可将要保值的变量在通用声明段进行声明为窗体级变量。

6．递归调用出现"栈溢出"

如下求阶乘的递归函数过程：

Public Functionfac(n As Integer)As integer

If n=1 Then

fac=1

Else

fac=n*fac(n-1)

End If

End Function

Private Sub Commandl_Click()'调用递归函数，显示出fac(5)=120

Print"fac(5)";fac(5)

End Sub

当主调程序调用时，n的值为5时，显示120结果；当n的值为-5时，显示"溢出堆栈空间"的出错信息。

实际上每递归调用一次，系统将当前状态信息(形参、局部变量、调用结束时的返回地址)压栈，直到到达递归结束条件。上例当n=5时，每递归调用一次，参数n-l，直到n=l递归调用结束，然后不断从栈中弹出当前参数，直到栈空。而当n=-5时，参数n-1为-6、压栈，再递归调用、n-1永远到不了n=l的终止条件，直到栈满，产生栈溢出的出错信息。

所以设计递归过程时，一定要考虑过程中有终止的条件和终止时的值或某种操作，而且每递归调用一次，其中的参数要向终止方向收敛，否则就会产生栈溢出。

六、常用控件常见错误和难点分析

1．遗漏对象名称

在VB程序设计时，初学者常犯的一个错误是遗漏对象名称，特别是在使用列表框时。例如，如果要引用列表框(List1)中当前选定的项目，Listl.list(Listlndex)是错误的。即使当前焦点在Listl上，VB也不是认为Listlndex是List l的属性，而是一个变量。所以正确的引用方式是：Listl. 1ist(Listl.Listlndex)。

2．列表框的Columns属性

列表框的Columns属性决定列表框是水平还是垂直滚动以及如何显示列中的项目。如果水平滚动，则Columns属性决定显示多少列，如表2.7.2所示。图2.7.1是一个水平滚动两列显示的列表框。

在程序运行期间，该属性是只读的，也就是说，不能在运行时，将多列列表框变为单列列表框或将单列列表框变为多列列表框。

表2.7.2列表框的Columns属性

列数属性

0（默认值）1到n项目安排在一列中，且列表框竖直滚动项目安排在多个列中，先填第一列，再填第二列……列表框水平滚动并显示指定数目的列

3．域级验证

域级验证是指输入到某独立域的数据的验证，在域级验证的过程中一般不考虑窗体一般其他域的内容。进行域级验证的合适时间是：

(1)当往某域中输入某个键时，此时涉及键盘事件(KeyDown、KeyUp和KeyPress)。

(2)当用户企图离开某域时，此时涉及CansesValidate属性和Validate事件。

(3)当某域的内容发生变化时，此时涉及Change事件。

CausesValidation属性和Validate事件通常是协同工作的。

CausesValidate属性决定Validate事件是否发生。如果控件的CausesValidate属性为False，该控件的Validate事件永远不会发生。如果控件的CausesValidate属性为Tree，当焦点企图移到(还没有离开，也可以说离开之前)另一个CausesValidate属性为True的控件时，原控件的Validate事件发生：当焦点企图移到另一个CausesValidate属性为False的控件时，原控件的Validate事件暂时不发生，什么时候发生?直到焦点移到一个CausesValidate属性为True的控件上时才发生。

例如，假定有如图2.7.2所示的程序。当焦点企图从Textl移到Text2时，Textl的Validate事件发生，同样当焦点企图从Text2移到Textl时，Text2的Validate事件发生。当焦点企图从Textl移到Text3时，TextI的Validate事件暂时没有发生，因为Text3的CausesValidate为False，然后如果焦点企图继续移动到Text2时，Textl的Validate事件才发生。

图2.7.2 CausesValidate属性和Validate事件

CausesValidate属性和Validate事件的这一特性常常应用在如图2．7．3所示的程序中。当在文本框中输入了无效数据时而又不知道如何输入有效数据时，用户往往选择Help命令寻求帮助或选择Cancel命令结束数据输入，此时不希望执行验证程序。因为如果执行验证程序且发现了无效数据，则无法选择Help或Cancel了，用户就这样被套住了。现在只要将文本框的CausesValidate属性设为True，命令按钮的CausesValidate属性为False，验证程序放在 Validate过程中，问题就解决了。在默认情况下，所有控件的CausesValidation属性都为Tree。

图2.7.3命令按钮的CausesValidate属性和Validate事件

并不是所有的控件都有Validate事件。只有那些能用于输入数据的控件(如文本框、复选框、滚动条等)才有这个事件。Validate事件过程如下：

Privme Sub object_Validate(Cancel As Boolean)

…

EndSub

其中，当参数Cancel被设为Tree后，焦点将不会离开对象。

如果要将实验七第1题改用Validate事件和CausesValidation属性实现数据验证，则应有如下的程序。

Sub txtMath_Validate(Cancel As Boolean)

If Val(txtMath.Text)<0 Or _

Val(txtMath.Text)>100 Then

Cancel=True

End If

End Sub

1．窗体顶部菜单栏中的菜单项与子菜单中的菜单项的区别

窗体顶部菜单栏中的菜单项与子菜单中的菜单项都是在菜单编辑器中定义的，但是它们是有区别的。

(1)窗体顶部菜单栏中的菜单项不能定义快捷键，而子菜单中的菜单项可以有快捷键。

(2)当有热键字母(菜单标题中"&"后的字母)时，按Alt+热键字母选择窗体顶部菜单栏中的菜单项，按热键字母选择子菜单中的菜单项(当子菜单打开时)。子菜单没有打开时，按热键字母无法选择其中的菜单项。

(3)尽管所有的菜单项都能响应Click事件，但是窗体顶部菜单栏中的菜单项不需要编写事件过程。

2．在程序中对通用对话框的属性设置不起作用

在程序中对通用对话框的属性设置不起作用，多数情况是因为在弹出对话框后才进行属性设置。例如，下面的程序代码就存在这样的问题，改正方法是将弹出对话框语句放到最后，即把CommonDialogl.Action=l放在所有属性设置语句的后面。

CommonDialog1.Action=1

ConmaonDialog1.FileName="*.Bmp"

CommonDialogl.InitDir="C:\Windows"

CommonDialog1.Filter="Pictures(*.Bmp)|*.Bmp|All Files(*.*)|*.*"

CommonDialog1.FilterIndex=1

3．在工程中添加现有窗体时发生加载错误

在使用"工程"菜单中的"添加窗体"命令添加一个现存的窗体时经常发生加载错误，绝大多数是因为窗体名称冲突的缘故。例如，假定当前打开了一个含有名称为Forml的工程，如果想把属于另一个工程的Forml窗体装入则肯定会出错。

[注意]

窗体名与窗体文件名的区别。在一个工程中，可以有两个窗体文件名相同的窗体(分布在不同的文件夹中)，但是绝对不能同时出现两个窗体名相同的窗体。

4．实时菜单的创建

实时菜单是由应用程序根据需要动态创建的。在VB中，常见的实时菜单是"文件"菜单，该菜单显示了最近所使用的工程。

创建实时菜单必须结合控件数组，用Load语句创建菜单项，用UnLoad清除菜单项。

创建实时菜单的步骤:

(1)在菜单编辑器中建立样本菜单项

样本菜单项的属性设置见表2．8．4所示。设置Index为0，表明样本菜单项是控件数组的一个元素，其下标为0。样本菜单项的Name属性是必须的，它将作为控件数组的名称。在下面假定数组名为NameArray。Visible可以设为True，设为False表示初始时该菜单项不可见。

表2.8.4实时菜单样本菜单项

属性 Name Caption Index Visible

设置值必需的可以没有 0 False

(2)在程序中用Load语句创建菜单项

例如，Load NameArray(1)创建一个新的菜单项(在控件数组中的下标为1，然后将其 Visible属性设置True，同时设置Caption属性。

动态创建的菜单项继承了除了Index之外的绝大部分属性，所以要对Caption和Visible属性进行设置。另外，样本菜单项在菜单系统中的位置决定了新菜单项出现的位置。

(3)为实时菜单项编写代码

每个实时菜单项都是控件数组的一个成员，具有相同的名称，并且共享事件过程。

下面是一个实时菜单项代码示例：

SubNameArray_Click(Index As Integer)

Select Case Index

Case 0

MsgBox("NameArmy(0)(样本菜单项) is clicked!")

Case 1

MsgBox("NameArray(1)(第一个实购菜单项) is clicked!")

Case 2

MsgBox("NameArray(2)(第二个实时菜单项) is clicked!")

End Select

End Sub

(4)删除实时菜单项

尽管把Visible设为False，程序运行时实时菜单项不会显示，然而有时还是需要把实时菜单项从内存中销毁。删除实时菜单使用UnLoad语句。例如，LoadNameArray(1)。

有关建立实时菜单的详细内容请参阅教程第4.3节。

5．通用对话框的CancelError属性和Err对象

当通用对话框的CancelError属性为True时，无论何时选择"取消"按钮，均产生 32755(cdlCancel)号错误，即将Err的Number属性设置为32755。

Err是VB的一个系统对象，它记录了程序运行期间所发生的错误。

Err对象的重要属性有Number(默认属性)和Description。当错误发生后，错误的生成者把错误号和有关错误的说明分别存放在Number和Description属性中。例如，当在 CancelError属性为True的通用对话框中选择"取消"按钮时，产生一个错误，Err对象的Number和Description属性将被设置为32755和"选择'取消'"。

在程序运行期间，经常会发生各种各样的错误。有关错误处理的详细内容请参阅教程第 9.6节。

下面是当程序产生cdlCancel错误时结束程序的运行。

SubForm_ClickO

CommonDialogl.CancelError=True

On Error GoTo ErrorHandler

CommonDialogl.Action=l

'处理文件的语句

ErrorHandler：

If Err.Number=cdlCancel Then

End

Endlf

End Sub

6．与窗体有关的事件

在首次用Load语句将窗体(假定该窗体在内存中还没有创建)调入内存之时依次发生 Initialize和Load事件。再用UnLoad将窗体从内存中卸载时依次发生QueryUnLoad和Unload事件，再使用Set窗体名=Nothing语句解除初始化时发生Terminate事件。

Initialize是在窗体创建时发生的事件。在窗体的整个生命周期中，Initialize事件只触发一次。用户可以将一个窗体装入内存或从内存中删除很多次，但窗体的建立只有一次。也就是说，在用Load语句将窗体装入内存时会触发Load事件，但并不一定触发Initialize事件。

在用UnLoad语句卸载窗体后，如果没有使用Set窗体名=Nothing解除初始化，则在下次使用Load语句时不会触发Initialize事件，否则会引起Initialize事件。

假定有Forml和Form2两个窗体，并且有下列事件过程：

' Forml窗体事件过程

Sub Form_Click()

Debug.Print"窗体首次装入内存时发生的事件："

Load Form2

Debug.Print"用Unload卸载窗体时发生的事件："

UnloadForm2

Debug.Print"窗体第二次装入内存时发生的事件："

Load Form2

Debug.Print"用Unload卸载窗体时发生的事件："

Unload Form2

Debug.Print"用Set窗体名=Nothing语句解除初始化时发生的事件："

Set Form2=Nothing

Debug.Print"窗体第三次(解除初始化后)装入内存时发生的事件："

Load Form2

End Sub

'Form2窗体事件过程

Sub Form_Initialize()

Debug.Print"Initialize事件"

End Sub

Sub Form_Lond()

Debug.Pnnt"Load事件"

End Sub

Sub Form_QueryUnload(Cancel As hteger, UnloadMode As Integer)

Debug.Print"QueryUnload"

End Sub

Sub Form_Unlond(Cancel As Integer)

Debug.Print"Unload"

End Sub

Sub Form_Terminate()

Debug.Print"Terminate"

End Sub

当用户在Form1上单击时，在Debug窗口显示下列信息：

窗体首次转入内存时发生的事件：

Initialize事件

Load事件

用Unload卸载窗体时发生的事件：

Query Unload

Unload

窗体第二次装入内存时发生的事件：

Load事件

用Unload卸载窗体时发生的事件：

QueryUnload

Unload

用Set窗体名=Nothing语句解除初始化时发生的事件：

Terminate

窗体第三次(解除初始化后)装入内存时发生的事件：

Initialize事件

Load事件

7．MouseDown、MOUSeUp和C1ick事件发生的次序

当用户在窗体或控件上按下鼠标按钮时MouseDown事件被触发，MouseDown事件肯定发生在MouseUp和C1ick事件之前。但是，MouseUp和Click事件发生的次序与单击的对象有关。

当用户在标签、文本框或窗体上作单击时，其顺序为：

(1)MouseDown

(2)MouseUp

(3)Click

当用户在命令按钮上作单击时，其顺序为：

(1)MouseDown

(2)Click

(3)MouseUp

当用户在标签或文本框上作双击时，其顺序为：

(1)MouseDown

(2)MOuseUp

(3)Click

(4)DblCUck

(5)MouseUp

七、文件常见错误和难点分析

1．文件系统的三个控件不能产生关联

也就是当驱动器改变时，目录列表框不能跟着相应改变；或者当目录列表框改变时，文件列表框不能跟着相应改变。要三个控件产生关联，使用下面两个事件过程：

Private Sub Drivel_Change()

Dirl.Path=Drivel.Drive

End Sub

Private Sub Dirl_Change()

Filel.Path=Dirl.Path

End Sub

2．如何在目录列表框表示当前选定的目录

在程序运行时双击目录列表框的某目录项，则将该目录项改变为当前目录，其Diirl. Path的值作相应的改变。而当单击选定该目录项时，Diirl. Path的值并没有改变。有时为了对选定的目录项进行有关的操作，与ListBox控件中某列表项的选定相对应，表示如下：

Dirl.List(Dirl.Listlndex)

3．当使用文件系统控件对文件进行打开操作时，显示"文件未找到"出错信息。

例如，如下语句：

Open Filel.Path+Filel.File Name For Input As#1

当选定的目录是根目录，上述语句执行正确，而当选定的目录为子目录，上述语句执行时显示"文件末找到"出错信息。

其中：Filel.Path表示当前选定的路径，Filel.File Name表示当前选定的文件，合起来表示文件的标识符。

当选定的文件在根目录下(假定驱动器为C)，Filel.Path的值为"C:\1"，假定选定的文件名为"t1.txt"，则Filel.Path+Filel.FileName的值为"C:\t1.txt"为合法的文件标识符。

当选定的文件在子目录下(假定驱动器为C，子目录为my)，Filel.Path的值为"C:\my" Filel.Path+Filel.FileName的值为"C:\my tl.txt"，子目录与文件名之间少了一个"\"分隔符。

为了保证程序正常运行，

Open Filel.Path+Filel.FileNameForlnput As#1改为：

Dun F$

If Right(Filel.Path，1)"\" Then'表示选定的足根目录

F=Filel.Path+Filel.FileName

Else'表示选定的是子目录,子目录与文件名之间加"\"

F=Filel.Path+"\"+Filel.FileName

End If

Open F For Input As# 1

4．Open语句中欲打开的名是常量也可以是字符串变量，但使用者概念不清，导致出现"文件未找到"出错信息

如在从盘上读入文件名为"C:\my\t1.txt"，

正确的常量书写如下：

Open"C:\my\t1.txt"For Input As#1'错误的书写常量两边少双引号

或正确的变量书写如下：

Dim F$

F="C:\my\t1.txt"

Open F For Input As#1'错误的书写变量F两边多了双引号

5．文件没有关闭又被打开，显示"文件已打开"的出错信息

如下语句：

Open"C:\my\t1.txt" For Input As#1

Print F

Open"C:\my\t1.txt" For Input As#1

Print"2"；F

执行到第二句Open语句时显示"文件已打开"的出错信息。

6．如何读出随机文件中的所有记录，但又不知道记录号。

不知道记录号而又要全部读出记录，则只要同顺序文件的读取相似，采用循环结构加无记录号的Get语句即可，程序段如下：

Do While Not EOF(1)

Get#1,, j

Print j；

Loop

随机文件读写时可不写记录号，表示读时自动读下一条记录，写时插入到当前记录后。

VB考试教程:菜单程序设计六工具栏的设计

六、工具栏的设计

工具栏（也称为发条或者控制栏）已经成为许多基于Windows的应用程序的标准功能。工具栏提供了对于应用程序中最常用的菜单命令的快速访问。

可以使用ToolBar控件来轻松的汪喊创建工具栏，也可以使用应用程序向导来创建工具栏，方法更加简便。

1、利用应用程序向导创建工具栏

应用程序向导是VB6.0为用户提供的一项功能，通过应用程序向导困山野用户可以很快设计出一个标准Windows程序的框架，其中包括窗体、菜单、工具栏、多文档、状态栏、对话框、滚动条等等。设计过程是在对话中完成，设计完成后形成应用程序的界面和框架。

创建一个标准的应用程序框架步骤如下：

在"新建工程"对话框中选中"VB应用程序向导"后单击[打开]命令按钮确认。

按向导导航单击一次[下一步]按钮进入"界面类型"对话框，选中"多文档界面"，为工程取名为"MyApplication",单击[下一步]确认。

进入"菜单"对话框，可以进行菜单设计，设计完成单击[下一步]按钮确认，进入"自定义工具栏"对话框。

在"自定义工具栏"对话框中可以自行设计工具栏，设计完成单击[完成]确认。

2、使用ToolBar控件创建工具栏

使用ToolBar控件创建工具栏也是非常简单的工作，基本的属性设置可以通过对话框完成。给示例Mymenu设计一个具有四个工具按钮的工具栏，分别对应菜单中的"新建"、"打开"、"粗体"、"斜体"等四个菜单项，并完成相应的功能。

首先从"部件"对话框中选中Microsoft Windows Common Controls6.0，确认后则ToolBar控件添加到工具箱中。

将ToolBar控件添加到窗体上。

用鼠标右键点击窗体上的ToolBar对象，在弹出的快捷菜单上单击[属性]选项，打开"属性页"对话框，选择"按钮"标签，单击[插入按钮]，插入唯祥五个工具按钮，索引分别为1，2，3，4，5。

在属性页上设置工具按钮的属性，各工具按钮的设计属性值如下表：

索引值标题样式

1 New thrDefault

2 Open thrDefault

3 thrSeparator（分隔符）

4 B thrCheck

5 I thrCheck

关于“样式”的说明：

值常数按钮说明

0 tbrDefault普通按钮按下按钮后恢复原状，如“新建”按钮

1 tbrCheck开关按钮按下按钮后保持按下状态，如“加粗”等按钮

2 tbrButtonGroup编组按钮在一组按钮中只能有一个有效，如对齐方式按钮

3 tbrSepatator分隔按钮将左右按钮分隔开

4 tbrPlaceholder占位按钮用来安放其它按钮，可以设置其宽度（width）

5 tbrdropdown菜单按钮具有下拉菜单，如Word中的“字符缩放”按钮

用鼠标左键双击工具栏对象，编写Click事件响应代码如下：

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Index

Case 1

mnuNew_Click

Case 2

mnuOpen_Click

Case 4

mnuBold_Click

Case 5

mnuItalic_Click

End Select

End Sub

--------------------------------------------------------------------------------

Private Sub mnuBold_Click()

mnuBold.Checked= Not mnuBold.Checked

Text1.FontBold= mnuBold.Checked

End Sub

--------------------------------------------------------------------------------

Private Sub mnufotesize_Click(Index As Integer)

Select Case Index

Case 0

Text1.FontSize= 20

Case 1

Text1.FontSize= 30

End Select

End Sub

--------------------------------------------------------------------------------

Private Sub mnuItalic_Click()

mnuItalic.Checked= Not mnuItalic.Checked

Text1.FontItalic= mnuItalic.Checked

End Sub

--------------------------------------------------------------------------------

Private Sub mnuNew_Click()

Form1.Caption="新文件"

Text1.Visible= True

Text1.Text=""

End Sub

--------------------------------------------------------------------------------

Private Sub mnuOpen_Click()

Form1.Caption="文件"

Text1.Visible= True

End Sub

保存工程运行程序。

[程序演示] [程序下载]

3、利用ImageList控件在工具按钮上显示图像

在创建ToolBar控件之前，应创建一个ImageList控件并添加你想要的图像。

ImageList控件

ImageList控件包含 ListImage对象的**，该**中的每个对象都可以通过其索引或关键字被引用。ImageList控件不能独立使用，只是作为一个便于向其它控件提供图象的资料中心。如工具栏控件（ToolBar）中的图像就是从ImageList控件中获取的。

《vb程序设计教程》 王贺明主编 课后习题答案,谢谢啦!

第一题：

第二题：

第三题：

第四题：销纤

第五题：

这部分内容主要考察的是程序设计语言的知识点：

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

VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者迟毕轻松的创建ActiveX控件，用于高效生成亏旦仿类型安全和面向对象的应用程序。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

在使用传统的程序设计语言编程时，一般需要通过编写程序来设计应用程序的界面（如界面的外观和位置等），在设计过程中看不见界面的实际效果。而在Visual Basic 6.0中，采用面向对象程序设计方法（Object-Oriented Programming），把程序和数据封装起来作为一个对象，每个对象都是可视的。

开发人员在界面设计时，可以直接用Visual Basic 6.0的工具箱在屏幕上"画"出窗口、菜单、命令按键等不同类型的对象，并为每个对象设置属性。开发人员要做的仅仅是对要完成事件过程的对象进行编写代码，因而程序设计的效率可大大提高。

VB语言程序设计教程的目录

第1章 Visual Basic概述 1

1.1 Visual Basic的发展历程及特点 1

1.1.1 Visual Basic的发展历程 1

1.1.2 Visual Basic语言的主要特点 2

1.2 Visual Basic 6.0的安装与启动 3

1.2.1 Visual Basic 6.0的安装 3

1.2.2 Visual Basic 6.0的启动与退出 4

1.3 Visual Basic 6.0的集成开发环境 6

1.3.1主窗口 6

1.3.2窗体设计器窗口 7

1.3.3工程资源管理器窗口 8

1.3.4属性窗口 8

1.3.5工具箱窗口 9

1.3.6代码窗口 10

1.3.7立即窗口 10

1.3.8调色板窗口 11

1.3.9窗体布局窗口 11

1.3.10对象浏览器窗口 11

习题 12

第2章 Visual Basic简单程序设计 13

2.1面向对象程序设计基本概念 13

2.1.1对象 13

2.1.2对象的三要素 13

2.2窗体 15

2.2.1窗体结构 15

2.2.2窗体的属性、方法和事件 15

2.3基本控件 18

2.3.1标签 20

2.3.2文本框 21

2.3.3命令按钮 23

2.4 Visual Basic应用程序设计步骤 24

习题 30

第3章 Visual Basic程序设计基础 33

3.1命名规则和语法规则 33

3.1.1命名规则 33

3.1.2语句与语法规则 33

3.2数据类型 34

3.2.1基本数据类型 34

3.2.2自定义数据类型 37

3.3常量与变量 37

3.3.1常量 37

3.3.2变量 38

3.3.3变量的作用域链顷 39

3.3.4默认声明 41

3.4运算符和表达式 42

3.4.1算术运算符 42

3.4.2关系运算符 43

3.4.3逻辑运算符 44

3.4.4字符串运算符 45

3.4.5表达式 45

3.5常用函数 46

3.5.1数学函数 46

3.5.2转换函数 47

3.5.3字符串函数 47

3.5.4日期和时间函数 48

3.5.5格式输出函数 48

习题 49

第4章 Visual Basic程序控制结构 51

4.1顺序结构程序设计 51

4.1.1算法 51

4.1.2顺序结构中的常用语句 52

4.1.3顺序结构中的数据输出 53

4.1.4 InputBox函数 56

4.1.5 MsgBox函数?56

4.2选择结构程序设计 59

4.2.1 if语句和iif函数 59

4.2.2 Select Case语句 63

4.3循旅中环结构程序设计 66

4.3.1 Do loop语棚镇陆句 66

4.3.2 While Wend语句 67

4.3.3 For…Next语句 67

4.3.4循环嵌套语句 69

4.3.5其他控制语句 71

习题 72

第5章数组与过程 80

5.1数组 80

5.1.1一维数组 80

5.1.2二维数组及多维数组 83

5.1.3动态数组 85

5.1.4 For Each…Next语句 88

5.1.5控件数组 89

5.2过程 91

5.2.1过程的概念 91

5.2.2子程序过程Sub 91

5.2.3函数过程 Function 93

5.2.4过程之间参数的传递 95

5.2.5过程嵌套及递归 98

5.2.6变量、过程的作用域 100

习题 101

第6章 Visual Basic常用控件 106

6.1单选控件与复选控件 106

6.1.1单选控件(OptionButton) 107

6.1.2复选控件(CheckBox) 107

6.2列表框和组合框 109

6.2.1列表框控件(ListBox) 109

6.2.2组合框控件(ComboBox) 113

6.3图形框与图像框控件 115

6.3.1图形框控件(PictureBox) 115

6.3.2图像框控件(Image) 115

6.4滚动条与计时器 116

6.4.1滚动条(HscrollBar与VscrollBar) 116

6.4.2时间(Timer)控件 118

6.5文件操作控件 119

6.5.1磁盘列表框(DriveListBox)控件 119

6.5.2 DirListBox(文件夹列表框)控件 120

6.5.3文件列表框(FileListBox)控件 120

6.5.4 3个控件的连接 120

6.6直线与形状控件 121

6.7控件布局 123

习题 124

第7章 Visual Basic高级控件 128

7.1高级控件简介 128

7.2通用对话框(CommonDialog)控件 129

7.2.1 ShowOpen方法 129

7.2.2 ShowSave方法 130

7.2.3 ShowColor方法 131

7.2.4 ShowFont方法 131

7.2.5 ShowPrint方法 133

7.2.6 ShowHelp方法 134

7.3图像列表(ImageList)控件 135

7.4工具栏控件 138

7.4.1 ToolBar控件概述 138

7.4.2 ToolBar控件的属性 138

7.4.3用ToolBar与ImageList设计工具栏 139

7.5状态栏(Statu*ar)控件 142

7.5.1 Statu*ar控件概述 142

7.5.2 Statu*ar控件的属性 142

7.5.3 Statu*ar控件中添加窗格 143

7.6进度条(Progres*ar)控件 145

7.6.1进程条控件的概? 145

7.6.2进程条控件Progres*ar的属性 145

7.7树视图(TreeView)控件 147

7.7.1 TreeView控件概述 147

7.7.2 TreeView控件的属性 147

7.7.3 TreeView控件的方法 148

7.8列表视图(ListView)控件 151

7.8.1常用属性 151

7.8.2常用方法 152

7.9选项卡(TabStrip)控件 153

7.10图像组合(ImageCombo)控件 155

7.11滑块(Slider)控件 156

7.12绘图 158

7.12.1绘图基础 158

7.12.2绘图方法 159

习题 162

第8章菜单及MDI窗体设计 163

8.1下拉?菜单设计 163

8.1.1下拉式菜单的组成 163

8.1.2菜单编辑器的启动 164

8.1.3菜单编辑器的使用方法 164

8.2弹出式菜单设计 167

8.3 MDI多窗体程序设计 171

8.3.1创建MDI主窗体 172

8.3.2建立MDI子窗体 172

8.3.3 MDI窗口菜单设计 172

习题 173

第9章文件操作 174

9.1文件的基本概念 174

9.2顺序文件的存取 175

9.2.1顺序文件的打开与关闭 175

9.2.2写(存)顺序文件 176

9.2.3读(取)顺序文件 178

9.3随机文件的存取 179

9.3.1随机文件的打开与关闭 179

9.3.2读(取)随机文件 179

9.3.3写(存)随机文件 180

9.4二进制文件的存取 182

9.4.1随机文件的打开与关闭 182

9.4.2读(取)/写(存)二进制文件 182

9.5文件中常用的操作语句和函数 183

9.5.1常用的文件操作语句 183

9.5.2常用的文件操作函数 184

习题 185

第10章数据库应用程序设计 187

10.1数据库的基本知识 187

10.1.1数据库的相关概念 187

10.1.2数据库的查询 188

10.2数据库的创建和管理 189

10.3通过Data控件访问数据库 194

10.3.1 Data控件常用属性、方法、事件 195

10.3.2 Recordset对象 196

10.3.3数据绑定控件 198

10.3.4数据库应用程序的设计步骤 199

10.3.5 Data控件用法示例 199

10.4通过ADODC控件访问数据库 206

10.4.1 ADODC控件简介 206

10.4.2数据绑定控件 208

10.4.3 ADODC控件用法示例 208

10.5通过ADO对象访问数据库 219

10.5.1 ADO对象简介 219

10.5.2 Connection对象 220

10.5.3 Recordset对象 222

10.5.4 ADO对象用法示例 226

10.6数据库中图片的存取 233

10.6.1直接存取图片 233

10.6.2存取图片地址 239

习题 242

第11章多媒体应用程序设计 244

11.1多媒体控件 Multimedia MCI 244

11.1.1常用命令、属性和事件 245

11.1.2制作多媒体播放器 247

11.2动画控件Animation 250

11.2.1常用属性、事件和方法 250

11.2.2播放AVI动画 251

11.3调用多媒体API函数开发多媒体应用程序 252

11.3.1 API函数简介 252

11.3.2 API函数制作多媒体应用程序举例 253

第12章网络应用程序设计 255

12.1网络基础 255

12.1.1 IP地址 255

12.1.2域名 255

12.1.3端口 255

12.1.4协议 256

12.2 Winsock控件 256

12.2.1 Winsock控件的常用属性 257

12.2.2 Winsock控件的常用方法 258

12.2.3 Winsock控件的常用事件 259

12.2.4 Winsock编程模型 259

12.2.5 Winsock控件用法示例——简易聊天程序 260

12.3 WebBrowser控件 270

12.4 Internet Transfer控件 273

第13章程序调试与错误处理 278

13.1错误类型 278

13.2代码调试 279

13.2.1 Visual Basic3种模式 279

13.2.2调试?具 280

13.2.3调试窗口 281

13.2.4调试方法 282

13.3错误处理 283

附录常用字符与ASCII代码对照表 285

参考文献 286

VB语言的前景

在目前各种编程语言共存的时代，VB会不会落伍呢？当然不会了，在我写这篇文章的同时，微软已经透露了VB7.0将完全面向对象的消息，可以肯定下一代VB的功能一定会强大很多，我们这些所谓的 VB程序员总算可以放心了，VB不会落后于时代，毕竟它是使用人数最多的优秀的开发工具。

好了，侃了这么多关于VB的台前幕后，总之是为想学编程的你树立信心，编程一点都不难，只要你决定了开始，就让我们一起踏上愉快的编程之旅吧。

接下来谈谈怎样学习VB，先说说“看实例学VB6.0”系列教程，它是面向编程初学者的VB入门教程，这个教程的特点是抛开晦涩难懂的概念和语法，不做内容上的堆积和罗列，而是采用了每节一个生动有趣的小例子的形式，每个小例子中会涉及到一个或几个VB编程的知识点(可能是控件，也许会是某个函数或编程小技巧)，使你快速入门。希望你学完此教程后能达到下述的效果：

从对编程一窍不通或从未接触过编程的状态，通过学习能够对VB6.0的编程环境比较熟悉，掌握VB开发界面的使用方法；对VB语言的基本语法大致了解，知道常见的语句的意义；学习VB常用控件的使用方法，并能将它们灵活运用到应用程序中；能开发简单的VB程序。到那时你已经能够继续深入的学习VB编程，可以继续参与到程序设计栏目其他版块的学习中去，嘻嘻，目标就是这样啦。

然后谈谈学习编程的方法，万事开头难，刚刚开始，遇到些困难没关系，慢慢来。编程是一个不断学习，不断积累的过程，编程的乐趣也正是存在于学习的过程中。我们每学一点，就赶快把它用到实际的程序中去，自己多学多用多实践，水平才能不断提高，这就是“学以致用”。

另外，编程涉及到很多的知识，象操作系统的、软件工程的、硬件系统的以及编程思想等各个方面，这就需要我们多看看这方面的资料，扩充自己的知识面。

关于vb程序设计教程到此分享完毕，希望能帮助到您。