[RESOLVED] Help with combobox / web browser controls

[cmmorris1]

I'm trying to play around with combo boxes and trying to figure out how to navigate to a certain url in webbrowser1 depending on the text selected in combobox1. Can anyone tell me what I'm doing wrong with this?

Imports System.Windows.Forms
Imports System.Net
Imports System.IO
Imports System.Text
Public Class Form1
    Class MyList
        Public MyId As Integer
        Public MyStr As String
 
        Public Sub New(ByVal s As String, ByVal i As Integer)
            MyStr = s
            MyId = i
        End Sub
 
        '//VB.net will decide DisplayMember using this function
        Public Overrides Function ToString() As String
            ToString = MyStr
        End Function
    End Class
 
    Sub LoadComboBox()
        ComboBox1.Items.Add(New MyList("Learn Webmail", 1))
        ComboBox1.Items.Add(New MyList("Learn File Manager", 2))
        ComboBox1.Items.Add(New MyList("Learn Redirects", 3))
        ComboBox1.Items.Add(New MyList("Learn Fantastico", 4))
        ComboBox1.Items.Add(New MyList("Learn Error Pages", 5))
        ComboBox1.Items.Add(New MyList("Learn MySQL", 6))
        ComboBox1.Items.Add(New MyList("Learn Addon Domains", 7))
        ComboBox1.Items.Add(New MyList("Learn To Protect Directories", 8))
        ComboBox1.Items.Add(New MyList("Learn Subdomains", 9))
        ComboBox1.Items.Add(New MyList("Learn Statistics", 10))
        ComboBox1.Items.Add(New MyList("Learn FrontPage Setup, FTP Access, And Change Passwords", 11))
        ComboBox1.Items.Add(New MyList("Learn Domain Registration", 12))
        ComboBox1.Items.Add(New MyList("Learn Web Hosting Setup", 13))
        ComboBox1.Items.Add(New MyList("Using CPanel To Sell Resell Rights Products Part 1", 14))
        ComboBox1.Items.Add(New MyList("Using CPanel To Sell Resell Rights Products Part 2", 15))
        ComboBox1.Items.Add(New MyList("Using CPanel To Sell Resell Rights Products Part 3", 16))
        ComboBox1.Items.Add(New MyList("Using CPanel To Sell Resell Rights Products Part 4", 17))
        ComboBox1.Items.Add(New MyList("Using CPanel To Install A PHP/MySQL Script Part 1", 18))
        ComboBox1.Items.Add(New MyList("Using CPanel To Install A PHP/MySQL Script Part 2", 19))
        ComboBox1.Items.Add(New MyList("Using CPanel To Install A PHP/MySQL Script Part 3", 20))
        ComboBox1.SelectedIndex = 0
    End Sub
 
    Sub ShowSelected()
        MsgBox("Text=" & ComboBox1.SelectedItem.Mystr & " ItemData=" & CStr(ComboBox1.SelectedItem.MyId))
    End Sub
 
 
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
 
    End Sub
 
    Private Sub ComboBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        LoadComboBox()
        If ComboBox1.SelectedItem = 1 Then
            WebBrowser1.Navigate("urlhere")
        End If
    End Sub
 
End Class

[chris128]

Instead of this:

If ComboBox1.SelectedItem = 1 Then
            WebBrowser1.Navigate("urlhere")
End If

I think you either want to do this (if you are trying to navigate based on the selected index of the combobox, which starts at 0):

If ComboBox1.SelectedIndex = 1 Then
            WebBrowser1.Navigate("urlhere")
End If

or you want to do this (if you want to use the number stored with each instance of your MyList class, which seems to start at 1) :

If DirectCast(ComboBox1.SelectedItem, Mylist).MyId = 1 Then
            WebBrowser1.Navigate("urlhere")
End If

Having said that, I think what might be a better idea would be to store the URL with your class instances - then you dont need to use an IF statement to check every possible selected index or ID. So you would add another property to your class called URL or something and would populate that in the same way that you are currently populating the MyID and MyStr objects, then in your form load event instead of doing what you are currently doing (or what I suggested above) you would do something like this:

WebBrowser1.Navigate(DirectCast(ComboBox1.SelectedItem, MyList).Url)

[cmmorris1]

Thank you Chris!

[chris128]

no problem