Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
If (e.KeyCode = Keys.Enter AndAlso e.Control) Then
Dim adresa As String = ComboBox1.Text
wb.Navigate(New Uri("http://www." & adresa & ".cz"))
End If
End Sub
A mimochodem, skládat adresu z "http://www." & adresa & ".cz/" není zrovna chytré. Zaprvé může adresa už na http... začínat a na .cz končit, a i kdyby ne, některé servery nepodporují "www." před subdoménami, tedy:
Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
If (e.KeyCode = Keys.Enter AndAlso e.Control) Then
Dim adresa As String = ComboBox1.Text
wb.Navigate(New Uri(iif(adresa.startswith("http://"), "", "http://") & adresa & iif(adresa.endswith("/"), "", "/"))
End If
End Sub
|