从ComboBox中选择项目以在WebBrowser上打开Web链接?

时间:2015-06-04 23:18:08

标签: vb.net webbrowser-control

我一直在四处寻找如何制作组合框列表选择来访问webbrowser上的网页。例如,如果我选择名为“Google”的组合框中的第一个项目,那么我会按下它旁边的按钮以访问网络浏览器上的谷歌。

我得到了这段代码,但它不起作用,一旦我选择第一个选项,没有任何反应。

    If ComboBox1.SelectedIndex = 1 Then
        WebBrowser1.Navigate("https://www.google.ca/?gws_rd=ssl")
    End If

我似乎非常接近,但我没有线索为什么它不起作用..

2 个答案:

答案 0 :(得分:1)

试试这个......

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Select Case ComboBox1.SelectedItem
        Case "Please Select"
            MsgBox("ERROR - No selection made in dropdown box!")
        Case "Google"
            WebBrowser1.Navigate("www.google.com")
        Case "Microsoft"
            WebBrowser1.Navigate("www.microsoft.com")
        Case "Stack Overflow"
            WebBrowser1.Navigate("www.stackoverflow.com")
    End Select
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    '
    ComboBox1.Items.Add("Please Select")
    ComboBox1.Items.Add("Google")
    ComboBox1.Items.Add("Microsoft")
    ComboBox1.Items.Add("Stack Overflow")
    ComboBox1.SelectedIndex = 0
    '
End Sub

Private Sub WebBrowser1_Navigating(sender As Object, e As WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
    ProgressBar1.Visible = True
    With ProgressBar1
        .Minimum = 0
        .Maximum = 50
        .Step = 5
    End With
    For index As Integer = 0 To 50 Step 5
        ProgressBar1.Value = index
        System.Threading.Thread.Sleep(35)
    Next
End Sub

End Class

enter image description here

答案 1 :(得分:0)

首先选择的项目是?该指数从0开始。这意味着列表中的第一项是索引#0。尝试使用selectedindex = 0。