使用计时器控件(Timer)PPT课件
合集下载
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
End If
If RadioButton2.Checked = True Then a = "宋体"
End If
If RadioButton3.Checked = True Then a = "隶书"
End If
TextBox1.Font = New Font(a, 12, FontStyle.Regular)
-
8
Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
If RadioButton1.Checked = True Then a = "黑体"
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim d As Date = Date.Now
Dim t As String = d.ToLongTimeString
End Sub
-
10
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
If RadioButton1.Checked = True Then a = "黑体"
Label2.Text = "现在的时间是：" & t
Label2.Left = (Me.Width - Label1.Width) / 2
End Sub
-
4
7.2 使用单选按钮和复选框控件
7.2.1 单选按钮控件（RadioButton）
单选按钮RadioButton通常以一组的形式出现在窗体上，可以为用户提供 选项，并显示该选项是否被选中（内部有一黑点者表示选中）。该控件常用 于“多选一”的情况，当组内某个按钮被选中时，其他按钮将自动失效。如 果需要在同一个窗体中创建多个单选按钮组，则需要将其绘制在不同的“容 器”（如分组框和图片框等）中。其主要属性及事件见表所示。
End If
If RadioButton2.Checked = True Then a = "宋体"
End If
If RadioButton3.Checked = True Then a = "隶书"
End If
TextBox1.Font = New Font(a, 16, FontStyle.Regular)
End If
If RadioButton2.Checked = True Then a = "宋体"
End If
If RadioButton3.Checked = True Then a = "隶书"
End If
TextBox1.Font = New Font(a, 24, FontStyle.Regular)
End Sub
-
11
7.2 使用单选按钮和复选框控件
7.2.2 复选框控件（CheckBox）
复选框控件CheckBox与单选按钮控件RadioButton的作用差不多，只是 CheckBox允许用户从程序提供的多个选项中选中一个或多个供选项。 CheckBox组中的某个选项被选中时其他选项不会失效。其主要的属性和事 件见表5-7。
Dim d As Date = Date.Now
Dim dd As String = d.ToLongDateString
Me.Text = "日期和时间"
Timer1.Interval = 1000
Timer1.Start() '启动计时器
Label1.Text = "今天的日期是：" & dd
Label1.Left = (Me.Width - Label1.Width) / 2
End If If RadioButton5.Checked = True Then
b = 16 End If If RadioButton6.Checked = True Then
b = 12 End If TextBox1.Font = New Font("黑体", b, FontStyle.Regular) End Sub
-
7
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton4.Checked = True Then b = 24
End Sub
-Hale Waihona Puke 9Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
If RadioButton1.Checked = True Then a = "黑体"
-
5
-
6
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RadioButton1.Checked = True
RadioButton6.Checked = True TextBox1.Font = New Font("黑体", 12)
专题七 常用控件的使用
使用计时器控件（Timer） 使用单选按钮和复选框控件 验证用户输入 使用滚动条控件
-
1
7.1 使用计时器控件（Timer）
7.1.1 计时器控件的属性、方法和事件
7.1.2 计时器控件应用实例
例7-1
-
2
-
3
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If RadioButton2.Checked = True Then a = "宋体"
End If
If RadioButton3.Checked = True Then a = "隶书"
End If
TextBox1.Font = New Font(a, 12, FontStyle.Regular)
-
8
Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
If RadioButton1.Checked = True Then a = "黑体"
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim d As Date = Date.Now
Dim t As String = d.ToLongTimeString
End Sub
-
10
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
If RadioButton1.Checked = True Then a = "黑体"
Label2.Text = "现在的时间是：" & t
Label2.Left = (Me.Width - Label1.Width) / 2
End Sub
-
4
7.2 使用单选按钮和复选框控件
7.2.1 单选按钮控件（RadioButton）
单选按钮RadioButton通常以一组的形式出现在窗体上，可以为用户提供 选项，并显示该选项是否被选中（内部有一黑点者表示选中）。该控件常用 于“多选一”的情况，当组内某个按钮被选中时，其他按钮将自动失效。如 果需要在同一个窗体中创建多个单选按钮组，则需要将其绘制在不同的“容 器”（如分组框和图片框等）中。其主要属性及事件见表所示。
End If
If RadioButton2.Checked = True Then a = "宋体"
End If
If RadioButton3.Checked = True Then a = "隶书"
End If
TextBox1.Font = New Font(a, 16, FontStyle.Regular)
End If
If RadioButton2.Checked = True Then a = "宋体"
End If
If RadioButton3.Checked = True Then a = "隶书"
End If
TextBox1.Font = New Font(a, 24, FontStyle.Regular)
End Sub
-
11
7.2 使用单选按钮和复选框控件
7.2.2 复选框控件（CheckBox）
复选框控件CheckBox与单选按钮控件RadioButton的作用差不多，只是 CheckBox允许用户从程序提供的多个选项中选中一个或多个供选项。 CheckBox组中的某个选项被选中时其他选项不会失效。其主要的属性和事 件见表5-7。
Dim d As Date = Date.Now
Dim dd As String = d.ToLongDateString
Me.Text = "日期和时间"
Timer1.Interval = 1000
Timer1.Start() '启动计时器
Label1.Text = "今天的日期是：" & dd
Label1.Left = (Me.Width - Label1.Width) / 2
End If If RadioButton5.Checked = True Then
b = 16 End If If RadioButton6.Checked = True Then
b = 12 End If TextBox1.Font = New Font("黑体", b, FontStyle.Regular) End Sub
-
7
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton4.Checked = True Then b = 24
End Sub
-Hale Waihona Puke 9Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
If RadioButton1.Checked = True Then a = "黑体"
-
5
-
6
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RadioButton1.Checked = True
RadioButton6.Checked = True TextBox1.Font = New Font("黑体", 12)
专题七 常用控件的使用
使用计时器控件（Timer） 使用单选按钮和复选框控件 验证用户输入 使用滚动条控件
-
1
7.1 使用计时器控件（Timer）
7.1.1 计时器控件的属性、方法和事件
7.1.2 计时器控件应用实例
例7-1
-
2
-
3
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load