中职Visual Basic 6.0程序设计第4章课件

1、(中职）Visual Basic 6.0程序设计第4章ppt课件Visual Basic常用控件 【实例13】 电子试卷选择题【实例14】 单项选择【实例15】 调色板【实例16】 模拟秒表【实例17】 电子词典【实例18】 字体格式演示【实例19】 外部程序执行器 【实例13】 电子试卷选择题 案例效果 本例中给出了一个电子试卷的选择题界面的应用程序，程序运行后效果，程序运行时，通过单击某个选项按钮进行答案的选择，此时会弹出一个消息对话框，说明选择是否正确。 技术分析 1. 控件分类 2. 焦点和【Tab】键的顺序 （1）焦点 （2）对象接受焦点的条件 （3）【Tab】键的顺序 （4）与焦点

2、有关的事件和方法 3. 控件数组 （1）控件数组的创建 （2）与控件数组有关的属性 （3）控件数组的使用 操作步骤 1. 创建程序界面（1）新建一个“标准 EXE”工程 ，在窗体上添加一个文本框和一个命令按钮控件。再设置文本框控件的TabStop属性为False，使得文本框不能接受焦点；设置Multiline属性为True，使文本框可显示多行文字；设置文本框Locked属性为True，锁定文本框的内容，使程序运行中不能通过键盘输入/删除字符。（2）按照前面所学的方法，以将命令按钮控件进行复制、粘贴的方式创建按钮控件数组，并按先后顺序，依次设置按钮的Caption属性为“A”、“B”、“C”、“

3、D”，从左向右排列，按图4-1所示进行适当地调整。 2. 程序代码编辑最后，在代码窗口内输入以下程序代码。程序代码：Private Sub Form_Load() Text1.Text = 三国的张飞是哪儿的人： + Chr(13) + Chr(10) + A: 燕 _ + Chr(13) + Chr(10) + B: 鲁 + Chr(13) + Chr(10) + C: 晋 + Chr(13) +_ Chr(10) + D: 冀End SubPrivate Sub Command1_Click(Index As Integer) Select Case Index 对控件数组的索引值进行判断

4、 Case 0 MsgBox 回答正确！ Case 1 MsgBox 回答错误！正确答案为A Case 2 MsgBox 回答错误！正确答案为A Case 3 MsgBox 回答错误！正确答案为A End SelectEnd Sub 知识进阶 1.动态控件数组 2. 进阶实例动态按钮（1）新建一个“标准.EXE”工程 ，在窗体上添加一个命令按钮控件。 （2）最后，在程序中输入如下代码。 思考练习 1. 填空题（1）通过设置控件对象的 属性值可以改变【Tab】键的顺序， 属性决定一个对象是否能被【Tab】键选中。（2）控件数组具有相同的 ，以惟一的 对其进行区分。2. 程序设计题（1）创建一个程

5、序，程序中有六个按钮，任意时刻显示其中一个，当单击该按钮时，将隐藏该按钮，并随机显示另一个按钮。（2）创建一个程序界面，它有三个按钮，其中两个是程序运行中产生的，鼠标移到不同的按钮上时，鼠标指针会发生变化。 【实例14】 单项选择 案例效果 本例中，使用了单选按钮来对“电子试卷的选择题”实例进行改进，利用了单选按钮互斥的特点，让选项中只有一个能被选中，使程序更具有实用性。 技术分析 1.单选按钮 2. 复选框 3. 单选按钮和复选框的属性 （1）Caption属性 （2）Alignment属性 （3）Value属性 （4）Style属性 操作步骤 1.创建程序界面 2. 程序编辑代码最后，在代

6、码窗口内输入以下程序代码。程序代码：Private Sub Command1_Click() If Option1(2) = True Then判断是否是正确的单选按钮被选择 MsgBox 选择正确！ Else MsgBox 选择错误！ End IfEnd Sub 知识进阶 1.框架及其应用 （1）Caption属性 （2）Enabled属性 （3）Visible属性 2. 进阶实例属性演示 3. 进阶实例字体格式选择 思考练习 1. 填空题（1）单选按钮和复选框主要用于在程序中提供一组选项供用户进行选择，按钮状态（是否被选中）都由 属性来获取，两者的区别在于 。（2）框架控件在程序中主要用于

7、 。2. 程序设计题（1）设计一个进行数学四则运算的程序，运算符由单选按钮决定。（2）设计一个程序，窗体上有一个标签，可通过单选按钮来控制标签内文字的对齐方式（左、中、右），通过复选框来控制文字是否有下划线、删除线、加粗、倾斜等格式。 【实例15】 调色板 案例效果 这个实例是利用滚动条进行调色的调色板程序，程序运行效果如图4-9所示。当在程序中拖动滚动条时，颜色框将出现色彩的相应变化。 技术分析 1. 滚动条常用属性（1）Value属性 （2）LargeChange属性 （3）SmallChange属性 （4）Max属性 （5）Min属性 2. 滚动条常用事件 （1）Scroll事件 （2）

8、Change事件 操作步骤 1. 创建程序界面 名 称Caption名 称CaptionForm1调色板Label4蓝色Frame1调色区Label5Label1Label6Label2红色Label7Label3绿色2. 程序代码编辑最后，在程序中添加如下代码。程序代码：Private Sub Form_Load() 设置用于显示颜色的标签控件的边框和开始时的颜色 Label1.BorderStyle = 1 Label1.BackColor = RGB(0, 0, 0) Label5.BorderStyle = 1 Label5.BackColor = RGB(0, 0, 0) Label

9、6.BorderStyle = 1 Label6.BackColor = RGB(0, 0, 0) Label7.BorderStyle = 1 Label7.BackColor = RGB(0, 0, 0) 初始化三个滚动条 HScroll1.Max = 255 HScroll1.Min = 0 HScroll1.LargeChange = 5 HScroll1.SmallChange = 1 HScroll2.Max = 255 HScroll2.Min = 0 HScroll2.LargeChange = 5 HScroll2.SmallChange = 1 HScroll3.Max =

10、 255 HScroll3.Min = 0 HScroll3.LargeChange = 5 HScroll3.SmallChange = 1End Sub 红色的改变Private Sub HScroll1_Change() Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) Label5.BackColor = RGB(HScroll1, 0, 0)End Sub绿色的改变Private Sub HScroll2_Change() Label1.BackColor = RGB(HScroll1.Val

11、ue, HScroll2.Value, HScroll3.Value) Label6.BackColor = RGB(0, HScroll2, 0)End Sub蓝色的改变Private Sub HScroll3_Change() Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) Label7.BackColor = RGB(0, 0, HScroll3)End Sub 知识进阶 1. 滚动条与数值的互动 2. 进阶实例文字的动态改变 （1）新建一个“标准 EXE”工程 ，在窗体上添加两个标签控件、一个

