Question

在下面的视频中，用户点击时连接标签文字更改为处理（颜色=灰色），一段时间后变为连接（绿色），之后标签2自动从未连接变为红色（红色））到处理（颜色灰色），并在一段时间后更改为已验证（color = gren）我想在检查radiobutton1或radiobutton2并单击button1时，两个标签按照提到的顺序更改（完全像视频）请帮助我!!

我希望它变成这样：

http://www.youtube.com/watch?v=IoLzcY1e05I

所以这是我的表格：

Public Class t
Dim NewPoint As New System.Drawing.Point
Dim X, Y As Integer

Private Property WindowsState As FormWindowState

Private Sub Panel5_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel5.MouseDown
    X = Control.MousePosition.X - Me.Location.X
    Y = Control.MousePosition.Y - Me.Location.Y
End Sub

Private Sub Panel5_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel5.MouseMove
    If e.Button = Windows.Forms.MouseButtons.Left Then
        NewPoint = Control.MousePosition
        NewPoint.X -= (X)
        NewPoint.Y -= (Y)
        Me.Location = NewPoint
    End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Me.Close()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Me.WindowState = FormWindowState.Minimized
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Label1.Text = Me.Text
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

End Sub

End Class

通过单击按钮更改文本标签和颜色（带计时器）

0 个答案: