Toets drukken dan opdracht

[WILLIAMXXX]

Hey,

Het lukt niet echt ik wil als je op een tets drukt dat die dan iets doet... Maar dat doet die natuurlijk niet

Heb deze code:

   Sub Form1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles MyBase.KeyPress
        If e.KeyChar = Keys.Enter.ToString Then
            nav()
        End If
    End Sub

 

[That Guy]

dat ligt eraan wat je wilt...

iets van

if e.keychar = 13 then
'enter-code
end if

mishcien werkt dit?

 

[eeyk]

jij helpte mijn nu ik jou hier is de code

Private Sub Text1_KeyPress(KeyAscii As Integer)
   
  If KeyAscii = 13 Then
     
WebBrowser1.Navigate (Text1.Text)


  End If
   
End Sub

Werkt ongeveer ook bij Vb.net effen de Text1.text aan passen en webbrowser1 naar de eigen namen

 

[That Guy]

zoals je aan de code van WILLIAM kon zien, gebruikt hij niet 6.0...

 

[WILLIAMXXX]

Ik wil de enter code gebruiken dus als er op Enter gedrukt wordt dat die dan iets doet wat ik wil...

 

[JHx]

Het "KeyDown"-event kan daarbij zeker van pas komen :thumb:

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
    'doe hier
    'een beetje
    'vanalles...
  End If
End Sub

Groetjes,
JHx.

 

[WILLIAMXXX]

oke, het is al gelukt!