0

下のビデオでは、ユーザーが接続をクリックすると、ラベル テキストが処理中 (色 = グレー) に変わり、しばらくすると接続済み (緑) になり、その後、ラベル 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
4

0 に答える 0