(中职）Visual Basic 6.0程序设计第4章ppt课件-【中职专用】《计算机类》同步教学课件

Visual Basic常用控件 【实例13】 电子试卷选择题 【实例14】 单项选择 【实例15】 调色板 【实例16】 模拟秒表 【实例17】 电子词典 【实例18】 字体格式演示 【实例19】 外部程序执行器 【实例13】 电子试卷选择题 案例效果 本例中给出了一个电子试卷的选择题界面的应用程序，程序运行后效果，程序运行时，通过单击某个选项按钮进行答案的选择，此时会弹出一个消息对话框，说明选择是否正确。 技术分析 1. 控件分类 2. 焦点和【Tab】键的顺序 （1）焦点 （2）对象接受焦点的条件 （3）【Tab】键的顺序 （4）与焦点有关的事件和方法 3. 控件数组 （1）控件数组的创建 （2）与控件数组有关的属性 （3）控件数组的使用 操作步骤 1. 创建程序界面 （1）新建一个“标准 EXE”工程 ，在窗体上添加一个文本框和一个命令按钮控件。再设置文本框控件的TabStop属性为False，使得文本框不能接受焦点；设置Multiline属性为True，使文本框可显示多行文字；设置文本框Locked属性为True，锁定文本框的内容，使程序运行中不能通过键盘输入/删除字符。 （2）按照前面所学的方法，以将命令按钮控件进行复制、粘贴的方式创建按钮控件数组，并按先后顺序，依次设置按钮的Caption属性为“A”、“B”、“C”、“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 Sub Private Sub Command1_Click(Index As Integer) Select Case Index '对控件数组的索引值进行判断 Case 0 MsgBox "回答正确！" Case 1 MsgBox "回答错误！正确答案为A" Case 2 MsgBox "回答错误！正确答案为A" Case 3 MsgBox "回答错误！正确答案为A" End Select End Sub 知识进阶 1.动态控件数组 2. 进阶实例——动态按钮 （1）新建一个“标准.EXE”工程 ，在窗体上添加一个命令按钮控件。 （2）最后，在程序中输入如下代码。 思考练习 1. 填空题 （1）通过设置控件对象的 属性值可以改变【Tab】键的顺序， 属性决定一个对象是否能被【Tab】键选中。 （2）控件数组具有相同的 ，以惟一的 对其进行区分。 2. 程序设计题 （1）创建一个程序，程序中有六个按钮，任意时刻显示其中一个，当单击该按钮时，将隐藏该按钮，并随机显示另一个按钮。 （2）创建一个程序界面，它有三个按钮，其中两个是程序运行中产生的，鼠标移到不同的按钮上时，鼠标指针会发生变化。 【实例14】 单项选择 案例效果 本例中，使用了单选按钮来对“电子试卷的选择题”实例进行改进，利用了单选按钮互斥的特点，让选项中只有一个能被选中，使程序更具有实用性。 技术分析 1.单选按钮 2. 复选框 3. 单选按钮和复选框的属性 （1）Caption属性 （2）Alignment属性 （3）Value属性 （4）Style属性 操作步骤 1.创建程序界面 2. 程序编辑代码 最后，在代码窗口内输入以下程序代码。 程序代码： Private Sub Command1_Click() If Option1(2) = True Then '判断是否是正确的单选按钮被选择 MsgBox "选择正确！" Else MsgBox "选择错误！" End If End Sub 知识进阶 1.框架及其应用 （1）Caption属性 （2）Enabled属性 （3）Visible属性 2. 进阶实例——属性演示 3. 进阶实例——字体格式选择 思考