Enter toets

[bonnowagt]

Hallo,

Visual Basic 2010.

Ik wil in enkele formulier voorkomen dat men de Enter toets kan gebruiken dus verplicht is om met de muis te klikken. Heb diverse dingen geprobeerd maar krijg het niet voor elkaar. Waarschijnlijk is het heel eenvoudig maa rik vind het niet.

Alvast bedankt en vriendelijke groet

 

[Ophetwerk]

Voorkomen dat de enter-toets werkt.

Bij bijvoorbeeld een button click of zo .

Hiervoor zij diverse mogelijkheden bv de button, als het een button betreft dynamisch aan te maken.

Public Sub but05()
Dim button1 = New Button()

button1.Location = New Point(20, 10)
button1.Text = "Click Me"

AddHandler button1.MouseClick, AddressOf Click_me
End Sub

Private Sub Click_me()
MsgBox("Cilck Me")
End Sub

 

[bonnowagt]

Ja inderdaad ik heb het iets verkeerd uitgelegd denk ik.

Ik krijg een msgbox met OK. Daarop mag niet met een ENTER toets worden gereageerd alleen met een muisklik.
Is deze uit te schakelen en anders zou ik graag willen weten of ik de toetsenbord kan uitschakelen, dus bijvoorbeeld het formulier wordt geladen en het toetsenbord gedeblokkeerd. Bij het closing form moet het toetsenbord dan weer worden geactiveerd

Hoop dta ik dit duidelijker heb omschreven

 

[JoZ1]

Een nieuwe button class maken:

[cpp]Public Class ButtonEx
Inherits Button

Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
Return keyData = Keys.Enter OrElse MyBase.ProcessCmdKey(msg, keyData)
End Function

End Class[/cpp]