12、文本框和一个滚动条。 （2）在代码窗口内输入以下程序代码。 3. 进阶实例变速滚动的字幕 （1）新建一个“标准 EXE”工程，在窗体上添加三个标签控件、一个水平滚动条和一个定时器控件。 （2）最后，在代码窗口内输入以下程序代码。 思考练习 1. 填空题（1）滚动条的取值范围由 属性和 属性决定，最大不能超过 。（2）当鼠标单击滚动条区域或按【PageUp】或【PageDown】键时，滚动条的Value值变化量由 属性决定，当鼠标单击滚动条的左右箭头时，Value值变化量由 属性决定。2. 程序设计题（1）设计一个程序，通过窗体上滚动条的变化，来左右或上下移动窗体上的标签。（2）设计一个程序，通

13、过滚动条的变化，修改窗体背景色。 【实例16】 模拟秒表 案例效果 本例制作了一个模似的秒表，可以用来进行计时，计时的时间可以精确到1/10秒。 技术分析 1. 定时器 （1）Enabled属性 （2）Interval属性 2. 定时器的特点 操作步骤 1.创建程序界面 2. 程序代码编辑在代码窗口中添加如下代码。 名 称Caption名 称Caption名 称CaptionForm1模拟秒表Command1开始Command4清零Label1模拟秒表Command2停止label2计时：Command3继续程序代码：Dim oldTime As DateDim mS As IntegerPr

14、ivate Sub Form_Load() Command2.Enabled = False 设置按钮状态 Command3.Enabled = False Command4.Enabled = False Text1.Text = 0:0.0 0End SubPrivate Sub Command1_Click() Timer1.Interval = 10 开始计时 Command1.Enabled = False 使按钮不可用 Command2.Enabled = True 激活按钮 Command3.Enabled = False Command4.Enabled = False old

15、Time = Time 记录起始时间End SubPrivate Sub Command2_Click() Timer1.Interval = 0 停止计时 Command1.Enabled = True 设置按钮状态 Command2.Enabled = False Command3.Enabled = True Command4.Enabled = TrueEnd Sub Private Sub Command3_Click() Timer1.Interval = 10 激活定时器,继续计时 Command1.Enabled = False Command2.Enabled = True

