VB入门教程-.pdf

《VB入门教程-.pdf》由会员分享，可在线阅读，更多相关《VB入门教程-.pdf（23页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VB程序设计基础一、程序设计 是指为计算机编制一些 软件和程序。学习的目的是理解计算机的工作方式和运行的方式。VB是经典的编程设计语言，也是基础语言之一，简单易学，功能强大，深受广大初学者的喜爱。VB是运行在 Windows视窗操作系统上，设计程序的思想在于在窗口中放置对象和针对对象设计 代码。（一）启动 VB：单击“开始”“程序”“Microsoft VisualBasic 6.0 中文版”选择“标准EXE”，单击“打开”进入窗口。（二）VB窗口1、标题栏：在最上面 蓝色标题是“工程 1.”，是我们当前正在设计的程序，被称作“工程1”。2、菜单栏：菜单栏在第二行，包含一组菜单，菜单中有各种命

2、令，我们应该理解操作计算机就是向计算机提供一系列的指令。（1）“文件”菜单，要求记住“保存”命令，VB要保存两次，注意保存文件到自己的 文件夹中。（本书中双引号当中均是指操作命令）（2）“视图”菜单，显示各个窗口，如果一个窗口找不着了，就到这个菜单中找出来。（3）“运行”菜单，第一个“启动”命令要记住，可以运行我们的程序。3、工具栏：第三行是工具栏，工具栏是一些最常用的命令，而且是用图标表示的，因而便于形象记忆和操作，要求记住“启动”按钮。（在视窗操作系统中，我们不仅要会认识文字说明，还要特别留意图标含义。）4、工作区：工作区占据窗口的绝大部分，从左向右包括工具箱、窗体、和属性窗口。（1）工具

3、箱：在工作区的 左侧，包含许多编程用到的基本对象，被称作“控件”。（2）窗体：中间的灰色的窗口，是我们设计的程序的基本框架，所有的对象都放在这个窗口当中。（3）小窗口：在右侧有三个 纵向排列的窗口。最上面是工程窗口，上边有三个按钮，中间的按钮是显示对象窗口；下面是属性窗口，属性是一个对象的名称、大小、颜色等等；最下面 是布局窗口，里面显示程序运行时的 位置，拖动里面的小框可以改变程序的显示位置。4、下面修改窗体的属性，在右侧的属性窗口中找到Caption 项，在它右边的格子里点一下鼠标左键，然后输入“窗体”两个字，观察一下工作区中的窗体的标题是否已经改变，Caption 是设置一个应用程序的窗

4、口标题，再在属性窗口中找到 BackColor 项，单击右边格子里的黑色 三角按钮 上点击一下鼠标左键，在弹出的面板上边的一行文字中选择“调色板”标签，选中浅紫色，观察一下工作区中间的窗体的变化。单击工具栏上的 启动按钮，运行一下我们的程序，看一下这个窗口，还不错吧？单击“关闭”按钮（或者 Alt F4），回到窗体中，在属性窗口中找到Icon项，在右边的格子里点一下鼠标左键再点一下三个小点，在弹出的“加载图标”对话框中，点击“向上”按钮退一步，再选择打开 Common，再选择打开 Graphics，再选择打开 Icon，再打开 Misc，在里面找一个图标，单击打开，再看一下工作区中的窗体的标题

5、栏左侧是否有一个图标。单击“启动”按钮，运行一下程序，然后最小化，看一下任务栏上的图标找到我们的程序，单击一下图标恢复窗口。关闭程序回到属性窗口，找到 Picture属性，在右边的格子里单击一下鼠标左键，打开“加载图片”对话框，找一幅较大的背景图片打开，观察一下工作区窗体的变化。单击“启动”按钮运行一下程序，很漂亮的一个窗口是吧？关闭程序，同样再修改 Font 属性和 ForeColor 属性，属性都是按照 字母排序的，在最后的 WindowState 属性中选择 2Maxing 最大化，运行一下程序看一下效果。如何保存自己的程序呢？方法是在“文件”菜单中选择“保存工程”或者点击工具栏上的 磁

