VB 6.0 中文版教程
VB程序设计基础
一、程序设计是指为计算机编制一些软件和程序。学习的目的是理解计算机的工作方式和运行的方式。
VB是经典的编程设计语言，也是基础语言之一，简单易学，功能强大，深受广大初学者的喜爱。
VB是运行在Windows视窗操作系统上，设计程序的思想在于在窗口中放置对象和针对对象设计代码。
（一）启动VB：单击“开始”－“程序”－“Microsoft Visual Basic 6.0 中文版”选择“标准EXE”，单击“打开”进入窗口。
（二）VB窗口
1、标题栏：在最上面蓝色标题是“工程1－...”，是我们当前正在设计的程序，被称作“工程1”。
2、菜单栏：菜单栏在第二行，包含一组菜单，菜单中有各种命令，我们应该理解操作计算机就是向计算机提供一系列的指令。
（1）“文件”菜单，要求记住“保存”命令，VB要保存两次，注意保存文件到自己的文件夹中。（本书中双引号当中均是指操作命令）
（2）“视图”菜单，显示各个窗口，如果一个窗口找不着了，就到这个菜单中找出来。
（3）“运行”菜单，第一个“启动”命令要记住，可以运行我们的程序。
3、工具栏：第三行是工具栏，工具栏是一些最常用的命令，而且是用图标表示的，因而便于形象记忆和操作，要求记住“启动”按钮。（在视窗操作系统中，我们不仅要会认识文字说明，还要特别留意图标含义。）
4、工作区：工作区占据窗口的绝大部分，从左向右包括工具箱、窗体、和属性窗口。
（1） 工具箱：在工作区的左侧，包含许多编程用到的基本对象，被称作“控件”。
（2） 窗体：中间的灰色的窗口，是我们设计的程序的基本框架，所有的对象都放在这个窗口当中。
（3）小窗口：在右侧有三个纵向排列的窗口。
①最上面是工程窗口，上边有三个按钮，中间的按钮是显示对象窗口；
②下面是属性窗口，属性是一个对象的名称、大小、颜色等等；
③最下面是布局窗口，里面显示程序运行时的位置，拖动里面的小框可以改变程序的显示位置。
4、下面修改窗体的属性，在右侧的属性窗口中找到Caption项，在它右边的格子里点一下鼠标左键，然后输入“窗体”两个字，观察一下工作区中的窗体的标题是否已经改变，Caption是设置一个应用程序的窗口标题，再在属性窗口中找到BackColor项，单击右边格子里的黑色三角按钮上点击一下鼠标左键，在弹出的面板上边的一行文字中选择“调色板”标签，选中浅紫色，观察一下工作区中间的窗体的变化。单击工具栏上的启动按钮，运行一下我们的程序，看一下这个窗口
，还不错吧？
单击“关闭”按钮（或者Alt＋F4），回到窗体中，在属性窗口中找到Icon项，在右边的格子里点一下鼠标左键再点一下三个小点，在弹出的“加载图标”对话框中，点击“向上”按钮退一步，再选择打开Common，再选择打开Graphics，再选择打开Icon，再打开Misc，在里面找一个图标，单击打开，再看一下工作区中的窗体的标题栏左侧是否有一个图标。单击“启动”按钮，运行一下程序，然后最小化，看一下任务栏上的图标找到我们的程序，单击一下图标恢复窗口。
关闭程序回到属性窗口，找到Picture属性，在右边的格子里单击一下鼠标左键，打开“加载图片”对话框，找一幅较大的背景图片打开，观察一下工作区窗体的变化。单击“启动”按钮运行一下程序，很漂亮的一个窗口是吧？
关闭程序，同样再修改Font属性和ForeColor属性，属性都是按照字母排序的，在最后的WindowState属性中选择2－Maxing最大化，运行一下程序看一下效果。
如何保存自己的程序呢？方法是在“文件”菜单中选择“保存工程”或者点击工具栏上的磁盘按钮，保存文件到自己的文件夹（如果没有就新建一个）以“MyForm”为文件名（如果能用中文就输入汉字“窗体”）。保存两次，一次是窗体，另一次是工程。
保存好的程序要编译成可以在Windows下运行的可执行程序，方法是选择“文件”菜单中的“生成工程1.exe”命令，以“窗体”为文件名保存文件到自己的文件夹，这个程序关闭VB后也可以运行，退出VB，打开自己的文件夹，找到程序，运行一下看看。
本节主要讲述了VB的基本窗口和窗体属性，以后会经常用到。
二、工具箱里的控件
一个程序的窗口是由许多对象组成的，在VB中这些对象被称作控件，控件都放在工作区左侧的工具箱内，我们用这些控件可以组合出不同的程序来。
首先箭头工具是用来选择、移动、缩放对象的，默认的就是选择工具。
箭头工具下面的A是标签Label控件，用来显示文字，代码是Label1.Caption=“…”，编程序除了对象外还要有代码。使用的方法是用鼠标左键在工具箱中选中它，然后在工作区中拖动鼠标就可以画出一个标签来，默认的名称是Label1，也就是第一个标签。
启动VB，选择“标准EXE”，点“打开”进入窗口，在右侧的属性窗口中修改一下Caption项为“窗体”，BackColor项为浅紫色和Icon项。
在工作区窗体中间的上方画一个标签，要求能写下五个字。 在右侧的属性窗口中找到Caption项，在它右侧点一下鼠标左键，调出紫光拼音输入法，输入“我的程序”，再修改Backcolor为浅黄色，前景色ForeColor
为棕黄色，设置字体Font为华文行楷，然后找到下边的ToolTipText项，在右边输入“这是第一个标签”，这个属性是干什么的呢？自己先想一想。
单击工具栏上的启动按钮运行程序，这个窗口不再是空的了，里面有一个标签“我的程序”，把鼠标移到标签上面，你会看到出来一行小字“这是第一个标签”，这就是ToolTipText属性的效果，是提示语，就像我们在桌面上把鼠标移到“我的电脑”“我的文档”图标上，都会出来一行提示，就是这样设计的。
单击标题栏上的“关闭”按钮，回到窗体中。照着同样的方法再画两个标签（排列要美观），分别把Caption属性改为“姓名”和“班级”，同样设定好字体和颜色，注意在ToolTipText属性一个是“这是第二个标签”，一个是“这是第三个标签”。以“控件（或MyLabel）”为文件名保存文件到自己的文件夹
修改好后，点一下启动按钮运行程序，把鼠标移到三个标签上，看一下提示，有点儿意思了。
关闭程序回到窗体，下面我们加上程序代码，代码要在代码窗口中输入，在工作区右侧的“工程”窗口中的查看代码按钮上点一下，这时窗体对象窗口隐藏到后面，显示出一个白色的代码窗口。
代码窗口的第一行分成两部分，左侧是对象列表当前显示的是“通用”，单击一下它旁边的黑色下拉三角按钮，显示出我们在对象窗口中添加的对象，现在有四个：一个窗体Form1，三个标签从Label1到Label3，在代码中一般用英文，在对象窗口中用中文。右侧的列表是事件，现在显示的是“声明”。
单击“工程”窗口中间的对象按钮，回到对象窗口中，我们将对第二个标签设置代码，双击第二个标签，我们发现也进入了代码窗口，不同的是代码窗口中出现了几行代码，第一行是关于Label2的Click（单击）事件，中间光标闪烁着空行，最后一行是End Sub表示结束代码。
我们在中间插入代码，按一下键盘上的Tab键（在键盘最左边的第三排）光标缩进一个占位符，用英文输入Label2. 这时VB自动给出一个列表，接着我们再输入c列表自动跳到Caption项，此时按一下空格键，VB自动完成Label2.caption的输入，接着输入 ="刘桂明" （注意英文的两个双引号是一样的）整个代码是：Label2.Caption="刘桂明" 注意双引号是英文，中间的名字是汉字，把名字部分输入自己的名字。
单击工具栏上的“启动”按钮，用鼠标在各个标签上停一下，依然有三个提示，然后再分别单击一下三个标签，你会看到什么？第二个标签的“姓名”改成了自己的姓名，这就是我们的代码的作用。保存一下程序
关闭程序，回到代码窗口，再单击“工
程”窗口中间的“查看对象”按钮回到对象窗口，再在第三个标签上双击，照着刚才的方法，按一下Tab键，输入Label3.Caption="七年级组（1）办" 注意双引号是英文，里面改成自己的班级，现在这儿是老师的。
单击“启动”按钮运行一下程序，用鼠标单击这几个标签，看一下发生的变化。
本节讲述了VB中的控件，通过标签Label学习了对象的添加和编写代码。
三、基本控件
1、文本框Text1 用来输入文本，代码是Text1.Text="..."，位置在标签的旁边，图标是ab|。
启动VB,选择"标准EXE",单击"打开",进入窗口,在属性窗口中修改窗体的属性Caption为"文本框",再修改背景色BackColor，图标Icon。
再向窗体中添加一个标签Label1，修改Caption为“我的文本框程序”，再修改颜色、字体属性，在ToolTipText中输入“这是程序的标题”。
再加入一个标签Label2，修改Caption为“姓名：”，同样修改颜色、字体属性，在ToolsTipText中输入“这儿显示姓名”。
找到工具箱中的文本框控件，在工作区中画一个文本框对象，默认的名称是Text1，修改Font字体属性，Text属性先不改，修改ToolTipText属性为“这是第一个文本框”。
将窗体中的各个对象调整得大方美观。以“文本框”（或者英文的MyText）为文件名，保存文件到自己的文件夹
单击工具栏上的“启动”按钮运行程序，看一下文本框，里面有Text1和一个闪烁的插入光标，把鼠标移过去会有一行提示“这是第一个文本框”。
用键盘输入自己的名字和旁边同学的名字，移动光标，删除错误的字符，就像我们在记事本和Word里头一样，文本框里面可以进行文字输入和编辑。
关闭程序回到窗口中，我们来添加代码，单击工程窗口中的“显示代码”按钮，进入代码窗口，此时代码窗口中还没有语句，单击左边“通用”旁边的下拉按钮，选择Text1对象，右边列表自动给出一个Change，窗口中页有了三行代码，光标在中间闪烁。
按一下Tab键缩进一下，用英文输入 Label2.Caption=Text1.Text 注意使用VB提供的自动输入功能，按空格键自动完成代码。保存一下文件
单击工具栏上的“启动”按钮运行程序，再在文本框中输入文字，观察Label2的变化，这就是我们代码的作用。
关闭程序，回到代码窗口，我们来分析一下代码的含义，第一行中的Text1_Change是指当文本框的文本改变时，Change是改变的意思，那么就执行第二行Label2.Caption=Text1.Text，这一句是让Label2的Caption等于Text1的内容，所以我们在文本框中输入时，第二个标签的内容也发生了改变。第三行是结束代码 End Sub 。
再添加一个文本框Text2，修改它的属性
并添加相应的代码。
本节主要讲述了VB控件中的文本框对象。
五、控件里的图片框
在箭头工具的旁边有一个图片，这个就是图片框Picture1 用来显示图片，代码是Picture1.Picture=LoadPicture(...)
首先在D：盘根目录下新建一个文件夹，名字改为Picture ，然后往里面拷贝两个图片，一个是bmp格式，把文件名改成One，另一个是Jpg格式，把文件名改为Two，找小一些的图片，在代码里面用英文要方便一些，记住这个文件夹，一会儿我们要用到这两个图片。
启动VB，修改窗体的属性，同时添加一个标签，修改Caption属性为“我的图片框”，修改好大小、颜色和提示。以“图片框”（或MyPicture）为文件名保存文件到自己的文件夹。
在窗体中添加两个图片框，并排放好，在属性窗口中设好颜色和提示。按住Ctrl键同时选中两个图片框，然后在“格式”菜单中的“统一尺寸”中选择“二者都相同”，再在“格式”菜单中的“对齐”中选择“底端对齐”，这样就可以排列整齐了。
单击空白处取消多项选择，然后再选中图片框1，在属性窗口中找到Picture属性，单击右边的三个小点，给图片框加载一张图片，同样给图片框2也加载一张图片，在这儿不要用我们开始新建的Picture文件夹中的图片。保存一下文件
运行一下程序，看一下效果，图片框正确地加载了两幅图片。
关闭程序，回到对象窗口，下面我们来添加代码，向窗体中添加两个命令按钮，一个Caption属性改为“转换一”、ToolTipText提示设为“改变图片框一”，另一个Caption改为“转换二”、ToolTipText设为“改变图片框二”。
双击“转换一”按钮进入代码过程，按一下Tab键，输入：
Picture1.Picture=LoadPicture("d:\picture\one.bmp") 注意全部是英文，这句代码将会加载前面的第一个bmp图像；再在“转换二”按钮上双击，同样按Tab键输入代码：
Picture2.Picture=LoadPicture("d:\picture\two.jpg") 这句加载第二个JPG图像。注意仔细分析代码所表达的含义。保存一下程序
单击“启动”按钮，运行程序，移动鼠标检查一下各个对象，然后单击各个按钮，看看图片框的变化，你是否体会到编程的巧妙？
本节学习了图片框的作用和代码设置方法。
六、复选框
复选框CheckBox 是用来标记是否选中的控件，代码是Check1.Value＝(0,1) 也就是或者选中，或者没有选中。
启动VB、设置好窗体的标题Caption为“复选框”以及背景色、图标，添加一个标签Label，Caption改为“我的复选框”，以“复选框”（或MyCheckBox）为文件名，保存文件到自己的文件夹中。
找到工具箱中的一个打勾的控件，这就是复选框，
添加一个到窗体中，在属性窗口中修改它的Caption为“复选框的值”，再修改字体、字号，把提示ToolTipText设为“这是第一个复选框”。
单击“启动”按钮，运行一下程序，在复选框上单击一下鼠标，可以看到在方框中打了一个勾，表示选中了，再单击一下，勾又去掉了，这样就可以来回选择。
退出程序回到窗口中，再添加一个文本框，修改一下它的Text属性为“文本框”，ToolTipText为“这儿要显示代码”，字体调大一些四号左右。
双击复选框进入代码窗口，我们来设置代码，按一下Tab键缩进，添加代码: Text1.text=Check1.value 注意使用VB的自动完成功能。这一句代码让文本框里显示复选框Value值，当然是在单击复选框时（第一行Check1_Click()）
运行程序，单击复选框，看一下文本框中的值，打勾时值是1还是0 ?
退出程序回到窗口，接着添加代码，我们用复选框来设置文本框的字体。
再添加两个复选框，一个Caption是“黑体”，提示为“这是第二个复选框”另一个是“隶书”，提示为“这是第三个复选框”。
在“黑体”复选框上双击鼠标左键，进入代码窗口，按一下Tab键缩进，输入:
if check2.value =1 then 按一下回车键进入下一行，再按一下Tab键缩进，输入：
Text1.font="黑体" 注意中英文切换。再按一下回车键进入下一行，按一下退格键，删除缩进输入 end if
整个代码是：
if check2.value=1 then
Text1.font="黑体"
end if
同样双击“隶书”复选框，进入代码窗口，照着上面的例子输入：
if check3.value=1 then
text1.font="隶书"
end if
检查一下三行代码的正确性，保存一下文件
单击“启动”按钮运行程序，在文本框中输入自己的姓名，然后单击两个复选框看一下变化。
关闭程序回到代码窗口，我们来分析一下代码，第一行if check2.value=1 then 是一个假设语句，if 是如果的意思，也就是如果check2.value=1 表示复选框2打上勾，那么 （then是那么的意思），第二句text1.font="隶书" ,font是字体的单词，字体改为隶书，第三句 end if 是结束if语句，end是结束的意思。
好，再运行一下程序，点击字体的复选框，打勾就改变字体，但是有一点、勾去掉了，字体却没有回去，我们的代码还不完善。
关闭程序回到代码窗口，找到Private Sub Check2_Click()这一段代码过程，刚才我们在if语句中假设打勾，如果不打，就叫“否则的话”代码是 Else
找到if语句的第二行，也就是Text1.font="黑体"这一句，把光标移到它的最后面按一下回车键，插入一个空行，按一下退格键删除缩进，输入 else 再按一下回车键插入一个空行，按一下Tab键缩进，输入
：
if check3.value=1 then
text1.font="隶书"
else
text1.font="宋体"
end if
这几行代码的意思，是看看check3有没有选中，如果选中就用check3的字体“隶书”，否则就用默认的“宋体”。保存一下程序
运行一下程序，选中两个复选框，再去掉“黑体”的勾，看一下变化。
关闭程序回到代码窗口，同样找到Private Sub Check3_Click()代码过程，按照上面的例子把光标移到Text.Font="隶书"这一句的最后按一下回车键插入空行，按退格键删除缩进，输入 else 再按回车键插入空行，按Tab键缩进，加入：
if check2.value=1 then
text1.font="黑体"
else
text1.font="宋体"
end if
输完后一定要检查一遍有没有漏掉缩进，中英文错误和错句、漏句。保存一下程序，整个的代码是：
Private Sub Check2_Click()
If Check2.Value = 1 Then
Text1.Font = "黑体"
Else
If Check3.Value = 1 Then
Text1.Font = "隶书"
Else
Text1.Font = "宋体"
End If
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then
Text1.Font = "隶书"
Else
If Check2.Value = 1 Then
Text1.Font = "黑体"
Else
Text1.Font = "宋体"
End If
End If
End Sub
运行程序，看一下我们的代码所起的作用，程序也变得越来越有意思了。
本节学习了复选框和if语句的用法。
七、单选按钮
单选按钮Option 用于单项选择，一组选项中只能选定一个，代码是Option1.Value=(0,1)
启动VB、设置好窗体的Caption为“单选按钮”以及背景色、图标，找到最后一个属性“WindowState”改为2-Maximized，添加一个标签Label，将Caption改为“我的单选按钮”，以“单选按钮”（或MyOption）为文件名，保存文件到自己的文件夹中。
将工作区中的窗体窗口最大化占满中间区域，我们要多放一些控件在里头。
先找到工具箱第三行的一个标有XY的方框，这是框架，用来分组的，选中框架，在窗体左侧画一个，修改它的Caption属性为“姓名”这一组是姓名，修改提示为“这是第一个框架”。
再选择单选按钮，一个中间有黑点的小圆，在第四行上，再在窗体的框架里面画一个单选按钮（注意画在框架里面），修改它的Caption为自己的名字。同样在添加两个单选按钮到框架里面，分别修改它的Caption为自己左右同桌的姓名。按住Ctrl键不松手，同时选中三个单选按钮，然后在“格式”菜单中找到“统一尺寸”中的“两者都相同” ，再找到“格式”菜单中的“对齐”里的“左对齐”，再找到“格式”菜单中的“垂直间距”里的“相同间距”把三个单选按钮排列整齐。
好，看一下姓名框架
和单选按钮，检查一下各个属性和大小颜色，调整到最合适。保存一下文件
运行一下程序，在各个名字上点一下，看看选择的情况，你能不能同时选中两个人名？
关闭程序，回到窗体中，再加入一个框架，修改Caption为“性别”，提示为“这是第二个框架”，添加两个单选按钮到里面，把Caption改成什么呢？当然是“男”和“女”，同样在“格式”菜单中调整好尺寸和对齐，再选中“男”按钮，在属性窗口找到Value，在右边选择“True”，这是什么意思？
单击“启动”，看一下“性别”框架，有什么不同吗？在“男”按钮上有一个黑点，也就是默认选中了男性性别。
关闭程序回到窗体窗口，再添加一个框架，修改Caption为“爱好”，提示为“这是第三个框架”，向框架里面添加三个复选框，为什么不用单选按钮呢？因为这儿是多项选择，所以要用复选框。修改Caption为“音乐”、“美术”、“体育”,选中音乐复选框，在属性窗口中找到Value，在右边选择“1-checked”也就是默认打勾。
检查一下各个对象的标题、大小、颜色，调整到最佳的状态。保存一下程序
启动程序，看一下我们的程序，一个整齐而又大方的窗口，在各个按钮上点一下，测试一下是否能够正确的响应。
本节学习了框架和单选按钮的使用，下一节我们将为程序添加代码。
八、单选按钮的代码
接着上一节的内容，我们来设计程序代码，将选择的内容显示出来。
启动VB，选择“文件”菜单中的“打开”命令，找到自己的文件夹，打开上一次我们保存的“单选按钮”单击“打开”调出我们的工程，在右边的工程窗口中双击其中的Form1图标就能够打开对象窗口。
在框架的下方添加一个文本框，稍微长一点儿，将Text属性中的Text1删去，再在框架和文本框之间添加一个命令按钮，修改Caption为“确定”，在提示中输入“在文本框中显示姓名选择”，将布局调整好，美观大方。保存一下文件
双击“确定”按钮，进入代码窗口，按一下Tab键缩进，我们准备添加代码。
首先添加姓名组中的选择，用if语句来判断是哪一个按钮选中，检测第一个按钮的代码是（每一行输完后都按一下回车键到下一行）：
if option1.value=true then
text1.text=option1.caption
end if
同样检测第二个按钮的代码接着输入：
if option2.value=true then
text1.text=option2.caption
end if
再输入检测第三个按钮：
if option3.value=true then
text1.text=option3.caption
end if
这样从option1到option3都检查了一遍，虽然有些麻烦，但却是很保险，不会遗漏。整个的代码是：
If Option1.Value = Tru
e Then
Text1.Text = Option1.Caption
End If
If Option2.Value = True Then
Text1.Text = Option2.Caption
End If
If Option3.Value = True Then
Text1.Text = Option3.Caption
End If
检查一下代码，保证缩进、大小写都是正确的，保存一下程序
运行一下程序，单击姓名组中的各个按钮，看看文本框中的显示是否正确？
关闭程序回到代码窗口，我们再添加性别组的内容，由于性别之前已经有姓名这一项，所以两个都得加到文本框中，也就是姓名组添加的同时还得看看性别是什么，所以在姓名检测完了以后还要检查一下性别，然后一起加到文本框里，修改代码为：
把第一个单选按钮的代码中的if语句中间的一行Text1.Text=Option1.caption删除掉改成：
if Option4.value=true then
text1.text=option1.caption + option4.caption
else
text1.text=option1.caption + option5.caption
end if
同样在第二个单选按钮的if语句中间一行代码中改成
if option4.value=true then
text1.text=option2.caption + option4.caption
else
text1.text=option2.caption + option5.caption
end if
同样在第三个单选按钮的代码中间一行改成
if option4.value=true then
text1.text=option3.caption + option4.caption
else
text1.text=option3.caption + option5.caption
end if
这段代码的含义是如果optino4选中了，那么就添加option4的标题，否则就添加option5的标题，因为两个里头只能选中一个，4没有选中，那么肯定是5选中了。
检查一下代码是否符合含义，注意缩进和对齐，保存一下程序
单击“启动”按钮，在“姓名”和“性别”组中选好后单击“确定”按钮，看一下文本框中是否能够正确显示，如果有错误就会到代码窗口中仔细检查一下，是否是代码写重样了。
关闭程序回到代码窗口，第三组的选项也很好添加，也就是在检测完前两组后，把第三组的接在后面加进去就可以了，代码是接着最后的End if之后打两个回车，加入代码：
if check1.value=1 then
text1.text=text1.text + check1.caption
end if
if check2.value=1 then
text1.text=text1.text + check2.caption
end if
if check3.value=1 then
text1.text=text1.text + check3.caption
end if
检查一下代码，注意错别字和中英文，保存一下程序
运行程序，三个组都选好后，单击确定按钮，看看能否显示所有选项。
你可能发现，几个选项挤得有点儿太紧，所以要加入空格，在每个选项后面加上两个空格，注意空格也必须用双引号括起来，举一个例子：
if check1.value=1 then
text1.text=text1.text + " " + check2.caption
end if
其他照着添加就可以了。让文本框清空的代码是Text1.text="",两个紧挨着的双引号，单引号表示注释语句不会执行的代
码，绿色的。
整个代码是：
If Option1.Value = True Then
If Option4.Value = True Then
Text1.Text = Text1.Text + Option1.Caption + " " + Option4.Caption
Else
Text1.Text = Text1.Text + Option1.Caption + " " + Option5.Caption
End If
End If
'第一个按钮检测完毕
If Option2.Value = True Then
If Option4.Value = True Then
Text1.Text = Text1.Text + Option2.Caption + " " + Option4.Caption
Else
Text1.Text = Text1.Text + Option2.Caption + " " + Option5.Caption
End If
End If
'第二个按钮检测完毕
If Option3.Value = True Then
If Option4.Value = True Then
Text1.Text = Text1.Text + Option3.Caption + " " + Option4.Caption
Else
Text1.Text = Text1.Text + Option3.Caption + " " + Option5.Caption
End If
End If
'第三个按钮检测完毕
If Text1.Text = "" Then
msg = MsgBox("请选择姓名！", vbQuestion, "错误")
Exit Sub
End If
'提示一下
If Check1.Value = 1 Then
Text1.Text = Text1.Text + " " + Check1.Caption
End If
'检查第一个复选框
If Check2.Value = 1 Then
Text1.Text = Text1.Text + " " + Check2.Caption
End If
'检查第二个复选框
If Check3.Value = 1 Then
Text1.Text = Text1.Text + " " + Check3.Caption
End If
'检查第三个复选框
Text1.Text = Text1.Text + Chr(13) + Chr(10)
'回车换行
本节讲述了单选按钮的代码操作和多个if语句的嵌套。
九、定时器
定时器Timer 可以控制代码定时运行，就像屏幕保护程序一样，代码是Timer_Timer()
启动VB，修改好窗体的标题Caption、颜色和图标Icon属性，再添加一个标签Label1，修改它的Caption属性为空，再修改它的颜色，字体等属性，以“定时器”（或MyTimer）为文件名保存文件到自己的文件夹。
在工具箱中选中定时器，一个小闹钟的图标，在窗体绘制一个定时器，在属性窗口中找到Interval输入2000，这个属性是设置时间的，单位是毫秒，1000毫秒等于1秒。保存一下程序
启动程序，看看定时器在哪儿，好像找不着，没看到小闹钟，这是因为定时器是在代码中设置的。
关闭程序回到窗体中，双击定时器对象进入代码窗口。
按一下Tab键缩进准备输入代码，我们要让标签过两秒就显示一段文字，代码为：
Static i as boolean '定义一个布尔型变量i，布尔型变量只有真假（True 或Flase）
if i = false then
label1.caption="保护视力"
else '否则 i =True
label1.caption="预防近视"
end if '显示两句话
i = Not i '换一个布尔值
检查一下代码的中英文，理解一下代码的含义，保存一下程序
单击启动按钮，等待两秒你看到了什么呢？
回到代码窗口，我们来理解一下代码的意义，因为只显示两句，所以不是这句就是那句，当然显
示哪一句，要看看变量i的值，i 为真（True）时显示“预防近视”，否则就显示“保护视力”，这次 i 为真，Not以后下次就变成假，Not 是否定的意思。
你注意到了没有？Windows在提示时常常会响一声，这句代码是Beep 我们把这一句加到Else句上面的一个空行，注意VB中每一行只写一句，代码变红了就是错了。完整的代码是：
Static i As Boolean '定义一个布尔型变量 i ，布尔型变量只有真假（True 或Flase）
If i = False Then
Label1.Caption = "保护视力"
Beep '响铃
Else '否则i=True
Label1.Caption = "预防近视"
End If '显示两句话
i = Not i '换一个布尔值
本节学习了定时器的使用和设置代码
十、音乐播放器
媒体播放器控件（MCI）可以播放音频和视频，也就是音乐和影碟。
在 D:盘根目录下新建一个文件夹，名字改为music，里面拷入三个音乐文件，一个Wav文件重命名为one，另一个Mp3文件，重命名为two，再将第十课中的thr视频文件拷贝进去，这是一个Avi文件。
启动VB，修改好窗体的各个属性，再添加一个标签，将Caption改为“我的播放器”。
MCI控件要自己添加到工具箱中，方法是在工具箱上单击鼠标右键，选择“部件”在对话框中找到Microsoft Multimeia Control6.0 打上勾选中，再单击“确定”这样在工具箱中就加入了多媒体控件MMControl。
在工具箱里找到MMControl控件（最后一个），选中后在窗体上画一个，可以发现跟我们常见的设备符号一样，有播放、停止、暂停、快进、弹碟等等。以“音乐播放器”为文件名保存文件到自己的文件夹。
现在播放器是虚的，还要设置一下显示属性，用鼠标右键单击窗体中的多媒体控件，在弹出的菜单中选择“属性”，在弹出的对话框顶端选择“控件”标签，将各个按钮符号旁边的有效选中打上勾，单击“确定”回到窗体中，这时候控件就可以使用了。
单击启动按钮运行一下，窗口中的播放器还是虚的，这是因为还没有要播放的文件。
关闭程序回到窗体窗口，添加一个框架Fram1，向里面添加三个单选按钮Option，分别设置Caption为Wav，Mp3和Avi，再修改好背景色。
下面我们来添加代码打开播放器，播放一个指定的文件，双击窗体，添加代码到Form_Load()过程中初始化播放器：
MMcontrol1.Notify=False '不返回播放信息
MMcontrol1.Wait=True '播放时其他人等待
在代码窗口的顶部左边的列表中选择Option1，右边自动选择Click，在弹出的Option_Click()过程中添加播放Wav的代码：
https://www.360docs.net/doc/b71557570.html,mand = "close" '先关闭播放器
MMControl1.DeviceType = "Waveaudio" 'Wav音频格式
MMControl1.FileName = "d:\music\one.wav" '文件夹中的one.wav文件
https://www.360docs.net/doc/b71557570.html,mand = "o
pen" '打开设备
https://www.360docs.net/doc/b71557570.html,mand = "play" '播放文件
各行代码的作用，在后面的绿色注释中讲到，最后一句用来自动播放，相当于单击播放器的“播放”按钮，播放时必须要有文件名和播放命令。
同样找到Option2的Click()过程，添加播放MP3的代码：
https://www.360docs.net/doc/b71557570.html,mand = "close" '先关闭播放器
MMControl1.DeviceType = "" '其他类型
MMControl1.FileName = "d:\music\two.mp3" '文件夹中的two.mp3文件
https://www.360docs.net/doc/b71557570.html,mand = "open" '打开设备
https://www.360docs.net/doc/b71557570.html,mand = "play" '也可以点击播放按钮
这里的Mp3格式是压缩格式属于其他类型，别的跟Wav文件相同，都是声音文件，没有图像只有音乐。
注意Option3有些不同，它是Avi视频格式，也就是既有声音还有图像，它的Click()代码为：
https://www.360docs.net/doc/b71557570.html,mand = "close" '先关闭播放器
MMControl1.DeviceType = "AviVideo" 'Avi视频格式
MMControl1.hWndDisplay = Form1.hWnd '用背景窗体当屏幕
MMControl1.FileName = "d:\music\thr.avi" '文件夹中的thr.avi文件
https://www.360docs.net/doc/b71557570.html,mand = "open" '打开设备
https://www.360docs.net/doc/b71557570.html,mand = "play" '也可以点击播放按钮
这儿第三行代码是让视频图像显示在背景中，也可以添加一个图片框，把Form1改为PIcture1，注意图像的比例一般是4:3 或者16:9。
检查一遍代码，注意中英文和标点符号以及大小写的正确性。保存一下文件
单击“启动”按钮运行程序，点击不同的格式文件来播放音乐，看看我们的多媒体播放器强大的功能，注意重复播放时要倒带子，单击“倒带”然后再播放就重新播放了，退出前一定要关闭设备也就是“close”命令。
整个代码为：
Private Sub Command1_Click() '退出程序
https://www.360docs.net/doc/b71557570.html,mand = "close" '关闭播放器设备
MMControl1.Shareable = True '允许别人使用播放器
End
End Sub
Private Sub Form_DblClick()'双击退出
https://www.360docs.net/doc/b71557570.html,mand = "close" '关闭播放器
MMControl1.Shareable = True
End
End Sub
Private Sub Form_Load()
MMControl1.Notify = False '不返回播放信息
MMControl1.Wait = True '播放时其他人稍等
End Sub
Private Sub Form_Unload(Cancel As Integer) '关闭窗口
https://www.360docs.net/doc/b71557570.html,mand = "close" '关闭播放器
MMControl1.Shareable = True
End Sub
Private Sub Option1_Click()
https://www.360docs.net/doc/b71557570.html,mand = "close" '先关闭播放器
MMControl1.DeviceType = "Waveaudio" 'Wav音频格式
MMControl1.FileName = "d:\music\one.wav" '文件夹中的文件
https://www.360docs.net/doc/b71557570.html,mand = "open" '打开设备
https://www.360docs.net/doc/b71557570.html,mand = "play" '播放文件
End Sub
Private Sub Option2_Click()
https://www.360docs.net/doc/b71557570.html,mand = "close" '先关闭播放器
MMControl1.DeviceType = "" '其他类型
MMControl1.FileName = "d:\music\two.mp3" '当前文件夹中的文件
https://www.360docs.net/doc/b71557570.html,mand = "open" '打开设备
https://www.360docs.net/doc/b71557570.html,mand = "play" '也
可以点击播放按钮
End Sub
Private Sub Option3_Click()
https://www.360docs.net/doc/b71557570.html,mand = "close" '先关闭播放器
MMControl1.DeviceType = "AviVideo" 'Avi视频格式
MMControl1.hWndDisplay = Form1.hWnd '用背景窗体当屏幕
MMControl1.FileName ="d:\music\thr.avi" '文件夹中的文件
https://www.360docs.net/doc/b71557570.html,mand = "open" '打开设备
https://www.360docs.net/doc/b71557570.html,mand = "play" '也可以点击播放按钮
End Sub
本节学习了多媒体播放器的制作和使用。