常用控件和窗体--单选钮、复选框、框架
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
本节题目:第二章常用控件和窗体----单选钮、复选框、框架
教学目的:
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 (不支持双击)
若要在同一窗体上建立几组相互独立的单选按钮,通常用框架将每一组单选按钮框起来(分组)
注意(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.小结对象的常用属性、方法、事件
四课后实践