Unconfigured Ad Widget

Collapse

Anúncio

Collapse
No announcement yet.

Ajuda , VB

Collapse
X
 
  • Filter
  • Tempo
  • Show
Clear All
new posts

  • Font Size
    #1

    Ajuda , VB

    Alguem pode me ajudar preciso fazer isso

    pegar esse php e usar ele , no webbrawser de um programa

    ex

    <select name="Estados" id="estadosBR">
    <option value="MG" id="1">Minas Gerais</option>
    <option value="SP" id="2" >Sao paulo</option>
    <option value="RJ" id="3">Rio de Janeiro</option>
    <option value="PR" id="4">Parana</option>
    <option value="SC" id="5">Santa catarina</option>
    </select>


    isso fica no site , agora preciso add o controle dele no VB

    ex

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load


    ComboBox1.Items.Add("MG")
    ComboBox1.Items.Add("SP")
    ComboBox1.Items.Add("RJ")
    ComboBox1.Items.Add("PR")
    ComboBox1.Items.Add("SC")

    alguem me ajuda com isso???

  • Font Size
    #2
    Postado Originalmente por netbrfakes1 Ver Post
    Alguem pode me ajudar preciso fazer isso

    pegar esse php e usar ele , no webbrawser de um programa

    ex

    <select name="Estados" id="estadosBR">
    <option value="MG" id="1">Minas Gerais</option>
    <option value="SP" id="2" >Sao paulo</option>
    <option value="RJ" id="3">Rio de Janeiro</option>
    <option value="PR" id="4">Parana</option>
    <option value="SC" id="5">Santa catarina</option>
    </select>


    isso fica no site , agora preciso add o controle dele no VB

    ex

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load


    ComboBox1.Items.Add("MG")
    ComboBox1.Items.Add("SP")
    ComboBox1.Items.Add("RJ")
    ComboBox1.Items.Add("PR")
    ComboBox1.Items.Add("SC")

    alguem me ajuda com isso???


    Testa ai...

    Código:
            Dim WebBrowser As New WebBrowser
            Dim ComboBox As New ComboBox
            Dim strings(5) As String
            WebBrowser.Navigate("link aqui")
            strings(1) = WebBrowser.Document.GetElementById("1").TagName.ToString()
            strings(2) = WebBrowser.Document.GetElementById("2").TagName.ToString()
            strings(3) = WebBrowser.Document.GetElementById("3").TagName.ToString()
            strings(4) = WebBrowser.Document.GetElementById("4").TagName.ToString()
            strings(5) = WebBrowser.Document.GetElementById("5").TagName.ToString()
            ComboBox.Items.Add(strings(1))
            ComboBox.Items.Add(strings(2))
            ComboBox.Items.Add(strings(3))
            ComboBox.Items.Add(strings(4))
            ComboBox.Items.Add(strings(5))

    Comment

    X
    Working...
    X