Combobox med links

"At få google til at linke til siden" hvad mener du :D

det må være sådan du mener..

Private Sub Combo1_Click()
  WebBrowser1.Navigate2 Combo1.Text
  'eller
  'WebBrowser1.Navigate2 "google.dk"
End Sub

Sådan her:::

http://www.funker.frac.dk/funker_explorer.JPG

'------------------------ Form1 ------------------------
Option Explicit

Private varLinks() As Variant

Private Sub Combo1_Click()
Dim strUrl As String
  With Combo1 ' <- Combo1
      strUrl = varLinks(.ItemData(.ListIndex))
  End With
 
  ' Her kommer linket ud..
  MsgBox strUrl
End Sub

Private Sub Form_Load()
Dim i As Long
Dim varNames() As Variant

  ' Her tilføjer du de navne/links skal have med..
  varLinks = Array("www.google.dk", "www.eksperten.dk")
  varNames = Array("Google", "Eksperten")

  With Combo1 ' <- Combo1
      For i = 0 To UBound(varNames)
      .AddItem varNames(i)
      .ItemData(.NewIndex) = i
      Next
  End With
End Sub
'------------------------ Form1 ------------------------

Får den her fejl, når man klikker på fx. google.
og der kommer intet frem.

Link: http://www.funker.frac.dk/hjaelp.JPG

Et.. ... cmdgo_Click() kan du ikke have i toppen af koden på den måde..

prøv at smide det på en ny form og se om det ikke virker..

'------------------------ Form1 ------------------------
' Top af din form1

Option Explicit

Private varLinks() As Variant

' Set din knap her
Private Sub cmdgo_Click()
  WebBrowser1.Navigate2 navig.Text
End Sub

Private Sub Combo1_Click()
Dim strUrl As String
  With Combo1 ' <- Combo1
      strUrl = varLinks(.ItemData(.ListIndex))
  End With
 
  ' Her kommer linket ud..
  MsgBox strUrl
End Sub

Private Sub Form_Load()
Dim i As Long
Dim varNames() As Variant

  ' Her tilføjer du de navne/links skal have med..
  varLinks = Array("www.google.dk", "www.eksperten.dk")
  varNames = Array("Google", "Eksperten")

  With Combo1 ' <- Combo1
      For i = 0 To UBound(varNames)
      .AddItem varNames(i)
      .ItemData(.NewIndex) = i
      Next
  End With
End Sub
'------------------------ Form1 ------------------------

det virker fint nu.. Men nu ville jeg jo gerne have at fx. googles hjemmeside kom frem, i browser vinduet, nå man klikkede på google, og ikke en msg box, hvor der står www.google.com :D

Private Sub Combo1_Click()
Dim strUrl As String
  With Combo1 ' <- Combo1
      strUrl = varLinks(.ItemData(.ListIndex))
  End With
 
  ' Her kommer linket ud..
  MsgBox strUrl
  WebBrowser1.Navigate2 strUrl

End Sub

Lige præcis sjh, 1000 mange gange tak :D

ha ha.. selv tak :D