16、Command3.Enabled = False Command4.Enabled = FalseEnd SubPrivate Sub Command4_Click() Text1.Text = 0:0.0 0 文本框清零 oldTime = Time 重设起始时间End SubPrivate Sub Timer1_Timer() 下面程序将计算经过的时间 tm = Time - oldTime 计算经过的时分秒数 If mS 英Command6退出Label2中文：Command2中 0 And Len(Text2.Text) 0 Then 判断文本框不为空 添加单词来列表框 List2.A

17、ddItem (Text2.Text) End IfEnd SubPrivate Sub Command4_Click() Dim N As Integer N = List1.ListIndex List1.RemoveItem (N) 删除两个列表框中对应的词条 List2.RemoveItem (N)End Sub Private Sub Command5_Click() List1.Clear 清空列表框内容 List2.ClearEnd SubPrivate Sub Command6_Click() End 退出程序End SubPrivate Sub Form_Load() 下面代

18、码在List1添加初始化列表项 List1.AddItem (中国) List1.AddItem (计算机) List1.AddItem (程序) List1.AddItem (软件) List1.AddItem (设计) List1.AddItem (数据) List1.AddItem (编译) List1.AddItem (接口) List1.AddItem (互联网) List1.AddItem (服务器) List1.AddItem (可视化) List1.AddItem (对象) List1.AddItem (工程) List1.AddItem (控制) 下面代码在List2添加初始

19、化列表项 List2.AddItem (China) List2.AddItem (computer) List2.AddItem (program) List2.AddItem (software) List2.AddItem (design) List2.AddItem (data) List2.AddItem (compile) List2.AddItem (interface) List2.AddItem (Internet) List2.AddItem (service) List2.AddItem (visual) List2.AddItem (object) List2.AddI

20、tem (project) List2.AddItem (control)End Sub 知识进阶 1. 列表框在程序中的应用列表框在程序中除了可以用于添加、浏览外，还常用于从一个列表框向另一个列表框添加选项 2. 进阶实例学科选修 思考练习 1. 填空题（1）列表框主要的特点是 。（2） 方法可以为列表框添加新的列表项， 属性可获取当前列表项的内容。2. 程序设计题（1）设计一个程序，通过列表框进行标签文字大小、字体的选择。（2）设计一个程序，用20个随机数填充两个列表框，当选择两个列表框的相同序号的列表项时，提示并删除其中较小的数。 【实例18】 字体格式演示 案例效果 本例将演示在程序中

21、对字体格式的控制，程序中可以通过单选按钮、复选框、组合框等控件选择字体、字号、字形等字体的不同格式。 技术分析 1. 组合框组合框（ComboBox）是组合了文本框和列表框的特性而形成的一种控件，从外形上也分为两个部分。（1）下拉组合框 （2）简单组合框 （3）下拉列表框 技术分析2. 组合框的属性、方法与事件 （1）组合框也具有SelLength、SelStart和SelText这三个文本框特有的属性，用于选择组合框的文本框部分的内容。（2）当Style属性的值为0或1时，Text属性可用来返回或设置文本框中的文本内容。当Style属性的值为2时，Text属性可用来返回列表框中的内容，组合框

22、的Text属性在程序运行中是只读属性。（3）组合框中使用较多的事件是Click事件、DblClick事件、Change事件与Scroll事件。（4）只有当组合框下拉部分列表框中的内容被滚动时，才会触发Scroll事件。只有当组合框的文本框架部分发生输入操作，内容改变时，才会触发Change事件。 操作步骤 1. 创建程序界面（1）新建一个“标准EXE”工程，在窗体上添加三个标签控件、一个文本框和一个框架控件，再在框架控件内添加三个复选框控件、三个组合框控件和三个单选按钮。（2）按表4-11的内容对控件进行属性设置。表中未列出者使用其默认属性。 名称CaptionIndexTabIndex其 他

23、 属 性Label1字体演示BorderStyle=1-Fixed SingleLabel2字体格式演示Frame1格式设置Check1应用字体01Check1应用字体样式13Check1应用字体大小25Combo12Style=0-Dropdown ComboCombo24Style=1-Simple Combo Combo36Style=1-Simple ComboOption1左对齐07Option1居中对齐18Option1右对齐292. 程序代码编辑最后，在代码窗口输入如下代码。程序代码：Private Sub Check1_Click(Index As Integer) 通过数组下

