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

标准控件二 2 1、掌握单选按钮控件的设置与使用 2、掌握复选框控件的设置与使用 单选按钮控件的设置与使用、复选框控件的设置与使用 单选按钮控件、复选框控件的属性设置与代码编写 10 10 　18 复习 评讲作业。 新课 标准控件二 一、选择控件—单选按钮 复选框和单选按钮的属性和事件 Value属性 Alignment属性 Style属性 应用举例 例：使用单选按钮使文本框中的字体改变大小。 Private Sub Option1_Click() Text1.FontSize = 14 End Sub Private Sub Option2_Click() Text1.FontSize = 18 End Sub 练习1：请用单选按钮使文本框中的字体改变颜色。 练习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.Captio