Hab leider schon wieder ein Problem :(
Ich hatte die Textbox1 ausversehen gelöscht, und jetzt klappt das mit dem Enter schon wieder nicht mehr.
Das war die funktionierende Formel:
Code:
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyData = Keys.Enter Then
Button4.PerformClick()
e.SuppressKeyPress = True
End If
End Sub
Code:
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Enter Then
If TextBox1.Text.Contains(".de" Or ".com" Or ".us" Or ".to" Or ".uk" Or ".tk" Or ".net" Or ".co") Then
WebBrowser1.Navigate(TextBox1.Text)
Else
WebBrowser1.Navigate("http://www.google.de/search?hl=de&q=" & TextBox1.Text)
End If
End If
End Sub
Jetzt als ich die neue Textbox eingefügt hab, steht statt Key_Down, TextChanged da:
Code:
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Hab es dann so probiert:
Code:
Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyData = Keys.Enter Then
Button4.PerformClick()
e.SuppressKeyPress = True
End If
End Sub
Die .exe vor der Löschung der Textbox hab ich noch. Möchte aber ja weiterarbeiten. Wenn ich auf den Button klicke, klappt es ohne Probleme. Der Name der Textbox ist auch TextBox1.
Edit: Ich mach die Suche jetzt in einer extra Suchbox. Es geht mir nur darum, mit Enter weiter zu kommen.
Ich habe schon sehr lange nicht mehr gecodet, aber eigentlich müsste es wie folgt aussehen: