VB_net实验指导书.doc

第一章的运行环境和运行过程【目的与要求】1了解Windows环境下使用Visual 对visual B项目进行编译的运行环境，了解所用的计算机系统的基本操作方法，学会独立使用该系统。2了解在该系统上如何编辑、编译、连接和运行一个visual B项目。3通过运行简单的visual B项目，初步了解visual B项目的特点。4. 初步了解visual B的编程规范，逐步养成良好的编程风格。【实验内容】【基础知识】通过课堂上学习，我们对visual B已有了初步了解，对visual B有了总体的认识，那么如何在机器上运行visual B项目呢？任何高级语言源程序都要“翻译”成机器语言，才能在机器上运行。“翻译”的方式有两种，一种是解释方式，即对源程序解释一句执行一句；另一种是编译方式，即先把源程序“翻译”成目标程序（用机器代码组成的程序），再经过连接装配后生成可执行文件，最后执行可执行文件而得到结果。【实验题目】题目一: 记事本的界面设计案例描述： Windows下的记事本，是对文本文件进行编辑、修改比较实用的工具软件之一。使用VB制作一个和记事本类似的软件。案例示例：下图为Windows下的记事本的界面案例分析：分析记事本的界面结构，使用VB.NET制作我们自己的记事本。制作过程：【Visual 集成开发环境】Visual B 是集成在Visual 中的一个开发工具，Visual 是一个功能强大、高效并且可扩展的开发工具。Visual 使用简介（1）开始 程序 Microsoft Visual S Microsoft Visual 。（2）主界面（3）创建一个新项目运行Visual Stdio.NET，选择【新建项目】，在弹出的新建项目对话框中的模板中选择“Windows 应用程序”，然后用鼠标点击【确定】按钮，出现编程环境。在屏幕上有工具箱窗口、属性窗口、解决方案资源管理器窗口、菜单栏和工具栏。点击工具栏中的启动按钮运行最简单的程序。如图所示。a) 标题栏的制作通过属性窗口的修改，修改“Text”，就是改变标题，把它改为“记事本”，然后回车后，在窗体中的标题已经跟随变为记事本了。对于标题中的图标可以通过属性窗口中的icon属性选择实现。 b) 菜单栏的制作在工具箱中的【Windows 窗体】选择【MainMenu】，在窗体中左键点击，自动添加到窗体中去，用户可以直接在自己窗体上的菜单栏中写入文字，实现菜单的编辑。 c) 编辑区的制作在工具箱中的【Windows 窗体】选择【RichTextBox】，在窗体中左键点击，自动添加到窗体中去，通过鼠标移动到编辑区的边缘，这时候边缘会出现拉动的箭头，通过拉动实现编辑区大小的控制，通过鼠标左键按住，移动鼠标的同时，编辑区也跟随一起移动。修改该文本编辑的属性，在属性Text中写入自己编辑区显示的内容。 案例总结：通过对记事本的设计，使同学们熟悉VB开发环境，了解简单界面的开发过程。【准独立完成实验题目】题目二：计算器界面的设计案例提出：在本案例中我们要用VB.Net制作一个简单的计算器的界面。该计算器界面与Windows系统附件里自带的计算器一样，能实现加、减、乘、除四则运算及常用计算功能。案例示例：以操作系统带的计算器为例子。示例分析：分析计算器的组成，以便实现自己的计算器。a) 标题栏 观察状态栏，左上角有个当前文件夹的标题，右上角有三个小控制按钮（【最小化】、【最大化】和【关闭】）。b) 菜单栏 菜单栏中有各种下拉菜单，所以在制作的时候我们也要实现一个菜单，如【查看】-【标准型】等。c) 编辑框使用控件组中的TextBox控件实现。d) 按钮使用控件组中的Button控件实现。示例技术：编辑框和按钮的实现通过在工具栏中选择所需要的控件，点击就添加到我们的窗体中了，并且设置控件的常用属性，如Text表示控件显示的外观字。通过点击控件我们实现了基本的计算器的界面设计。【独立完成实验题目】题目二：显示文本信息要求：采用visual 设计上述界面。 第二章 VB.Net的语言基础【目的与要求】本章实验主要以锻炼学生从熟悉到熟练应用简单的表达式语句，熟练基本的程序结构，掌握V中过程和函数的定义和调用方法，深入理解VB.Net语言各数据类型。要求学生能够正确运用VB.Net语言的开发环境，自觉培养良好的VB.Net语言的编程风格，遵守VB.Net语言的编程规则，养成良好的编程习惯。程序的运行环境：控制台应用程序。运行Visual Stdio.NET，选择【新建项目】，在弹出的新建项目对话框中的模板中选择“控制台应用程序”，然后用鼠标点击【确定】按钮，出现编程环境。【实验题目】题目一:加法运算题目描述：编写一个程序，要求两个整数，然后求和并输出。参考源程序：Module Module1 Sub Main() Dim a, b, c As Integer Console.Write(请输入第一个数：) a = Console.ReadLine() 输入第一个数 Console.Write(请输入第二个数：) b = Console.ReadLine() c = a + b Console.WriteLine(和为: & c) Console.Read() End SubEnd Module 6运行结果与结果分析 7.综合分析：此题主要实践了语言中的数据类型及输出格式控制符的用法，在输出要考虑数据类型和控制字符的对应关系。题目二:温度转换题目描述：编写一个程序，要求将华氏温度转换为摄氏度。参考源程序：Sub convert() Dim temp temp = InputBox(请输入华氏温度。, 1) MsgBox(温度为 & Celsius(temp) & 摄氏度。) End Sub Function Celsius(ByVal fDegrees) Celsius = (fDegrees - 32) * 5 / 9 End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox2.Text = Celsius(CInt(TextBox1.Text) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click convert() Call convert()End Sub运行结果与结果分析点击“调用过程”按钮时，出现下图的对话框。选择“ok”时，如下图所示。【准独立完成实验题目】题目一：判断两个数的大小，交换两者的位置。案例示例：点击“判断交换”，出现下面的对话框。代码提示：“判断交换”按钮的代码如下：Dim a, b, temp As Integer a = Val(TextBox1.Text) 得到a的值 b = Val(TextBox2.Text) 得到b的值 If a b Then 如果a的值比b的值小 temp = a : a = b : b = temp 交换它们的值 End If TextBox1.Text = CStr(a) 显示交换过来的值 TextBox2.Text = CStr(b)题目二：从键盘接收学生成绩，计算其平均成绩，并将两者输出。界面如下。 案例示例：点击“输入成绩”按钮，出现下面的对话框。当成绩输入完成时，点击“计算”按钮，出现下面的对话框。采用的算法：二维数组存成绩（35）。参考代码：Const M As Integer = 5 Const N As Integer = 3 Dim CJ(M - 1, N), Aver(N - 1) As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As Integer For i = 0 To M - 1 二重循环输入学号和成绩并存放到成绩数组CJ For j = 0 To N CJ(i, j) = Val(InputBox(输入a( + CStr(i) + , + CStr(j) + ), 输入学号和成绩) Next j Next i End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim i, j As Integer For j = 0 To N - 1 该循环求每门课的平均成绩 Aver(j) = 0 For i = 0 To M - 1 Aver(j) += CJ(i, j + 1) Next i Aver(j) = M Next j Label1.Text = 下面是成绩数组： + Chr(10) + Chr(13) For i = 0 To M - 1 该循环输出各个学生的学号及各科成绩 Label1.Text = Label1.Text + Chr(10) + Chr(13) For j = 0 To N Label1.Text = Label1.Text + CStr(CJ(i, j) + Next j Next i Label1.Text = Label1.Text + Chr(10) + Chr(13) + Chr(10) + Chr(13) + 下面输出平均成绩 + Chr(10) + Chr(13) + Av For i = 0 To N - 1 该循环输出各科的平均成绩 Label1.Text = Label1.Text + CStr(Aver(i) + Next i End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click End End Sub【独立完成实验题目】题目一：计算梯形面积。要求：输入上底、下底和高，求梯形的面积。如下图所示。点击“计算”按钮，出现下面的对话框。题目二：方阵转置（二维）。点击“生成方阵”按钮，将随机产生一个方阵，出现下面的对话框。点击“转置方阵”按钮，将生成的方阵转置，出现下面的对话框。要求：可以不按上述的界面设计，能完成上述功能就可以。环境：选择”windows窗体”或“控制台应用程序”。题目三：排列数（一维）。要求：从键盘输入一组数，按从大到小的顺序排列。主要技术：采用循环语句。第三章 可视化编程方法【目的与要求】1理解可视化编程环境；2掌握可视化编程的步骤； 3理解VB.net程序书写规则； 4. 掌握对象和事件编程。【实验题目】题目一:弹出文本窗体题目描述：编写一个程序，在文本框中输入信息，然后将输入的文本以对话框的方式弹出。参考源程序：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(TextBox1.Text) End Sub运行结果与结果分析点击“Button1”,弹出下面的对话框。 综合分析：此题主要实践了语言中的MsgBox()函数的用法，弹出对话框的实现过程。【准独立完成实验题目】题目一：实现自动换行功能。案例示例：点击“选择文件”,将出现下面的对话框。选择“自动换行”，出现下面的对话框。代码提示：“选择文件”按钮的代码如下：OpenFileDialog1.Filter = RTF格式文件(*.rtf)|*.rtf If OpenFileDialog1.ShowDialog() = DialogResult.OK And _ OpenFileDialog1.FileName Then RichTextBox1.LoadFile(OpenFileDialog1.FileName) End If“自动换行”选择框的代码如下：If CheckBox1.Checked = True Then RichTextBox1.WordWrap = True Else RichTextBox1.WordWrap = False End If【独立完成实验题目】题目一：Time类的创建与演示要求：编写一个名为的类，该类能够存放时间信息，并且具有设置时间和显示时间的功能。然后编程对该类进行测试。界面如下。点击“验证”按钮，出现下面的对话框。第四章 Windows窗体与控件【目的与要求】1、 掌握窗体的概念及窗体的属性、方法、事件并能为常见的窗体 事件编程。2、 熟练掌握文本控件、按钮控件、列表控件、图片控件等常用控件的属性及其简单应用，能够根据实际需要在窗体中应用一些常用控件。3、 掌握菜单类的属性和方法。并且能够根据需要设计具体的程序 菜单，并且为其菜单进行编程。【实验题目】题目一: 选择翻转字符串案例描述：编写一个对文本框中选中的字符倒序存放的程序。程序运行时在上面的文本框中输入文本，然后在【开始位置】文本框中输入要选定的字符的起始位置，在【长度】文本框中输入要选中字符的长度。输入完毕后单击【选择】按钮将上面的文本框中选定指定的字符串，然后单击【倒序】按钮把选中的字符串倒序存放并显示在下面的文本框中。案例示例：下图为选择反转字符串的界面案例分析：为使输入和输出的文本框能够显示多行，需把它们的MultiLine属性值设为Ture,还应该把它们的ScrollBars属性值设置为Both、把WordWrap属性值设置为False,以便显示出水平和垂直滚动条。在【选择】按钮的Click事件中，可通过调用文本框的Select方法选取从指定位置开始的指定数量的文本。在【倒序】按钮的Click事件中，首先应通过输入文本框的selectText获取选中的字符串，然后通过循环把选中的字符串倒序存放，最后把倒序存放的字符串赋值给输出文本框的Text属性即可。为使输出文本框中的文本全部被选中，应调用它的SelectAll 方法。参考源程序：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim start, length As Integer Trystart = Convert.ToInt32(TextBox2.Text) 获取选中文本的起始位置ength = Convert.ToInt32(TextBox3.Text) 获取选中文本的长度 TextBox1.Select(start, length) 选中指定的文本 TextBox1.Focus() 焦点置于textBox1中 Catch E1 As FormatException MessageBox.Show(输入的起始点和长度应该是全数字！, 转换异常) 捕获数据格式不正确的异常 End TryEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim sstr, dstr As String Dim i As Integer sstr = TextBox1.SelectedText 得到TextBox1中选中的字符串 dstr = For i = sstr.Length - 1 To 0 Step -1 该循环把选中的字符串反序存放在dstr变量中 dstr = dstr + sstr.Substring(i, 1) Next i TextBox4.Text = dstr 把dstr存放到TextBox4中 TextBox4.SelectAll() 把TextBox4中的所有文本选中End Sub运行结果分析：题目二: 列表框示例案例描述：编写一个列表框应用程序。程序运行时单击【多列】单选按钮将使列表框显示多列，单击【单列】单选按钮将使列表框以一列的形式显示。在查找后面的文本框中输入一个字符串，然后单击【精确查找】按钮，如果列表项中有与输入的字符串精确匹配的项，则找到并选中该项，如果没有则给出提示信息。单击【清除】按钮将删除选中的选项。 在【添加项】文本框中输入一个字符串，然后单击【添加】按钮将把字符串作为列表项添加到列表框中。单击【清除】按钮将清除列表框中的所有列表项。案例示例：下图为列表框示例的界面案例分析：改变列表框显示的列数，可以通过设置它的MultiColumn属性值来实现。精确查找可调用列表框的FindStringExact方法来实现，通过程序来选中某一项，可通过调用列表框的SetSelected方法来实现。删除列表项可通过调用列表框的Items.Remove方法来实现。添加列表项可通过调用列表框的Items.Add来实现。参考源程序：Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged ListBox1.MultiColumn = True 设置列表框为多列End SubPrivate Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged ListBox1.MultiColumn = False 设置列表框为单列End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim findstr As String, n As Integer findstr = TextBox1.Text 获取要查找的字符串 n = ListBox1.FindStringExact(findstr) 在列表框中精确查找 If (n = 0) Then 如果找到 ListBox1.SetSelected(n, True) 把找到的项选中 Else 没有查找到 MessageBox.Show(无此选项, 找不到提示框) 显示找不到信息 If ListBox1.SelectedIndex = 0 Then 如果有选中的项 ListBox1.SetSelected(ListBox1.SelectedIndex, False) 去除对该项的选择 End If End IfEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If ListBox1.SelectedIndex = 0 Then 如果有选中的选项 ListBox1.Items.Remove(ListBox1.Items(ListBox1.SelectedIndex) 删除选中的选项 Else 无选中的选项 MessageBox.Show(没有选中项, 无选中项对话框) 显示提示信息 End IfEnd SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click ListBox1.Items.Add(TextBox2.Text) 添加一项End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click ListBox1.Items.Clear() 清除所有的列表项End Sub运行结果分析： 【准独立完成实验题目】题目一：以列表方式显示磁盘结构案例示例：代码提示：Private Sub DriveListBox1_SelectedIndexChanged(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles DriveListBox1.SelectedIndexChanged Me.DirListBox1.Path = Me.DriveListBox1.DriveEnd SubPrivate Sub DirListBox1_SelectedIndexChanged(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles DirListBox1.SelectedIndexChanged Me.FileListBox1.Path = Me.DirListBox1.PathEnd Sub题目二：获取系统中可用的驱动器列表案例示例： 程序设计界面 程序运行界面代码提示：Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load Dim drives As String() drives = Environment.GetLogicalDrives() Dim i As Integer For i = 0 To drives.Length - 1 Dim str_temp As String = drives(i) Me.listView1.Items.Add(str_temp) NextEnd Sub【独立完成实验题目】题目一：编写一个设置文字格式的应用程序。案例示例： 程序设计界面 程序运行界面要求：程序运行时单击相应的单选按钮或复选框将对文件框中的文本格式进行相应得设置。题目二：课程选择结构案例示例： 程序设计界面 程序运行界面要求：程序运行时，在ListBox1列表框中显示所有的课程列表，用户可以从中选择一门或多门课程。用户选择了课程后，单击【】按钮将把选中的课程移动到ListBox2列表框中。如果用户单击了【】按钮，则把所有的课程移到ListBox2列表框中。选择时可能由于误操作选了不想要的课程，此时可在ListBox2列表框中选中相应得课程名，然后单击【】按钮把选中的课程在移回到ListBox1列表框中。如果用户不想选择任何课程，可单击【】按钮把所有选择的课程在移回到ListBox1列表框中。第五章 图形程序设计【目的与要求】1 掌握各种绘图属性的用法；2 理解绘图坐标；3 熟练掌握绘图控件和绘图方法。【实验题目】题目一:衰减正弦曲线的绘制题目描述：编写一个程序，来绘制多个周期的衰减正弦曲线，衰减正弦曲线的公式如下： Y=e-x/8sin(x)参考源程序：编写窗体的click事件代码Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click Dim W As Integer = Me.ClientSize.Width 用W记下窗体用户区的宽度 Dim H As Integer = Me.ClientSize.Height 用H记下窗体用户区的高度 Dim x0 As Integer = 10, y0 As Integer = H / 2 设置原点坐标 Dim Yunit As Integer = H / 3 设置轴的单位为用户区的高度的1/3 Dim Xunit As Integer = W / 50 设置X轴的单位为用户区的宽度的1/50，一个单位代表36度 Dim i As Integer 循环变量 Dim x1 As Integer = 0, y1 As Integer = 0, x2 As Integer, y2 As Integer 画线的起点和终点 Dim ht As Boolean = False 由于第一个点不需要画线，其它点才画线，本变量标记是否为第一个点 Dim g As Graphics = Me.CreateGraphics() 建立Graphics对象 Dim mypen As New Pen(Color.Blue, 2) 建立画笔对象 g.Clear(Me.BackColor) 清屏 g.DrawLine(mypen, 10, 5, 10, H - 10) y轴 g.DrawLine(mypen, 5, 15, 10, 5) 画y轴箭头 g.DrawLine(mypen, 15, 15, 10, 5) g.DrawLine(mypen, x0, y0, W - 10, y0) x轴 g.DrawLine(mypen, W - 20, y0 - 5, W - 10, y0) 画x轴箭头 g.DrawLine(mypen, W - 20, y0 + 5, W - 10, y0) For i = 0 To 50 循环画正弦线 If (ht = False) Then 如果是算第一个点 x1 = x0 + i * Xunit 计算点的横坐标 y1 = Int(y0 - Yunit * Math.Sin(i * 36.0 / 360 * 3.1415926) * Math.Exp(-i * 36.0 / 360 * 3.1415926 / 8) 计算点的纵坐标 ht = True 下面就是第二个及以后的点了 Else x2 = x0 + i * Xunit 计算点的横坐标 y2 = Int(y0 - Yunit * Math.Sin(i * 36.0 / 180 * 3.1415926) * Math.Exp(-i * 36.0 / 360 * 3.1415926 / 8) 计算点的纵坐标 g.DrawLine(mypen, x1, y1, x2, y2) 画线 x1 = x2 把该点作为下一次画线的起点 y1 = y2 End If Next i mypen.Dispose() : g.Dispose() 释放对象 End Sub运行结果与结果分析综合分析：此题主要实践了语言中的画连续曲线的方法。解决这类画图问题，首先应确定坐标原点位置；然后根据所画的最大值确定画图的坐标单位。画图的时候，可通过循环每隔PI/10弧度求一个函数的值，并转换成相应的坐标值，然后用DrawLine方法把计算出来的点依次相连起来。【准独立完成实验题目】题目一：立体饼图的绘制。案例示例：代码提示：“绘制柱形”按钮的代码如下：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, n As Integer Dim g As Graphics = Me.CreateGraphics() 生成图形对象 Dim Mypen As New Pen(Color.Black, 2) 生成画笔 Dim MyBrush As New HatchBrush(HatchStyle.DarkDownwardDiagonal, Color.Transparent) g.DrawEllipse(Mypen, 20, 20, 200, 80) 画椭圆 g.FillEllipse(MyBrush, 20, 20, 200, 80) 填充椭园 Mypen.Color = Color.Gray 设置画笔的颜色 For i = 1 To 60 g.DrawArc(Mypen, 20, 20 + i, 200, 80, 0, 180) 画弧线 Next i Mypen.Dispose() : MyBrush.Dispose() : g.Dispose() 释放对象End Sub【独立完成实验题目】题目一：绘制宽度不同的直线要求：编写程序，从菜单中选择不同的选项，绘制宽度不同的直线，界面如下。第六章 文件处理【目的与要求】通过本章的实验，巩固关于文件处理的各种操作和编程技巧。理解剪切板的工作原理。掌握ClipBoard类的功能和ClipBoard类的SetDataObject()方法。掌握GetDataObject()方法。【实验题目】题目: 剪切板题目描述：编程实现一个简单的剪切板程序。实验步骤： 新建一个新的Windows应用程序。在窗体上添加控件。控件的属性如下表：控件名属性属性值Label1Text要拷贝的文件Label2Text粘贴的文件Command1TextCopyCommand1NamebtnCopyCommand2TextPasteCommand2NamebtnPasteTextBox1NametxtCopyTextBox2NametxtPaste 单击copy按扭和paste按扭，对控件进行编程。参考源程序： Private Sub btnCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopy.Click Clipboard.SetDataObject(txtCopy.Text) End Sub Private Sub btnPaste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPaste.Click 声明一个IDataObject变量来返回剪切板中的数据 Dim iData As IDataObject = Clipboard.GetDataObject() 检查数据格式 If iData.GetDataPresent(DataFormats.Text) Then 将剪贴板的数据显示到txtPaste文本框 txtPaste.Text = CType(iData.GetData(DataFormats.Text),String) Else txtPaste.Text = 不能在剪切板中读取数据！ End IfEnd Sub 运行该程序。【独立完成实验题目】记事本程序题目描述：本程序属于综合能力的训练，模仿Windows的“记事本”程序。案例提示： 主窗体Form1的属性设置：属性名属性值IconNotePad.icoMenuMainMenu1Text记事本-未定标题TextBox控件的属性设置：属性名属性值NameMyTxtAnchorTop,Botton,Left,RightMultiLineTrueScrollBarVerticalOpenFileDialog,SaveFileDialog,FontFileDialog控件的属性设置：控件属性名属性值OpenFileDialogNameOpenDialogOpenFileDialogFilter文本文件|*.txt|所有文件|*.*SaveFileDialogNameSaveDialogSaveFileDialogFilter文本文件|*.txt|所有文件|*.*FontFileDialogNameFontDialogFontFileDialogShowEffectsTrueMainMenu控件的属性设置：TextName文件(&F)MenuItem1新建(&N)mNew打开(&O)mOpen保存(&S)mSave另存为(&A)mSaveAs退出(&X)mExit字体(&F)mFont自动换行(&W)mWrap关于记事本(&A)mAbout添加“关于”窗体及其属性的设置、详细代码，请参考教材的P95-P99。第七章 多媒体编程【目的与要求】 本章实验创建了一个Flash播放器，具有播放、暂停、停止等功能，并可以显示播放进度。 通过本章实验，全面地复习了MainMenu、ToolBars、Timer、TrackBar和StatusBar控件的使用方法，巩固了理论课上学到的知识。实验中使用到Visual B中的外部控件。【实验题目】题目：Flash播放器题目描述：设计并实现一个Flash播放器。运行界面和主要控件的属性如下(其余控件的属性请参考教材)：MainMenu控件的属性：TextName文件(&F)MenuItem1打开(&O)mOpen关闭(&C)mClose退出(&X)mExit帮助(&H)MenuItem4用户手册(&U)mManual关于(&A)mAboutStatusBar控件的属性：单击属性Panels后面的进入StatusBarPanel集合编辑器成员属性属性值StatusBarPanel1TextMyFlashPlayerStatusBarPanel1Width400StatusBarPanel1IconFlashPlayer.icoStatusBarPanel2Width100StatusBarPanel3Width100参考源程序：Dim Open_Flag As Boolean 是否有文件打开标志 Dim passtime As Long 播放时间，以秒为单位 单击工具栏按钮事件 Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick Select Case ToolBar1.B