Im making a webbrowser and when I press enter in the textbox I want it to see if there is any domain in there and if so navigate to the url in textbox
This is what I've done right now
If e.KeyCode = Keys.Enter Then
If TextBox1.Text.Contains(".com") Or TextBox1.Text.Contains(".se") Or TextBox1.Text.Contains(".net") Or TextBox1.Text.Contains(".org") Or TextBox1.Text.Contains(".au") Or TextBox1.Text.Contains(".ws") Or TextBox1.Text.Contains(".co") Or TextBox1.Text.Contains(".biz") Or TextBox1.Text.Contains(".tv") Or TextBox1.Text.Contains(".info") Or TextBox1.Text.Contains(".int") Or TextBox1.Text.Contains(".gov") Or TextBox1.Text.Contains(".mil") Or TextBox1.Text.Contains(".dk") Or TextBox1.Text.Contains(".ac") Or TextBox1.Text.Contains(".ad") Or TextBox1.Text.Contains(".ae") Or TextBox1.Text.Contains(".af") Or TextBox1.Text.Contains(".ag") Or TextBox1.Text.Contains(".ai") Or TextBox1.Text.Contains(".au") Or TextBox1.Text.Contains(".an") Or TextBox1.Text.Contains(".at") Or TextBox1.Text.Contains(".eu") Or TextBox1.Text.Contains(".ax") Or TextBox1.Text.Contains(".ca") Or TextBox1.Text.Contains(".de") Or TextBox1.Text.Contains(".fi") Or TextBox1.Text.Contains(".gb") Or TextBox1.Text.Contains(".is") Or TextBox1.Text.Contains(".nz") Or TextBox1.Text.Contains(".us") Or TextBox1.Text.Contains(".uk") Then
Try
WebControl1.Source = New Uri(TextBox1.Text)
Catch ex As Exception
End Try
End If
End If
Aucun commentaire:
Enregistrer un commentaire