0

在下面的视频中，当用户点击连接标签文本更改为处理中（颜色 = 灰色）并在一段时间后变为已连接（绿色），然后 label2 自动从未连接（红色）更改为处理中（颜色灰色）一段时间后更改为已验证（颜色 = 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
4

0 回答 0