6、盘按钮，保存文件到自己的文件夹（如果没有就新建一个）以“MyForm”为文件名（如果能用中文就输入汉字“窗体”）。保存两次，一次是窗体，另一次是工程。保存好 的程序要编译成可以在Windows下运行的可执行程序，方法是选择“文件”菜单中的“生成工程 1.exe”命令，以“窗体”为文件名保存文件到 自己的文件夹，这个程序关闭 VB后也可以运行，退出VB，打开自己的 文件夹，找到程序，运行一下看看。本节主要讲述了 VB的基本窗口和窗体属性，以后会经常用到。美丽的小姑娘（在弹出的对话框中选择“在当前位置运行该程序”和“是”）二、工具箱里的控件一个程序的窗口是由许多 对象组成的，在 VB中这些对象被称

7、作 控件，控件都放在工作区左侧的 工具箱 内，我们用这些控件可以组合出不同的程序来。首先箭头工具是用来 选择、移动、缩放对象的，默认的就是选择工具。箭头工具下面的 A是标签 Label 控件，用来显示文字，代码是Label1.Caption=“,”，编程序除了对象外还要有代码。使用的方法是用鼠标左键在工具箱中选中它，然后在工作区中 拖动鼠标就可以画出一个标签来，默认的名称是 Label1，也就是第一个标签。启动 VB，选择“标准 EXE”，点“打开”进入窗口，在右侧的属性窗口中修改一下 Caption 项为“窗体”，BackColor 项为浅紫色和 Icon 项。在工作区窗体中间的 上方画一个

8、标签，要求能写下五个字。在右侧的属性窗口中找到 Caption 项，在它右侧点一下鼠标左键，调出紫光拼音输入法，输入“我的程序”，再修改 Backcolor 为浅黄色，前景色 ForeColor 为棕黄色，设置字体 Font 为华文行楷，然后找到下边的ToolTipText项，在右边输入“这是第一个标签”，这个属性是干什么的呢？自己先想一想。单击工具栏上的启动按钮运行程序，这个窗口不再是空的了，里面有一个标签“我的程序”，把鼠标 移到标签上面，你会看到出来一行小字“这是第一个标签”，这就是 ToolTipText属性的效果，是提示语，就像我们在桌面上把鼠标移到“我的电脑”“我的文档”图标上，都

9、会出来一行提示，就是这样设计的。单击标题栏上的“关闭”按钮，回到窗体中。照着同样的方法再画两个标签（排列要美观），分别把Caption 属性改为“姓名”和“班级”，同样设定好字体和颜色，注意在 ToolTipText属性一个是“这是第二个标签”，一个是“这是第三个标签”。以“控件（或 MyLabel）”为文件名保存文件到自己的文件夹修改好后，点一下 启动按钮运行程序，把鼠标移到三个标签上，看一下提示，有点儿意思了。关闭程序回到窗体，下面我们加上程序代码，代码要在代码窗口中输入，在工作区 右侧的“工程”窗口中的 查看代码 按钮上点一下，这时窗体对象窗口隐藏到后面，显示出一个白色的代码窗口。代码窗

10、口的第一行分成两部分，左侧是对象列表当前显示的是“通用”，单击一下它旁边的黑色下拉三角按钮，显示出我们在对象窗口中添加的对象，现在有四个：一个窗体Form1，三个标签从 Label1 到 Label3，在代码中一般用 英文，在对象窗口中用 中文。右侧的列表是事件，现在显示的是“声明”。单击“工程”窗口中间的 对象按钮，回到对象窗口中，我们将对第二个标签设置代码，双击第二个标签，我们发现也进入了代码窗口，不同的是代码窗口中出现了几行 代码，第一行是关于 Label2 的 Click（单击）事件，中间光标闪烁着空行，最后一行是 End Sub 表示结束代码。我们在中间插入代码，按一下键盘上的Tab

