Label Menü
- VB.NET
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von Sinlyu.
-
-
-
-
-
-
-
-
-
Etwas umständlich, aber funktioniert auch (Beispiel mit 2 Labels):
VB.NET-Quellcode
- Dim counter as integer
- 'Form_Load
- counter = 0
- 'Form_KeyDown
- If e.KeyCode = Keys.Down
- counter+=1
- Select case counter
- Case 1
- Label1.BorderStyle = BorderStyle.FixedSingle
- Label2.BorderStyle = BorderStyle.None
- Case 2
- Label1.BorderStyle = BorderStyle.None
- Label2.BorderStyle = BorderStyle.FixedSingle
- counter = 0
- End Select
- End If
-
Ich habe das jetzt so gemacht
VB.NET-Quellcode
- Private Sub Label2_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label2.MouseEnter
- Label2.ForeColor = Color.White
- Cursor = Cursors.Cross
- End Sub
- Private Sub Label2_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label2.MouseLeave
- Label2.ForeColor = Color.Gray
- Cursor = Cursors.Arrow
- End Sub
- Private Sub Label3_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label3.MouseEnter
- Label3.ForeColor = Color.White
- Cursor = Cursors.Cross
- End Sub
- Private Sub Label3_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label3.MouseLeave
- Label3.ForeColor = Color.Gray
- Cursor = Cursors.Arrow
- End Sub
- End Class
ich wollte eigentlich den gleichen effekt mit der tastatur kann ich aber nicht
Danke Cr4ckY hat Geklappt aber wie schaffe ich es jetzt wenn ich dann auch noch enter drücke z.b wenn label1 focusiert ist dan eine neue form erscheint ??Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Sinlyu“ ()
-
-
-
-
Danke aber bin selber noch auf die Lösung gekommen
Ich Trage Hier Noch Mal Den Zusammen Gefassten Code Zusammen:
VB.NET-Quellcode
- Dim counter as integer
- 'Form_Load
- counter = 0
- 'Form_KeyDown
- If e.KeyCode = Keys.Down
- counter+=1
- Select case counter
- Case 1
- Label1.BorderStyle = BorderStyle.FixedSingle
- Label2.BorderStyle = BorderStyle.None
- Case 2
- Label1.BorderStyle = BorderStyle.None
- Label2.BorderStyle = BorderStyle.FixedSingle
- counter = 0
- End Select
- End If
- If e.KeyCode = Keys.Enter Then
- If counter = 1 Then
- MsgBox("label2")
- Else
- MsgBox("label1")
- End If
- End if
Poste maDieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Sinlyu“ ()
-
Ähnliche Themen