使用计时器控件TIMER.pptVIP

使用计时器控件（Timer） 使用单选按钮和复选框控件 验证用户输入 使用滚动条控件 专题七 常用控件的使用 7.1 使用计时器控件（Timer） 7.1.1 计时器控件的属性、方法和事件 7.1.2 计时器控件应用实例 例7-1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 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 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 Label2.Text = 现在的时间是： t Label2.Left = (Me.Width - Label1.Width) / 2 End Sub 7.2 使用单选按钮和复选框控件 7.2.1 单选按钮控件（RadioButton） 单选按钮RadioButton通常以一组的形式出现在窗体上，可以为用户提供选项，并显示该选项是否被选中（内部有一黑点者表示选中）。该控件常用于“多选一”的情况，当组内某个按钮被选中时，其他按钮将自动失效。如果需要在同一个窗体中创建多个单选按钮组，则需要将其绘制在不同的“容器”（如分组框和图片框等）中。其主要属性及事件见表所示。 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) 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 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 Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged If RadioButton1.Checked = True Then a = 黑体 End If If RadioButton2.Checked = True Then a = 宋体 End If If RadioButton3.Checked = True Then