11、键（在键盘最左边的第三排）光标缩进一个占位符，用英文输入Label2.这时 VB自动给出一个列表，接着我们再输入 c 列表自动跳到 Caption 项，此时按一下 空格键，VB自动完成Label2.caption的输入，接着输入 =刘桂明 （注意英文的两个双引号是一样的）整个代码是：Label2.Caption=刘桂明 注意双引号是英文，中间的名字是汉字，把名字部分输入 自己的 名字。单击工具栏上的“启动”按钮，用鼠标在各个标签上停一下，依然有三个提示，然后再分别 单击一下三个标签，你会看到什么？第二个标签的“姓名”改成了自己的姓名，这就是我们的代码的作用。保存一下程序关闭程序，回到代码窗口，

12、再单击“工程”窗口中间的“查看对象”按钮回到对象窗口，再在第三个标签上双击，照着刚才的方法，按一下Tab键，输入Label3.Caption=七年级组（1）办 注意双引号是 英文，里面改成 自己的 班级，现在这儿是老师的。单击“启动”按钮运行一下程序，用鼠标单击这几个标签，看一下发生的变化。本节讲述了 VB中的控件，通过标签Label 学习了对象的 添加和编写 代码。我的程序（在弹出的对话框中选择“在当前位置运行该程序”和“是”）三、基本控件1、文本框 Text1 用来输入 文本，代码是 Text1.Text=.，位置在标签的旁边，图标是 ab|。启动 VB,选择 标准 EXE,单击 打开,进

13、入窗口,在属性窗口中修改 窗体的属性 Caption 为文本框,再修改背景色 BackColor，图标 Icon。再向窗体中添加一个 标签 Label1，修改 Caption 为“我的文本框程序”，再修改颜色、字体属性，在ToolTipText中输入“这是程序的标题”。再加入一个标签 Label2，修改 Caption 为“姓名：”，同样修改颜色、字体属性，在 ToolsTipText中输入“这儿显示姓名”。找到工具箱中的 文本框 控件，在工作区中画一个文本框对象，默认的名称是Text1，修改 Font 字体属性，Text 属性先 不改，修改 ToolTipText属性为“这是第一个文本框”。

14、将窗体中的各个对象调整得大方美观。以“文本框”（或者英文的 MyText）为文件名，保存文件到自己的文件夹单击工具栏上的“启动”按钮运行程序，看一下文本框，里面有 Text1 和一个闪烁的 插入光标，把鼠标移过去会有一行提示“这是第一个文本框”。用键盘输入自己的 名字和旁边同学的名字，移动光标，删除错误的字符，就像我们在记事本和Word里头一样，文本框里面可以进行文字输入 和编辑。关闭程序回到窗口中，我们来添加代码，单击工程窗口 中的“显示代码”按钮，进入代码窗口，此时代码窗口中还没有语句，单击左边“通用”旁边的下拉按钮，选择 Text1 对象，右边列表自动给出一个Change，窗口中页有了

15、三行代码，光标在中间闪烁。按一下 Tab 键缩进一下，用英文输入Label2.Caption=Text1.Text注意使用 VB提供的自动输入功能，按 空格键 自动完成代码。保存一下文件单击工具栏上的“启动”按钮运行程序，再在文本框中输入文字，观察Label2 的变化，这就是我们代码的作用。关闭程序，回到代码窗口，我们来分析一下代码的含义，第一行中的Text1_Change是指当文本框的文本改变时，Change是改变的意思，那么就执行第二行 Label2.Caption=Text1.Text，这一句是让 Label2 的 Caption 等于 Text1的内容，所以我们在文本框中输入时，第二个

16、 标签的内容也发生了改变。第三行是结束代码 End Sub。再添加一个文本框 Text2，修改它的 属性并添加相应的 代码。本节主要讲述了 VB控件中的 文本框 对象。奇妙的文本框（在弹出的对话框中选择“在当前位置运行该程序”和“是”）四、控件里的命令按钮命令按钮 Button 是通过鼠标来执行某个动作，代码是Command1_Click()，在工具箱的第三行，一个小方块，添加的方法也是先选中再在窗体中画出来。启动 VB，修改好窗体的标题Caption、颜色和图标 Icon 属性，再添加一个标签 Label1 修改它的 Caption 属性为“我的命令按钮”，再修改它的颜色，字体等属性，以“按

