常用控件和窗体--单选钮、复选框、框架

教学目的：

1.掌握对单选钮、复选框、框架的使用 

教学内容： 

1.单选钮的基本属性、方法、事件

2.复选框的基本属性、方法、事件

3.小结对象的常用属性、方法、事件

教学重点：

1. 单选钮、复选框的使用

教学方法：任务驱动式

依据学过的对象的基本属性、方法、事件，每人完成实践题目，修改总结

学习方法：由理论到实践再到理论的学习方法（由学生依据学习的知识点完成实践题目，再讨论修改，最后由学生、老师共同总结）

教学过程：

一引言

              通过上周实践课的总结得出学生对新知识的掌握及出现的问题：

          1.对Basic知识的掌握情况比较薄弱。解决方法：今后遇到的编程要详细解释，并掌握。

          2．少部分学生可完成全部实践内容，掌握较好。大多数学生对面向对象有所体会，本节课进一步结合新知识祥述对象与事件驱动的概念。

二本节内容

第二章 常用控件和窗体

2．2 单选按钮、复选框、框架

2．2．1单选按钮（optionbutton）

　作用：显示一个可打开/关闭的选项（同一组只可选中一个选项）

　属性： 

　　.value= true ‘选中了控件代表的项 

　　.value= false ‘没有选中控件代表的项

Style属性：设置控件的外观

事件：

Click事件：当单击单选按钮时发生

注意：当单选按钮的value设为true时，相当于进行click事件。

说明：（1）要使某个单选按钮成为缺省按钮，只要设计时将其Value属性设置成True

     （2）要禁用单选按钮，将Enabled属性设置成False

2．2．2复选框（checkbox）

属性：.value= 1 ‘表该项选中 

　　　　　　　0 ‘表未选中 

　　　　　　　2 ‘表禁止

Style属性：设置控件的外观。

事件：click (不支持双击)

2．2．3框架（frame）

若要在同一窗体上建立几组相互的单选按钮，通常用框架将每一组单选按钮框起来（分组）

注意（1）只能在框架中画控件的方法向框架中添加控件，不能用双击的方式，也不能先画出控件在添加到框架中。

（2）如果用框架将窗体上现有的控件进行分组，可先选定这些控件，将它们剪切、粘贴到框架中。

1、属性

（1）Caption属性

（2）Enabled属性

2、由于框架的主要作用是对控件进行分组，所以没有必要相应它的事件

例2－2同学录

Private Sub Cmdadd_Click()

Dim strtemp As String

strtemp = strtemp & Txtname.Text

If Optmale Then

    strtemp = strtemp & 男"

Else

    strtemp = strtemp & 女"

End If

If Optmid.Value Then

    strtemp = strtemp & 中学同学"

ElseIf Optcollege.Value Then

     strtemp = strtemp & 大学同学"

ElseIf Optgradute.Value Then

     strtemp = strtemp & 研究生同学"

End If

If Chkphone.Value = 1 Then

    strtemp = strtemp & 电话：" & Txtphone.Text

End If

If Chkmobile.Value = 1 Then

    strtemp = strtemp & 手机：" & Txtmobile.Text

End If

If Chkmail.Value = 1 Then

    strtemp = strtemp & 邮箱：" & Txtmail.Text

End If

Txtresult.Text = Txtresult.Text & strtemp & Chr(13) & Chr(10)

End Sub

Private Sub Cmdexit_Click()

End

End Sub

小结：1.对象的常用属性 

2.对象的常见事件（鼠标和键盘）

(1)鼠标事件 

MouseDown：当鼠标的任一键被按下时触发该事件。

MouseUp：当鼠标的任一键被释放时触发该事件。

MouseMove：鼠标被移动时触发该事件

鼠标事件的语法结构基本相同，以Form对象为例，它们的语法格式为：

Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)

Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)

Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)

(2)键盘事件

对象识别的键盘事件：

KeyPress 事件：用户按下并且释放一个会产生ASCII码的键时被触发。

           KeyUP事件：用户按下键盘上任意一个键时被触发。

           KeyDown  事件：用户释放键盘上任意一个键时被触发。 

键盘事件的语法格式为：

Sub Object_KeyPress([Index As Integer,] KerAscii As Integer)

Sub Object_KeyUP([Index As Integer,] KerCode  As Integer,Shift As Integer)

Sub Object_KeyDown([Index As Integer,] KerCode  As Integer,Shift As Integer)

3 拖放

(1)属性

DragMode 属性：该属性用来设置自动或手工拖放模式。

           DragIcon属性：该属性用于改变拖动图标。拖动控件时，Visual Basic 将控件的灰色轮廓作为默认的拖动图标。对 DragIcon 属性进行设置，即可用其他图像代替该轮廓。

(2)事件

DragDrop事件：当把控件（图标）拖到目标之后，如果松开鼠标键，则产生一个DragDrop事件。

           DragOver事件：DragOver事件用于图标的移动。当拖动对象越过一个控件时，产生DragOver事件。

(3)方法

           Drag 方法的语法为：[对象名.]Drag  [action]

三本节知识小结

1.单选钮的使用

2.复选框的使用

3.框架的使用

4.小结对象的常用属性、方法、事件

四课后实践

1．课堂例题

2. 将已知的两个数据进行：乘法、除法、加法、减法运算

3.实现如下功能

4．利用框架、单选钮、复选框实现留言板