admin 管理员组文章数量: 1184232
2024年3月27日发(作者：shell脚本实用案例)
标准控件二
1、掌握单选按钮控件的设置与使用
2、掌握复选框控件的设置与使用
单选按钮控件的设置与使用、复选框控件的设置与使用
单选按钮控件、复选框控件的属性设置与代码编写
复习
评讲作业。
新课
标准控件二
一、选择控件—单选按钮
复选框和单选按钮的属性和事件
Value属性
Alignment属性
Style属性
应用举例
例：使用单选按钮使文本框中的字体改变大小。
Private Sub Option1_Click()
ze = 14
End Sub
Private Sub Option2_Click()
ze = 18
End Sub
练习1：请用单选按钮使文本框中的字体改变颜色。
2
10
10 18
练习2：使用单选按钮控制窗口大小怎样编写代码。想在窗体中
加载图片怎样编写代码，想使图片随窗口大小变化怎么办(提示：
可以使用图像框)。
Private Sub Option1_Click()
State = 0
= 100
= 100
= 7000 '产生窗口的随机大小时用Rnd * 7000
= 10000
= 0
= 0
=
=
h = True
e = LoadPicture("d:")
End Sub
Private Sub Option2_Click()
State = 2
= 0
= 0
=
=
e
LoadPicture("d:")
End Sub
二、选择控件—复选框
例：使用复选框显示文本框
中的字体分别为下划线、倾
斜、粗体
Private Sub Check1_Click()
derline = True
End Sub
Private Sub Check2_Click()
alic = True
End Sub
Private Sub Check3_Click()
ld = True
End Sub
该例在运行时复选框取消时有何表现？
问：复选框取消时如何设置代码，使其没有下划线等效果？
Private Sub Check1_Click()
If = 1 Then
=
derline = True
Else
derline = False
End If
End Sub
Private Sub Check2_Click()
If = 1 Then
alic = True
Else
alic = False
End If
End Sub
Private Sub Check3_Click()
If = 1 Then
ld = True
Else
ld = False
End If
练习1：使用复选框列出休闲项目，运行时把选择的项目用msgbox
显示出来。
Public txt1 As String
Public txt2 As String
Public txt3 As String
Public txt4 As String
Private Sub Check1_Click()
If = 1 Then
txt1 = n
End If
End Sub
Private Sub Check2_Click()
If = 1 Then
txt2 = n
End If
End Sub
Private Sub Check3_Click()
If = 1 Then
txt3 = n
End If
End Sub
Private Sub Check4_Click()
If = 1 Then
txt4 = n
End If
End Sub
Private Sub Command1_Click()
MsgBox "您的爱好是：" & vbCrLf & txt1 & vbCrLf & txt2 &
vbCrLf & txt3 & vbCrLf & txt4
End Sub
作业：P99 5
小结
1、掌握单选按钮控件的设置与使用
2、掌握复选框控件的设置与使用
学生练习
版权声明：本文标题：vb第16单选按钮、复选框控件 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1711479553a596189.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论