17、钮”（或MyButton）为文件名 保存文件到自己的文件夹。向窗体中添加一个命令按钮，放在窗口右下角 的位置，默认的名称是Command1，在属性窗口中修改Captin 为“退出”，修改它的字体、颜色属性，在 ToolsTipText属性中输入“这是第一个命令按钮”，再找到 Picture，单击右边的 None，给按钮加载一个图片，属性中出现（Bitmap）表示成功，运行一下程序，窗口中有了一个命令按钮，但是并没有图片，点一下也没有退出，还有些问题。关闭程序回到窗体中，单击窗体中的 退出按钮选中它，然后在右侧的属性窗口中找到 Style 属性，把它改为 1-Graphical，也就是让按钮显示

18、加载的图片。再运行一下程序，这时候按钮上的图片就显示出来了。一定要记住，按钮的图片还要在 Style 属性中修改。接下来 我们为按钮添加 代码，完成退出的指令。在按钮上 双击鼠标，这时自动打开按钮的代码过程Command1_Click(),光标在中间 闪烁，按一下 Tab键缩进，输入 end 也就是结束，按一下“启动”按钮运行程序，单击“退出”按钮，我们发现命令已经成功的执行，我们回到了窗体中，保存一下程序，这个按钮以后会一直用到，希望大家牢牢记住，并恰当地使用它。接下来 再添加一个按钮 Command2，修改它的标题 Caption 属性为“转换”，同样再修改 Picture和 Style

19、属性，修改 ToolsTipText属性为“这是第二个命令按钮”，双击“转换”按钮，进入代码窗口Command2_Click()过程，按一下Tab键，输入代码：Label1.Caption=美丽的校园 注意英文和中文的转换。运行程序，单击“转换”按钮看一下标题的变化，体会一下代码的作用。保存一下文件下面自个儿添加 第三个 按钮 Button3，照着 Button2 的代码输入自己的 中文部分转换标题。本节讲述了按钮的作用和属性代码设置。按钮行动（在弹出的对话框中选择“在当前位置运行该程序”和“是”）五、控件里的图片框在箭头 工具的旁边有一个图片，这个就是图片框 Picture1 用来显示图片，

20、代码是 Picture1.Picture=LoadPicture(.)首先在 D：盘根目录下新建一个 文件夹，名字改为 Picture，然后往里面拷贝两个图片，一个是bmp格式，把文件名改成One，另一个是 Jpg 格式，把文件名改为 Two，找小一些的图片，在代码里面用 英文要方便一些，记住这个文件夹，一会儿我们要用到这两个图片。启动 VB，修改窗体的属性，同时添加一个标签，修改 Caption 属性为“我的图片框”，修改好大小、颜色和提示。以“图片框”（或 MyPicture）为文件名保存文件到自己的文件夹。在窗体中添加两个 图片框，并排放好，在属性窗口中设好颜色和提示。按住Ctrl键同时

21、选中两个图片框，然后在“格式”菜单中的“统一尺寸”中选择“二者都相同”，再在“格式”菜单中的“对齐”中选择“底端对齐”，这样就可以排列整齐了。单击空白处 取消多项选择，然后再选中 图片框 1，在属性窗口中找到Picture属性，单击右边的三个小点，给图片框 加载一张图片，同样给图片框 2 也加载一张图片，在这儿 不要用 我们开始新建的Picture文件夹中的图片。保存一下文件运行一下程序，看一下效果，图片框正确地 加载了两幅图片。关闭程序，回到对象窗口，下面我们来添加代码，向窗体中添加 两个命令按钮，一个 Caption 属性改为“转换一”、ToolTipText提示设为“改变图片框一”，另一

