Vb.net 从文本框开关/参数进行自定义搜索

我想我有点设计过度了。非常感谢您对我如何解决这个小问题的帮助。我有一个可以搜索多个站点的应用程序。但是如果用户键入一个自定义参数g=，那么它将搜索google。现在的问题是，它从我搜索词的第一个单词中去掉了G。例如，如果我输入g=golf game，google会弹出olf game。在其他搜索中，=字符被剥离。我应该使用contains而不是这个自定义firstChars函数吗

这是我的密码：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Enter text to search on." & vbCrLf & Err.Description, MsgBoxStyle.Information, "Need search term to search on.")
            TextBox1.Focus()
        End If
        Try
            'CHECK FOR GOOGLE.COM SEARCHING
            Dim MyString As String = TextBox1.Text
            Dim MyChar() As Char = {"g", "G", "="}
            Dim NewString As String = MyString.TrimStart(MyChar)
            Dim myUri As New Uri("http://google.com/search?hl=en&q=" & NewString)
            Dim first2Chars As String
            Dim first3Chars As String
            Dim first4Chars As String
            first2Chars = TextBox1.Text.Substring(0, 2)
            first3Chars = TextBox1.Text.Substring(0, 3)
            first4Chars = TextBox1.Text.Substring(0, 4)
            MsgBox(first2Chars)
            If first2Chars = "G=" Or first2Chars = "g=" Then
                System.Diagnostics.Process.Start(myUri.AbsoluteUri)
            ElseIf first3Chars = "TS=" Or first3Chars = "ts=" Then
                System.Diagnostics.Process.Start("https://localhost/search.do?query=" & Net.WebUtility.UrlEncode(TextBox1.Text))
            ElseIf first4Chars = "PIC=" Or first4Chars = "pic=" Then
                System.Diagnostics.Process.Start("https://localhost/search.do?query_pic=" & Net.WebUtility.UrlEncode(TextBox1.Text))
            End If
        Catch ex As Exception
            MsgBox("Error running search. The error was: " & vbCrLf & Err.Description, MsgBoxStyle.Exclamation, "Error")
        End Try

    End Sub

---

是的。这引发了修复。谢谢你，马克！修复了此问题：

如果TextBox1.Text.StartsWith（“G=”）或TextBox1.Text.StartsWith（“G=”），则MyString=MyString.Remove（0,2）System.Diagnostics.Process.Start（“http://google.com/search?hl=en&q=“&Net.WebUtility.UrlEncode（MyString））如果