下のビデオでは、ユーザーが接続をクリックすると、ラベル テキストが処理中 (色 = グレー) に変わり、しばらくすると接続済み (緑) になり、その後、ラベル 2 が未接続 (赤) から処理中に自動的に変更されます。 ( color Gray ) しばらくすると Verified に変わります ( color = gren ) radiobutton1 または radiobutton2 をチェックして button1 をクリックすると、2 つのラベルが上記と同じ順序で変更されます (ビデオとまったく同じです) 助けてください !!
さて、私はそれがこのようになりたい:
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