22、个 Caption 改为“转换二”、ToolTipText设为“改变图片框二”。双击“转换一”按钮进入代码过程，按一下Tab键，输入：Picture1.Picture=LoadPicture(d:pictureone.bmp)注意全部是英文，这句代码将会加载前面的第一个bmp图像；再在“转换二”按钮上 双击，同样按Tab键输入代码：Picture2.Picture=LoadPicture(d:picturetwo.jpg)这句加载第二个JPG图像。注意仔细 分析代码所表达的含义。保存一下程序单击“启动”按钮，运行程序，移动鼠标 检查一下各个对象，然后单击各个按钮，看看图片框的变化，你是否体会到

23、编程的巧妙？本节学习了图片框的作用和代码设置方法。生物乐园（在弹出的对话框中选择“在当前位置运行该程序”和“是”）六、复选框复选框 CheckBox 是用来标记是否 选中的控件，代码是 Check1.Value(0,1)也就是或者选中，或者没有选中。启动 VB、设置好窗体的标题Caption 为“复选框”以及背景色、图标，添加一个标签 Label，Caption 改为“我的复选框”，以“复选框”（或 MyCheckBox）为文件名，保存文件到自己的文件夹中。找到工具箱中的一个 打勾的 控件，这就是复选框，添加一个到窗体中，在属性窗口中修改它的Caption 为“复选框的值”，再修改字体、字号，

24、把提示ToolTipText设为“这是第一个复选框”。单击“启动”按钮，运行一下程序，在复选框上 单击一下鼠标，可以看到在方框中打了一个勾，表示选中了，再单击一下，勾又去掉了，这样就可以来回选择。退出程序回到窗口中，再添加一个文本框，修改一下它的Text 属性为“文本框”，ToolTipText为“这儿要显示代码”，字体调大一些四号左右。双击复选框进入代码窗口，我们来设置代码，按一下Tab 键缩进，添加代码:Text1.text=Check1.value注意使用 VB的自动完成功能。这一句代码让文本框里显示复选框Value 值，当然是在单击复选框时（第一行Check1_Click()）运行程序

25、，单击复选框，看一下文本框中的值，打勾时 值是 1 还是 0?退出程序回到窗口，接着添加代码，我们用复选框来设置文本框的字体。再添加两个复选框，一个Caption 是“黑体”，提示为“这是 第二个 复选框”另一个是“隶书”，提示为“这是第三个复选框”。在“黑体”复选框上 双击鼠标 左键，进入代码窗口，按一下 Tab键缩进，输入:if check2.value=1 then 按一下回车键进入下一行，再按一下Tab键缩进，输入：Text1.font=黑体 注意中英文切换。再按一下回车键进入下一行，按一下退格键，删除缩进输入end if整个代码是：if check2.value=1 then Tex

26、t1.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是字体的单词，字体

27、改为隶书，第三句end if是结束 if语句，end是结束的意思。好，再运行一下程序，点击字体的复选框，打勾就改变字体，但是有一点、勾去掉了，字体却没有回去，我们的代码还不完善。关闭程序回到代码窗口，找到Private Sub Check2_Click()这一段代码过程，刚才我们在 if语句中假设打勾，如果不打，就叫“否则的话”代码是Else 找到 if语句的第二行，也就是 Text1.font=黑体 这一句，把光标移到它的最后面按一下回车键，插入一个空行，按一下退格键 删除缩进，输入 else再按一下 回车键 插入一个空行，按一下Tab键缩进，输入：if check3.value=1 the

28、n text1.font=隶书 else text1.font=宋体 end if 这几行 代码的意思，是看看 check3 有没有选中，如果选中 就用 check3 的字体“隶书”，否则就用默认的“宋体”。保存一下程序运行一下程序，选中两个复选框，再去掉“黑体”的勾，看一下变化。关闭程序回到代码窗口，同样找到Private Sub Check3_Click()代码过程，按照上面的例子把光标移到Text.Font=隶书 这一句的最后按一下 回车键 插入空行，按退格键删除缩进，输入else 再按回车键插入 空行，按 Tab键缩进，加入：if check2.value=1 then text1.f

29、ont=黑体 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 Che

30、ck2.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，将C