24、标来判断单击了哪个复选框，并执行相应内容 Select Case Index Case 0 If Check1(0) = 1 Then Combo1_Click 调用Combo1_Click()过程 Else Label1.FontName = 宋体设置字体 End If Case 1 If Check1(1) = 1 Then Combo2_Click 调用Combo2_Click()过程 Else Label1.FontBold = False 设置为非粗体 Label1.FontItalic = False设置为非斜体 End If Case 2 If Check1(2) = 1 The

25、n Combo3_Click 调用Combo3_Click()过程 Else Label1.FontSize = 9 设置字体大小 End If End Select End SubPrivate Sub Combo1_Click() 组合框列表项被选择（单击） If Check1(0) = 1 Then 如果复选框被选中 Label1.FontName = Combo1.Text 设置字体 End IfEnd SubPrivate Sub Combo2_Click() If Check1(1) = 1 Then 如果复选框被选中 设置粗体与斜体格式 Select Case Combo2.Te

26、xt Case 常规 Label1.FontBold = False Label1.FontItalic = False Case 粗体 Label1.FontBold = True Label1.FontItalic = False Case 斜体 Label1.FontBold = False Label1.FontItalic = True Case 粗斜体 Label1.FontBold = True Label1.FontItalic = True End Select End IfEnd Sub Private Sub Combo3_Change() 组合框文字改变 If Chec

27、k1(2) = 1 Then Label1.FontSize = Val(Combo3.Text) End IfEnd SubPrivate Sub Combo3_Click() If Check1(2) = 1 Then 如果复选框被选中 Label1.FontSize = Val(Combo3.Text)设置字体大小 End IfEnd SubPrivate Sub Form_Load() 初始化组合框 Combo1.AddItem 宋体, 0 为组合框增加列表项 Combo1.AddItem 楷体_GB2312, 1 Combo1.AddItem 隶书, 2 Combo1.AddItem

28、 黑体, 3 Combo1.AddItem 幼圆, 4 Combo1.ListIndex = 0 设置当前选择的列表项 Combo2.AddItem 常规, 0 Combo2.AddItem 粗体, 1 Combo2.AddItem 斜体, 2 Combo2.AddItem 粗斜体, 3 Combo2.ListIndex = 0 Combo3.AddItem 9, 0 Combo3.AddItem 12, 1 Combo3.AddItem 16, 2 Combo3.AddItem 18, 3 Combo3.AddItem 20, 4 Combo3.AddItem 24, 5 Combo3.Ad

29、dItem 28, 6 Combo3.ListIndex = 0 设置单选按钮组的初始选项 Option1(0).Value = TrueEnd SubPrivate Sub Option1_Click(Index As Integer) 判断哪个单选按钮被选中，并执行相应动作 Select Case Index Case 0 Label1.Alignment = 0 标签左对齐 Case 1 Label1.Alignment = 2 标签文字居中对齐 Case 2 Label1.Alignment = 1 标签文字右对齐 End SelectEnd Sub 知识进阶 组合框与列表框都可用于在

30、多个项目中进行选择，但两者有着各自的特点。列表框只能通过点击进行选择，不能接受输入。组合框是组合了列表框和文本框的特性而成的控件，组合框兼有列表框和文本框的大多数功能，可以通过单击进行列表项的选择，也可以通过在文本框中输入文字进行选择。列表框可以提供复选功能当Style属性值为1，vbListBoxCheckbox时。而组合框不具有复选功能。 思考练习 1. 填空题（1）列表框控件和组合框控件都可以提供预定义的选项以供用户进行选择，最主要的区别在于 。（2）组合框的 属性决定组合框的样式，三种不同的组合框中， 和 可以响应Click事件， 和 可以响应Change事件。2. 程序设计题（1）对

31、前一节的“电子词典”程序进行修改，使用组合框控件代替列表框。（2）用30个随机数填充三个组合框，三个组合框的当前值对应一元二次方程的三个系数，当组合框当前值改变时，在文本框中显示该一元二次方程的根。 【实例19】 外部程序执行器 案例效果 在程序中，可以选择运行外部的可执行程序。程序运行时，可以像在Windows 资源管理器中一样选择并运行可执行程序。 技术分析 1驱动器列表框 2目录列表框 3文件列表框 2. 程序代码编辑在代码窗口中添加如下代码。程序代码：Private Sub Command1_Click() Dim clstr As String取得文件名称的后缀，并转化为小写字符 clsstr = StrConv(Right$(File1.FileName, 3), vbLowerCase) If clsstr = exe Then 比较后缀名以确定是否为可执行文件 Shell File1.FileName, 1 运行在文件列表框中选中的可执行文件 Else MsgBox 选择的文件不是Windows下的可执行文件(.exe)! End IfEn