vb第16单选按钮、复选框控件

简要介绍资料的主要内容,以获得更多的关注

标准控件二

1、掌握单选按钮控件的设置与使用 2、掌握复选框控件的设置与使用

单选按钮控件的设置与使用、复选框控件的设置与使用

单选按钮控件、复选框控件的属性设置与代码编写

复习 评讲作业。 新课

标准控件二

一、选择控件—单选按钮 复选框和单选按钮的属性和事件 Value属性 Alignment属性 Style属性 应用举例

例：使用单选按钮使文本框中的字体改变大小。 Private Sub Option1_Click() Text1.FontSize = 14 End Sub

Private Sub Option2_Click() Text1.FontSize = 18 End Sub

练习1：请用单选按钮使文本框中的字体改变颜色。

2

10

10 18

简要介绍资料的主要内容,以获得更多的关注

练习2：使用单选按钮控制窗口大小怎样编写代码。想在窗体中加载图片怎样编写代码，想使图片随窗口大小变化怎么办(提示：可以使用图像框)。

Private Sub Option1_Click() Form1.WindowState = 0 Form1.Top = 100 Form1.Left = 100

Form1.Height = 7000 '产生窗口的随机大小时用Rnd * 7000 Form1.Width = 10000 Image1.Top = 0 Image1.Left = 0

Image1.Height = Form1.Height Image1.Width = Form1.Width Image1.Stretch = True

简要介绍资料的主要内容,以获得更多的关注

Image1.Picture = LoadPicture("d:\hua.jpg") End Sub

Private Sub Option2_Click() Form1.WindowState = 2 Image1.Top = 0 Image1.Left = 0

Image1.Height = Form1.Height Image1.Width = Form1.Width Form1.Picture

LoadPicture("d:\hua.jpg") End Sub

二、选择控件—复选框 例：使用复选框显示文本框中的字体分别为下划线、倾斜、粗体

Private Sub Check1_Click() Text1.FontUnderline = True End Sub

Private Sub Check2_Click() Text1.FontItalic = True End Sub

Private Sub Check3_Click() Text1.FontBold = True End Sub

该例在运行时复选框取消时有何表现？

问：复选框取消时如何设置代码，使其没有下划线等效果？ Private Sub Check1_Click()

If Check1.Value = 1 Then

=

简要介绍资料的主要内容,以获得更多的关注

Text1.FontUnderline = True Else

Text1.FontUnderline = False End If End Sub

Private Sub Check2_Click() If Check2.Value = 1 Then Text1.FontItalic = True Else

Text1.FontItalic = False End If End Sub

Private Sub Check3_Click() If Check3.Value = 1 Then Text1.FontBold = True Else

Text1.FontBold = 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 Check1.Value = 1 Then txt1 = Check1.Caption

End If

简要介绍资料的主要内容,以获得更多的关注

End Sub

Private Sub Check2_Click() If Check2.Value = 1 Then txt2 = Check2.Caption End If End Sub

Private Sub Check3_Click() If Check3.Value = 1 Then txt3 = Check3.Caption End If End Sub

Private Sub Check4_Click() If Check4.Value = 1 Then txt4 = Check4.Caption End If End Sub

Private Sub Command1_Click()

MsgBox "您的爱好是：" & vbCrLf & txt1 & vbCrLf & txt2 & vbCrLf & txt3 & vbCrLf & txt4 End Sub 作业：P99 5 小结

1、掌握单选按钮控件的设置与使用 2、掌握复选框控件的设置与使用 学生练习