31、aption 改为“我的单选按钮”，以“单选按钮”（或 MyOption）为文件名，保存文件到自己的文件夹 中。将工作区中的窗体窗口 最大化 占满中间区域，我们要多放一些控件在里头。先找到工具箱第三行的一个标有XY的方框，这是框架，用来分组的，选中框架，在窗体 左侧画一个，修改它的 Caption 属性为“姓名”这一组是姓名，修改提示为“这是第一个框架”。再选择单选按钮，一个中间有 黑点的小圆，在第四行上，再在窗体的 框架里面画一个单选按钮（注意画在框架里面），修改它的Caption 为自己的 名字。同样在添加两个单选按钮到框架里面，分别修改它的 Caption 为自己 左右同桌的姓名。按住

32、Ctrl键不松手，同时选中三个单选按钮，然后在“格式”菜单中找到“统一尺寸”中的“两者都相同”，再找到“格式”菜单中的“对齐”里的“左对齐”，再找到“格式”菜单中的“垂直间距”里的“相同间距”把三个单选按钮排列整齐。好，看一下姓名框架和单选按钮，检查一下各个属性和大小颜色，调整到最合适。保存一下文件运行一下程序，在各个名字上点一下，看看选择的情况，你能不能 同时选中两个人名？关闭程序，回到窗体中，再加入一个 框架，修改 Caption 为“性别”，提示为“这是第二个框架”，添加两个单选按钮到里面，把 Caption 改成什么呢？当然是“男”和“女”，同样在“格式”菜单中调整好尺寸和对齐，再选中

33、“男”按钮，在属性窗口找到Value，在右边选择“True”，这是什么意思？单击“启动”，看一下“性别”框架，有什么不同吗？在“男”按钮上有一个黑点，也就是 默认选中 了男性性别。关闭程序回到窗体窗口，再添加一个 框架，修改 Caption 为“爱好”，提示为“这是第三个框架”，向框架里面添加三个 复选框，为什么不用单选按钮呢？因为这儿是 多项选择，所以要用复选框。修改Caption 为“音乐”、“美术”、“体育”,选中音乐复选框，在属性窗口中找到Value，在右边选择“1-checked”也就是默认打勾。检查一下各个对象的标题、大小、颜色，调整到最佳的状态。保存一下程序启动程序，看一下我们的

34、程序，一个整齐而又大方的窗口，在各个按钮上 点一下，测试一下是否能够正确的响应。本节学习了框架和单选按钮的使用，下一节我们将为程序添加代码。单人飞行（在弹出的对话框中选择“在当前位置运行该程序”和“是”）八、单选按钮的代码接着上一节的内容，我们来设计程序代码，将选择的内容显示出来。启动 VB，选择“文件”菜单中的“打开”命令，找到自己的 文件夹，打开上一次我们保存的“单选按钮”单击“打开”调出我们的工程，在右边的 工程窗口中双击其中的 Form1图标就能够打开对象窗口。在框架的下方添加一个 文本框，稍微长一点儿，将Text 属性中的 Text1 删去，再在框架和文本框之间添加一个命令按钮，修改

35、 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 再输入检测 第三个

36、按钮：if option3.value=true then text1.text=option3.caption end if 这样从 option1 到 option3 都检查了一遍，虽然有些麻烦，但却是很保险，不会遗漏。整个的代码是：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 I

37、f 检查一下代码，保证 缩进、大小写都是正确的，保存一下 程序运行一下程序，单击姓名组中的各个按钮，看看文本框中的显示是否正确？关闭程序回到代码窗口，我们再添加 性别组 的内容，由于性别之前已经有姓名这一项，所以两个 都得加到文本框中，也就是姓名组添加的 同时还得看看性别是什么，所以在姓名检测完了以后还要检查一下性别，然后 一起加到文本框里，修改代码为：把第一个单选按钮的代码中的if语句中间的一行Text1.Text=Option1.caption删除掉改成：if Option4.value=true then text1.text=option1.caption+option4.captio

38、n 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

