---

Hejsa NG !!

er der nogen der kan hjælpe mig ??

Hvordan for man knytet et hyperlink til et billede der ligger som baggrund
på formen

på forhånd tak !!

---

Noget i stil med dette !

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)

Dim sti As String

sti = Dir("C:\Program Files\Internet Explorer\IEXPLORE.EXE")
If sti = "" Then
Shell "C:\Programmer\Internet Explorer\IEXPLORE.EXE www.infojens.dk",
vbMaximizedFocus
Else
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE www.infojens.dk",
vbMaximizedFocus
End If

End Sub



"Claus Rasmussen" <strit@pc.dk> wrote in message
news:3c7a7850$0$10848$edfadb0f@dspool01.news.tele.dk...
> Hejsa NG !!
>
> er der nogen der kan hjælpe mig ??
>
> Hvordan for man knytet et hyperlink til et billede der ligger som baggrund
> på formen
>
> på forhånd tak !!
>
>

---

"Jens" <til@infojens.dk> skrev i en meddelelse
news:3c7aafeb$0$56607$edfadb0f@dspool01.news.tele.dk...
> Noget i stil med dette !
>
> Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As
Single,
> Y As Single)
>
> Dim sti As String
>
> sti = Dir("C:\Program Files\Internet Explorer\IEXPLORE.EXE")
> If sti = "" Then
> Shell "C:\Programmer\Internet Explorer\IEXPLORE.EXE www.infojens.dk",
> vbMaximizedFocus
> Else
> Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE
www.infojens.dk",
> vbMaximizedFocus
> End If
>
> End Sub
>
>
Denne løsning forudsætter selvfølgelig at man har IE på sin maskine.

En løsning, der er uafhængig af hvilken browser man har på sin PC, kunne
være istedet at skrive:

ShellExecute(Me.hwnd, vbNullString, "www.infojens.dk", vbNullString, "", 1)

Så tager den bare det program der er associeret med HTML.


Jan

---

Hej,

> ShellExecute(Me.hwnd, vbNullString, "www.infojens.dk", vbNullString, "",
1)
> Så tager den bare det program der er associeret med HTML.

Findes der en måde hvor på man kan sikre at den ikke blot tager en allerede
åben browser, men starter en ny hver gang?


/Lars