jeudi 25 juin 2015

If in if in vb.net

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