vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2022
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Click und KeyDown Problem 
Autor: Andreas M.
Datum: 29.01.22 15:05

Hallo,

bin VB6 auf Visual Basic 2019 Umsteiger

ich möchte gerne die 3 Button über die Enter Taste steuern
was auch funktioniert, aber nicht so wie es soll.
Wenn der Button den Fokus hat und ich die Enter Taste drücke werden die Anweisungen im Click Event ausgeführt, aber nicht die des KeyDown

Im Label2 wird kein Text geändert

Was mache ich bitte falsch ???


Beispiel Gif Animation
http://www.spesenroth.de/forums/ClickKeyDown.gif

Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        AlleButtonSilber()
        Button1.BackColor = Color.Yellow
        Button1.Select()
    End Sub
 
    Private Sub AlleButtonSilber()
        Button1.BackColor = Color.Silver
        Button2.BackColor = Color.Silver
        Button3.BackColor = Color.Silver
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Label1.Text = "Click 1"
        AlleButtonSilber()
        Button2.BackColor = Color.Yellow
        Button2.Select()
    End Sub
 
    Private Sub Button1_KeyDown(sender As Object, e As KeyEventArgs) Handles _
      Button1.KeyDown
        If e.KeyCode = Keys.Enter Then
            Label2.Text = "Enter wurde gedrückt KeyDown 1"
            'Button2.Select()
        End If
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles _
      Button2.Click
        Label1.Text = "Click 2"
        AlleButtonSilber()
        Button3.BackColor = Color.Yellow
        Button3.Select()
    End Sub
 
    Private Sub Button2_KeyDown(sender As Object, e As KeyEventArgs) Handles _
      Button2.KeyDown
        If e.KeyCode = Keys.Enter Then
            Label2.Text = "Enter wurde gedrückt KeyDown 2"
            'Button3.Select()
        End If
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles _
      Button3.Click
        Label1.Text = "Click 3"
        AlleButtonSilber()
        Button1.BackColor = Color.Yellow
        Button1.Select()
    End Sub
 
    Private Sub Button3_KeyDown(sender As Object, e As KeyEventArgs) Handles _
      Button3.KeyDown
        If e.KeyCode = Keys.Enter Then
            Label2.Text = "Enter wurde gedrückt KeyDown 3"
            'Button1.Select()
        End If
    End Sub
End Class
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Click und KeyDown Problem215Andreas M.29.01.22 15:05
Re: Click und KeyDown Problem100Manfred X29.01.22 19:21
Re: Click und KeyDown Problem92Andreas M.29.01.22 21:05
Re: Click und KeyDown Problem87Andreas M.29.01.22 22:43
Re: Click und KeyDown Problem113Andreas M.30.01.22 00:04
Re: Click und KeyDown Problem133Manfred X30.01.22 06:13

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2022 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel