Avatar billede akesson Nybegynder
06. maj 2004 - 20:07 Der er 7 kommentarer

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
Avatar billede martin_moth Mester
07. maj 2004 - 07:52 #1
Kan du ikke i linien

Combo1.Text = WebBrowser1.LocationURL

bare pille den ene / ud?

Altså

Combo1.Text = left(WebBrowser1.LocationURL,6) & mid(8,WebBrowser1.LocationURL,len(WebBrowser1.LocationURL)-6

Så bliver det 7. tegne pillet ud - hvis jeg rammer forkert, så skift selv tallene. Kan ikke huske om den tæller 0 med...

Som jeg forstår dit problem, er dette en mulig løsning
Avatar billede martin_moth Mester
07. maj 2004 - 07:52 #2
Og der mangler en slutparantes:

Combo1.Text = left(WebBrowser1.LocationURL,6) & mid(8,WebBrowser1.LocationURL,len(WebBrowser1.LocationURL)-6)
Avatar billede martin_moth Mester
07. maj 2004 - 07:58 #3
Nå - jeg kan vist ikke huske mid-funktionen. Dette virker:

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
  Dim myURL As String
  myURL = WebBrowser1.LocationURL
  Combo1.Text = Left(myURL, 7) & Mid(myURL, 9)
End Sub
Avatar billede akesson Nybegynder
07. maj 2004 - 09:51 #4
Kan ikke få Combo1.Text = left(WebBrowser1.LocationURL,6) & mid(8,WebBrowser1.LocationURL,len(WebBrowser1.LocationURL)-6)til at virke
Avatar billede akesson Nybegynder
07. maj 2004 - 09:54 #5
hvis jeg f.eks. skriver www.google.dk forsvinder det første w kan man lave om på det?
Avatar billede akesson Nybegynder
07. maj 2004 - 09:57 #6
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
  Dim myURL As String
  myURL = WebBrowser1.LocationURL
  Combo1.Text = Left(myURL, 7) & Mid(myURL, 9)
End Sub

det virker, men hvis jeg f.eks. skriver www.google.dk forsvinder det første w kan man lave om på det?
Avatar billede martin_moth Mester
08. maj 2004 - 18:42 #7
Dim myURL As String
  myURL = "123456789"
  msgbox Left(myURL, 7) & Mid(myURL, 9)

i msgbox'en vil der blive udskrevet 12345679

Det eneste koden gør er at fjerne tegn nr 8, der jo er den ekstra /. Var det ikke det du ville?

Forstår ikke hvad du mener med at skrive www.google.com. Hvor skriver du det? Har det noget med den kode jeg har lavet at gøre? Bliver StatusTextChange triggeret når du skriver det?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester