Hi, ich würde gerne in meiner Form die Enter Taste auswerten.
Habe schon ein par sachen probiert, aber noch hat nichts funktionert...
Hier mal 2 meiner Versuche:





PrivateSub Form1_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) HandlesMe.KeyPress

If Asc(e.KeyChar) = 13 Then

MsgBox("test")

EndIf
EndSub




und :


PrivateSub Form1_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) HandlesMe.KeyPress
If e.KeyChar = "13" Then
MsgBox("Test")
End If

EndSub






wie gesagt, irgendwie funktioniert es nicht.

kann mir vielleicht jemand weiter helfen?



Ich möchte gerne später anstatt der MsgBox mir Werte in eine txt oder Excel datei speichern.
Weis nicht genau ob das relevant ist für die funktion...

Ich glaube das geht mit

hi,

habe dienen code probiert, bekomme aber die meldung das "vbKeyReturn" nicht deklariert ist...

ich ahbe kein VB hier und weiß nicht genau wie es heißt. Aber es ist ein Ansatz, nachdem du suchen kannst!
Gibt auch ein paar Themen die das mit dem Tastendruck behandeln!

Edit: Versuch es mal mit



oder zumindest Keys. eintippen und schauen was in der PopupListe dann angezeigt wird!

[VB.NET] Tastenkombi

hi,

also:

Bei:
"If e.KeyChar = Keys.Return Then"

kommt die meldung das "=" nicht für charakter geht.



bei

"If
e.KeyChar.ToString = Keys.Return Then"
passiert nichts.
Ist der Aufruf im Sub "PrivateSub Form1_KeyPress..."
überhaupt richtig? wenn nein, wo sollte ich es sonst aufrufen.



mfg

Und das in das Event "KeyPress", entweder in die Form, eine Textbox oder was weiß ich was


lg

Hi,



habe folgenden code probiert :




Sub Form1_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) HandlesMe.KeyPress
If Asc(e.KeyChar) = Keys.Enter ThenMsgBox("test")
EndIf
EndSub


in meinem projekt geht es nicht, in einem neuen leeren projekt funktioniert es ohne probleme...
danke für die hilfe. werde mal sehen ob ich das irgendwie in meinem projekt zum laufen bekomme.


mfg

Poste doch mal den Code vom Projekt (aber bitte nur den hier wichtigen ;))

Vll können wir dir helfen

hi,

habe das "kaputte" projekt schon gelöscht, und ein neues erstellt, aber an sich dürfte der code und die verwendeten objekte 1:1 die selben sein:




PublicClass Form1
Dim status AsBoolean

Sub Form1_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) HandlesMe.KeyPress
SelectCase statusCase 1
If Asc(e.KeyChar) = Keys.Enter ThenMsgBox("X: " & Cursor.Position.X & " Y: " & Cursor.Position.Y, MsgBoxStyle.Information, "Mauskoordinaten")
EndIfCase 0
ExitSub
EndSelectEndSub

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Timer1.Interval = 100
Timer1.Start()
KeyPreview = True
EndSubSub Timer1_Tick(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Label1.Text = "X: " & Cursor.Position.XMe.Label2.Text = "Y: " & Cursor.Position.Y
Me.Text = "X: " & Cursor.Position.X & "Y: " & Cursor.Position.Y
EndSubPrivateSub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = TrueThen
status = 1
Else
status = 0
EndIfEndSub
EndClass

Mach das Case weg, also das ist der richtige Code:

hi,

ich brauche die case anweiseung weil ich später bedingt die koordinaten weg schreiben möchte.
in der forum in der ich den code online gestellt habe ist es noch sinnlos, aber für später recht nützlich.

trotzdem danke.



mfg

Funktioniert das mit Enter denn wenn du Case weglässt?