1

Visual Basic 2010 で Web ブラウザーを使用していますが、同じテキスト ボックス内で検索して移動できる方法はないかと考えていました。以前に見たことがあるので、できることは知っていますが、どうすればよいかわかりません。私が何を話しているのかわからない場合は、検索したいものをURLバーに入力してEnterキーを押して検索することについて話している.そのURL。テキストボックスのキーダウンイベントが既にあり、ナビゲートするようにすべて設定されていますが、検索しません。検索する最良の方法は何でしょうか?

4

6 に答える 6

0

コードは次のとおりです。URL をスキャンしてもらいます。 If ComboBox1.Text.StartsWith("www.") Or ComboBox1.Text.EndsWith(".com") Or ComboBox1.Text.EndsWith(".com.au") Or ComboBox1.Text.EndsWith(".uk") Or ComboBox1.Text.EndsWith(".weebly") Or ComboBox1.Text.EndsWith(".co") Or ComboBox1.Text.EndsWith(".nf") Or ComboBox1.Text.EndsWith(".sh") Then ComboBox1.Items.Add(ComboBox1.Text) CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ComboBox1.Text) ComboBox1.Items.Add(ComboBox1.Text) Else CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("https://www.google.com.au/search?q=" & ComboBox1.Text)

    End If

于 2015-03-22T04:34:23.357 に答える
0

コードは次のとおりです。URL をスキャンしてもらいます。

If ComboBox1.Text.StartsWith("www.") Or ComboBox1.Text.EndsWith(".com") Or ComboBox1.Text.EndsWith(".com.au") Or ComboBox1.Text.EndsWith(".uk") Or ComboBox1.Text.EndsWith(".weebly") Or ComboBox1.Text.EndsWith(".co") Or ComboBox1.Text.EndsWith(".nf") Or ComboBox1.Text.EndsWith(".sh") Then
        ComboBox1.Items.Add(ComboBox1.Text)
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ComboBox1.Text)
        ComboBox1.Items.Add(ComboBox1.Text)
    Else
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("https://www.google.com.au/search?q=" & ComboBox1.Text)

    End If
于 2015-03-22T03:33:01.210 に答える
0

入力した内容が URL のように見えるかどうかをどうにかして判断し、そうでない場合は別の URL を作成して、検索エンジンに移動するようにナビゲートする必要があります。

正規表現をお勧めしたくなりますが、そうすると2 つの問題が発生します。

許容できる場合は、検索トークンを使用することをお勧めします。たとえば、最初の文字が a?であるかどうかを確認し、それを検索またはナビゲートするかどうかのトリガーとして使用できます。

? This will get searched

しかし残念ながら、それはユーザーにとっては簡単なことかもしれません...

This won't search because I'm missing the '?'
于 2013-10-17T14:57:33.870 に答える