code vba veranderen naar vb

[thompieboy]

ik heb een klein programmatje gemaakt met vba. je kan dan in een textbox google intypen en als je dan op de commandbutton drukt ga je naar google.nl. alleen heb ik sinds pas vb. daar merk ik dat de codes anders zijn. dit is mijn vba code:

Private Sub CommandButton1_Click()
    Dim ie As Object

    Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")

    Select Case LCase(TextBox1.Value)
        Case "google"
            ie.NAVIGATE "http://google.nl"
        Case "wikipedia"
            ie.NAVIGATE "http://wikipedia.nl"
        Case Else
            MsgBox "Geen geldige waarde ingevoerd.", vbExclamation
            Set ie = Nothing
            Exit Sub
    End Select

    ie.Visible = True
    While ie.busy
        DoEvents
    Wend

    Set ie = Nothing

End Sub

kan iemand deze als ware vertalen naar een vb code? je krijgt trouwens een error bij (TextBox1.Value)

 

[edmoor]

Dat is in VB maar weinig anders. Plaats het volgende in je Form Class:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim ie As Object, adres As String

        Select Case LCase(TextBox1.Text)
            Case "google"
                adres = "http://www.google.nl"
            Case "wikipedia"
                adres = "http://wikipedia.nl"
            Case Else
                MsgBox("Geen geldige waarde ingevoerd.", vbExclamation)
                Exit Sub
        End Select

        ie = CreateObject("INTERNETEXPLORER.APPLICATION")
        ie.NAVIGATE(adres)
        ie = Nothing

End Sub

 

[thompieboy]

als ik google intyp en op de button druk, komt de site niet tevoorschijn

 

[edmoor]

Je hebt hetzelfde probleem in je VBA vraag, daar heb ik antwoord gegeven.

 

[thompieboy]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ie As Object, adres As String

        Select Case LCase(TextBox1.Text)
            Case "google"
                adres = "http://www.google.nl"
            Case "wikipedia"
                adres = "http://wikipedia.nl"
            Case Else
                MsgBox("Geen geldige waarde ingevoerd.", vbExclamation)
                Exit Sub
        End Select

        ie = CreateObject("INTERNETEXPLORER.APPLICATION")
        ie.NAVIGATE(adres)
        ie = Nothing

    End Sub

ik heb hem nu zo, hij laad de site wel maar opent hem niet.

 

[edmoor]

Bij wikipedia zit een fout in het adres. De www. staat er niet bij.

 

[thompieboy]

nog steeds het zelfde probleem

 

[edmoor]

Er zit geen fout in de code en bij mij werkt het goed in zowel VBA als VB.
Dan weet ik het zo ook niet.

 

[edmoor]

Ik heb net een update van Internet Explorer gedownload en werkt het bij mij ook niet meer.
Je moet nu na ie.NAVIGATE(adres) de opdracht ie.Visible = True ingeven.

 

[thompieboy]

oke, bedankt

 

[CaptainBri]

Ik snap niet precies waarom je dat IE object aanmaakt. Je kan de Process.Start functie gebruiken om IE op te starten met een adres als argument.

De code:

        Dim adres As String
        Select Case (TextBox1.Text.ToLower())
            Case "google"
                adres = "http://www.google.nl"
            Case "wikipedia"
                adres = "http://wikipedia.nl"
            Case Else
                MsgBox("Geen geldige waarde ingevoerd.", vbExclamation)
                Exit Sub
        End Select
        Process.Start("iexplorer.exe", adres)
        'Ook mogelijk:
        'Process.Start(adres)

Werkt hier prima.