"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