VB教程十讲(经典例子).doc

VB基础教程 第1课VB基础 第2课标签控件 第3课文本框 第4课命令按钮 第5课图片框 第6课复选框 第7课单选按钮I 第8课单选按钮II 第9课定时器 第10课音乐播放器 本教程由86团学校TeliuTe制作|著作权所有，不得用于商业用途 美丽的校园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项，单击右边格子里的黑色三角按钮上点击一下鼠标左键，在弹出的面板上边的一行文字中选择“调色板”标签，选中浅紫色，观察一下工作区中间的窗体的变化。单击工具栏上的启动按钮，运行一下我们的程序，看一下这个窗口，还不错吧？ 单击“关闭”按钮（或者AltF4），回到窗体中，在属性窗口中找到Icon项，在右边的格子里点一下鼠标左键再点一下三个小点，在弹出的“加载图标”对话框中，点击“向上”按钮退一步，再选择打开Common，再选择打开Graphics，再选择打开Icon，再打开Misc，在里面找一个图标，单击打开，再看一下工作区中的窗体的标题栏左侧是否有一个图标。单击“启动”按钮，运行一下程序，然后最小化，看一下任务栏上的图标找到我们的程序，单击一下图标恢复窗口。 关闭程序回到属性窗口，找到Picture属性，在右边的格子里单击一下鼠标左键，打开“加载图片”对话框，找一幅较大的背景图片打开，观察一下工作区窗体的变化。单击“启动”按钮运行一下程序，很漂亮的一个窗口是吧？ 关闭程序，同样再修改Font属性和ForeColor属性，属性都是按照字母排序的，在最后的WindowState属性中选择2Maxing最大化，运行一下程序看一下效果。 如何保存自己的程序呢？方法是在“文件”菜单中选择“保存工程”或者点击工具栏上的磁盘按钮，保存文件到自己的文件夹（如果没有就新建一个）以“MyForm”为文件名（如果能用中文就输入汉字“窗体”）。保存两次，一次是窗体，另一次是工程。 保存好的程序要编译成可以在Windows下运行的可执行程序，方法是选择“文件”菜单中的“生成工程1.exe”命令，以“窗体”为文件名保存文件到自己的文件夹，这个程序关闭VB后也可以运行，退出VB，打开自己的文件夹，找到程序，运行一下看看。 本节主要讲述了VB的基本窗口和窗体属性，以后会经常用到。 美丽的小姑娘 （在弹出的对话框中选择“在当前位置运行该程序”和“是”）本教程由86团学校TeliuTe制作|著作权所有，不得用于商业用途美丽的校园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学习了对象的添加和编写代码。 我的程序 （在弹出的对话框中选择“在当前位置运行该程序”和“是”）本教程由86团学校TeliuTe制作|著作权所有，不得用于商业用途美丽的校园VB程序设计基础三、基本控件 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控件中的文本框对象。 奇妙的文本框 （在弹出的对话框中选择“在当前位置运行该程序”和“是”）本教程由86团学校TeliuTe制作|著作权所有，不得用于商业用途美丽的校园VB程序设计基础四、控件里的命令按钮 命令按钮Button 是通过鼠标来执行某个动作，代码是Command1_Click()，在工具箱的第三行，一个小方块，添加的方法也是先选中再在窗体中画出来。 启动VB，修改好窗体的标题Caption、颜色和图标Icon属性，再添加一个标签Label1修改它的Caption属性为“我的命令按钮”，再修改它的颜色，字体等属性，以“按钮”（或MyButton）为文件名保存文件到自己的文件夹。 向窗体中添加一个命令按钮，放在窗口右下角的位置，默认的名称是Command1，在属性窗口中修改Captin为“退出”，修改它的字体、颜色属性，在ToolsTipText属性中输入“这是第一个命令按钮”，再找到Picture，单击右边的None，给按钮加载一个图片，属性中出现（Bitmap）表示成功，运行一下程序，窗口中有了一个命令按钮，但是并没有图片，点一下也没有退出，还有些问题。 关闭程序回到窗体中，单击窗体中的退出按钮选中它，然后在右侧的属性窗口中找到Style属性，把它改为1-Graphical，也就是让按钮显示加载的图片。再运行一下程序，这时候按钮上的图片就显示出来了。一定要记住，按钮的图片还要在Style属性中修改。 接下来我们为按钮添加代码，完成退出的指令。在按钮上双击鼠标，这时自动打开按钮的代码过程Command1_Click(),光标在中间闪烁，按一下Tab键缩进，输入 end 也就是结束，按一下“启动”按钮运行程序，单击“退出”按钮，我们发现命令已经成功的执行，我们回到了窗体中，保存一下程序，这个按钮以后会一直用到，希望大家牢牢记住，并恰当地使用它。 接下来再添加一个按钮Command2，修改它的标题Caption属性为“转换”，同样再修改Picture和Style属性，修改ToolsTipText属性为“这是第二个命令按钮”，双击“转换”按钮，进入代码窗口Command2_Click()过程，按一下Tab键，输入代码：Label1.Caption=美丽的校园 注意英文和中文的转换。 运行程序，单击“转换”按钮看一下标题的变化，体会一下代码的作用。保存一下文件 下面自个儿添加第三个按钮Button3，照着Button2的代码输入自己的中文部分转换标题。 本节讲述了按钮的作用和属性代码设置。 按钮行动 （在弹出的对话框中选择“在当前位置运行该程序”和“是”）本教程由86团学校TeliuTe制作|著作权所有，不得用于商业用途美丽的校园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:pictureone.bmp) 注意全部是英文，这句代码将会加载前面的第一个bmp图像；再在“转换二”按钮上双击，同样按Tab键输入代码： Picture2.Picture=LoadPicture(d:picturetwo.jpg) 这句加载第二个JPG图像。注意仔细分析代码所表达的含义。保存一下程序 单击“启动”按钮，运行程序，移动鼠标检查一下各个对象，然后单击各个按钮，看看图片框的变化，你是否体会到编程的巧妙？ 本节学习了图片框的作用和代码设置方法。 生物乐园 （在弹出的对话框中选择“在当前位置运行该程序”和“是”）本教程由86团学校TeliuTe制作|著作权所有，不得用于商业用途美丽的校园VB程序设计基础七、单选按钮 单选按钮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”也就是默认打勾。 检查一下各个对象的标题、大小、颜色，调整到最佳的状态。保存一下程序 启动程序，看一下我们的程序，一个整齐而又大方的窗口，在各个按钮上点一下，测试一下是否能够正确的响应。 本节学习了框架和单选按钮的使用，下一节我们将为程序添加代码。 单人飞行 （在弹出的对话框中选择“在当前位置运行该程序”和“是”）本教程由86团学校TeliuTe制作|著作权所有，不得用于商业用途美丽的校园VB程序设计基础八、单选按钮的代码 接着上一节的内容，我们来设计程序代码，将选择的内容显示出来。 启动VB，选择“文件”菜单中的“打开”命令，找到自己的文件夹，打开上一次我们保存的“单选按钮”单击“打开”调出我们的工程，在右边的工程窗口中双击其中的Form1图标就能够打开对象窗口。 在框架的下方添加一个文本框，稍微长一点儿，将Text属性中的Text1删去，再在框架和文本框之间添加一个命令按钮，修改Caption为“确定”，在提示中输入“在文本框中显示姓名选择”，将布局调整好，美观大方。保存一下文件 双击“确定”按钮，进入代码窗口，按一下Tab键缩进，我们准备添加代码。 首先添加姓名组中的选择，用if语句来判断是哪一个按钮选中，检测第一个按钮的代码是（每一行输完后都按一下回车键到下一行）：if option1.value=true then text1.text=option1.captionend if 同样检测第二个按钮的代码接着输入：if option2.value=true then text1.text=option2.captionend if 再输入检测第三个按钮：if option3.value=true then text1.text=option3.captionend if 这样从option1到option3都检查了一遍，虽然有些麻烦，但却是很保险，不会遗漏。整个的代码是： If Option1.Value = True Then Text1.Text = Option1.CaptionEnd IfIf Option2.Value = True Then Text1.Text = Option2.CaptionEnd IfIf Option3.Value = True Then Text1.Text = Option3.CaptionEnd If 检查一下代码，保证缩进、大小写都是正确的，保存一下程序 运行一下程序，单击姓名组中的各个按钮，看看文本框中的显示是否正确？ 关闭程序回到代码窗口，我们再添加性别组的内容，由于性别之前已经有姓名这一项，所以两个都得加到文本框中，也就是姓名组添加的同时还得看看性别是什么，所以在姓名检测完了以后还要检查一下性别，然后一起加到文本框里，修改代码为： 把第一个单选按钮的代码中的if语句中间的一行Text1.Text=Option1.caption删除掉改成：if Option4.value=true then text1.text=option1.caption + option4.captionelse text1.text=option1.caption + option5.captionend if 同样在第二个单选按钮的if语句中间一行代码中改成if option4.value=true then text1.text=option2.caption + option4.captionelse text1.text=option2.caption + option5.captionend if 同样在第三个单选按钮的代码中间一行改成if option4.value=true then text1.text=option3.caption + option4.captionelse text1.text=option3.caption + option5.captionend if 这段代码的含义是如果optino4选中了，那么就添加option4的标题，否则就添加option5的标题，因为两个里头只能选中一个，4没有选中，那么肯定是5选中了。 检查一下代码是否符合含义，注意缩进和对齐，保存一下程序 单击“启动”按钮，在“姓名”和“性别”组中选好后单击“确定”按钮，看一下文本框中是否能够正确显示，如果有错误就会到代码窗口中仔细检查一下，是否是代码写重样了。 关闭程序回到代码窗口，第三组的选项也很好添加，也就是在检测完前两组后，把第三组的接在后面加进去就可以了，代码是接着最后的End if之后打两个回车，加入代码：if check1.value=1 then text1.text=text1.text + check1.captionend ifif check2.value=1 then text1.text=text1.text + check2.captionend ifif check3.value=1 then text1.text=text1.text + check3.captionend if 检查一下代码，注意错别字和中英文，保存一下程序 运行程序，三个组都选好后，单击确定按钮，看看能否显示所有选项。 你可能发现，几个选项挤得有点儿太紧，所以要加入空格，在每个选项后面加上两个空格，注意空格也必须用双引号括起来，举一个例子：if check1.value=1 then text1.text=text1.text + + check2.captionend 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 IfEnd 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 IfEnd 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 IfEnd If第三个按钮检测完毕If Text1.Text = Then msg = MsgBox(请选择姓名！, vbQuestion, 错误) Exit SubEnd If提示一下If Check1.Value = 1 Then Text1.Text = Text1.Text + + Check1.CaptionEnd If检查第一个复选框If Check2.Value = 1 Then Text1.Text = Text1.Text + + Check2.CaptionEnd If检查第二个复选框If Check3.Value = 1 Then Text1.Text = Text1.Text + + Check3.CaptionEnd If检查第三个复选框Text1.Text = Text1.Text + Chr(13) + Chr(10)回车换行 本节讲述了单选按钮的代码操作和多个if语句的嵌套。 仙女座星系 （在弹出的对话框中选择“在当前位置运行该程序”和“是”）本教程由86团学校TeliuTe制作|著作权所有，不得用于商业用途美丽的校园VB程序设计基础九、定时器 定时器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 换一个布尔值本节学习了定时器的使用和设置代码 心灵窗口 （在弹出的对话框中选择“在当前位置运行该程序”和“是”）本教程由86团学校TeliuTe制作|著作权所有，不得用于商业用途美丽的校园音乐播放器十、音乐播放器 媒体播放器控件（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的代码：MMControl1.Command = close 先关闭播放器MMControl1.DeviceType = Waveaudio Wav音频格式MMControl1.FileName = d:musicone.wav 文件夹中的one.wav文件MMControl1.Command = open 打开设备MMControl1.Command = play 播放文件 各行代码的作用，在后面的绿色注释中讲到，最后一句用来自动播放，相当于单击播放器的“播放”按钮，播放时必须要有文件名和播放命令。 同样找到Option2的Click()过程，添加播放MP3的代码：MMControl1.Command = close 先关闭播放器MMControl1.DeviceType = 其他类型MMControl1.FileName = d:musictwo.mp3 文件夹中的two.mp3文件MMControl1.Command = open 打开设备MMControl1.Command = play 也可以点击播放按钮 这里的Mp3格式是压缩格式属于其他类型，别的跟Wav文件相同，都是声音文件，没有图像只有音乐。 注意Option3有些不同，它是Avi视频格式，也就是既有声音还有图像，它的Click()代码为：MMControl1.Command = close 先关闭播放器MMControl1.DeviceType = AviVideo Avi视频格式MMControl1.hWndDisplay = Form1.hWnd 用背景窗体当屏幕MMContr