vil have der skal stå http: og 2 skråstreger istedet for 3
Hej jeg har lavet webbrowser, som fungerer fint ,men når jeg kommer ind i programmet står der i min combo box http:/// istedet for http:// her er min kode:Private Sub Combo1_Click()
WebBrowser1.Navigate (Combo1.Text)
End Sub
Private Sub Command1_Click()
WebBrowser1.Navigate (Combo1.Text)
WebBrowser1.Visible = True
Combo1.AddItem (WebBrowser1.LocationURL)
End Sub
Private Sub Command2_Click()
'*******************************************************
On Error Resume Next
'Print current page
WebBrowser1.SetFocus
WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT
'*******************************************************
End Sub
Private Sub Command3_Click()
WebBrowser1.GoBack
End Sub
Private Sub Command4_Click()
WebBrowser1.GoForward
End Sub
Private Sub Form_Load()
WebBrowser1.Visible = False
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Combo1.Text = WebBrowser1.LocationURL
End Sub
