使用计时器控(Timer).pptVIP

使用计时器控件（Timer） 使用单选按钮和复选框控件 验证用户输入 使用滚动条控件 7.1 使用计时器控件（Timer） 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.ToL