How to put value of listbox item to WebBrowser1.Navigate "

[DavidTigerch]

Hi all i got an application that once u click on a button it takes the selected item from listbox and put that value to textbox which is called txtURL. In addition i want to pass same value to WebBrowser1.Navigate .currently it has default value but each time i click on button to transfer item to textbox i want the same data get passed to WebBrowser1.Navigate and replace its value and the webbrowser controle displays the new url. I be happy if some one help here.Thanks



code for transfering item to textbox from listbox:

Private Sub Command8_Click()

'declare a variable as a string
Dim strURL As String
'assign the value of the clicked item in the listbox
'as the value
strURL = List2.Text
[B]txtURL = List2.Text ' put the value of listbox to textbox txturl[/B]
'add the value (url) to inet control
With Inet1
    .Protocol = icHTTP
    RichTextBox1.Text = .OpenURL(strURL, icString)
End With
'Command2 = True
End Sub

code for webbrowser controle

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True
End Function


Private Sub Form_Load()
    [B]WebBrowser1.Navigate "[URL unfurl="true"]http://localhost/page.html[/URL][/B]"
    
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If (pDisp Is WebBrowser1.Application) Then
        GetInfo WebBrowser1.Document
    End If
End Sub

 

[johnwm]

See my answer to thread222-1226419

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first.
'If we're supposed to work in Hex, why have we only got A fingers?'
Drive a Steam Roller