39、 text1.text=option3.caption+option5.caption end if 这段代码的含义是 如果 optino4 选中了，那么就添加 option4 的标题，否则就添加 option5 的标题，因为两个里头 只能选中一个，4 没有选中，那么肯定是5 选中了。检查一下代码是否符合含义，注意缩进和对齐，保存一下 程序单击“启动”按钮，在“姓名”和“性别”组中选好后单击“确定”按钮，看一下文本框中是否能够正确显示，如果有错误就会到代码窗口中仔细检查一下，是否是代码 写重样了。关闭程序回到代码窗口，第三组的选项也很好 添加，也就是在检测完前两组后，把第三组的 接在后面 加进

40、去就可以了，代码是接着最后的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 检查一下代码，注意错别字和中英文，保存一下 程序运行程序，三个组都选好后，单击确定按钮，看看能否显示所有选项。你可能发现，几个选项

41、挤得有点儿太紧，所以要加入 空格，在每个选项后面加上两个空格，注意空格也必须用双引号 括起来，举一个例子：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

42、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 I

43、f 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

44、检查第一个复选框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 可以控制代码 定时运行，就像 屏幕保护程序一样，代码是

45、Timer_Timer()启动 VB，修改好窗体的标题Caption、颜色和图标 Icon 属性，再添加一个 标签 Label1，修改它的 Caption 属性为 空，再修改它的颜色，字体等属性，以“定时器”（或 MyTimer）为文件名 保存文件到自己的文件夹。在工具箱中选中定时器，一个小闹钟 的图标，在窗体绘制一个定时器，在属性窗口中找到 Interval输入 2000，这个属性是设置时间的，单位是毫秒，1000毫秒等于 1 秒。保存一下 程序启动程序，看看定时器在哪儿，好像找不着，没看到小闹钟，这是因为定时器是在代码中设置的。关闭程序回到窗体中，双击定时器对象进入 代码窗口。按一下 Ta

46、b键缩进准备输入 代码，我们要让标签过两秒就 显示一段文字，代码为：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

47、）时显示“预防近视”，否则就显示“保护视力”，这次 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

48、 i 换一个布尔值本节学习了定时器的使用和设置代码心灵窗口（在弹出的对话框中选择“在当前位置运行该程序”和“是”）十、音乐播放器媒体播放器控件（MCI）可以播放 音频和视频，也就是音乐和影碟。在 D:盘根目录下新建一个文件夹，名字改为music，里面拷入三个音乐文件，一个 Wav文件重命名为 one，另一个 Mp3文件，重命名为 two，再将第十课中的thr 视频文件拷贝进去，这是一个Avi 文件。启动 VB，修改好窗体的各个 属性，再添加一个标签，将Caption 改为“我的播放器”。MCI控件要自己添加到工具箱中，方法是在工具箱 上单击鼠标 右键，选择“部件”在对话框中找到 Microso

49、ft Multimeia Control6.0 打上勾 选中，再单击“确定”这样在工具箱中就加入了多媒体控件MMControl。在工具箱里找到 MMControl 控件（最后一个），选中后在窗体上画一个，可以发现跟我们常见的设备符号一样，有播放、停止、暂停、快进、弹碟等等。以“音乐播放器”为文件名 保存文件到自己的文件夹。现在播放器是 虚的，还要设置一下显示属性，用鼠标 右键单击窗体中 的多媒体控件，在弹出的菜单中选择“属性”，在弹出的对话框顶端选择“控件”标签，将各个按钮符号旁边的 有效选中打上勾，单击“确定”回到窗体中，这时候控件就可以使用了。单击启动按钮运行一下，窗口中的播放器还是 虚的

50、，这是因为还没有要播放的文件。关闭程序回到窗体窗口，添加一个框架 Fram1，向里面添加三个 单选按钮Option，分别设置 Caption 为 Wav，Mp3和 Avi，再修改好背景色。下面我们来添加代码打开播放器，播放一个指定的文件，双击窗体，添加代码到 Form_Load()过程中初始化播放器：MMcontrol1.Notify=False 不返回播放信息MMcontrol1.Wait=True 播放时其他人等待在代码窗口的 顶部左边的 列表中 选择 Option1，右边自动选择Click，在弹出的 Option_Click()过程中添加播放Wav的代码：MMControl1.Comma