Link til hjemmeside

Private Sub cmdFollowLink_Click()
    CreateHyperlink Me!cmdFollowLink, Me!txtSubAddress, Me!txtAddress
End Sub

Sub CreateHyperlink(ctlSelected As Control, strSubAddress As String, _
        Optional strAddress As String)
    Dim hlk As Hyperlink
    Select Case ctlSelected.ControlType
        Case acLabel, acImage, acCommandButton
            Set hlk = ctlSelected.Hyperlink
            With hlk
                If Not IsMissing(strAddress) Then
                    .Address = strAddress
                Else
                    .Address = ""
                End If
                .SubAddress = strSubAddress
                .Follow
                .Address = ""
                .SubAddress = ""
            End With
        Case Else
            MsgBox "The control '" & ctlSelected.Name _
                & "' does not support hyperlinks."
    End Select
End Sub

Ups forkert svar... Jeg var lidt for hurtigt på aftrækkeren... Sorry!

Hej MadsHenrik.

Det spørgsmål har jeg lige fået besvaret af 127.... under URL.  Kig under besvarede.

M.v.h.  Jørn

ikke sikker på hvad du mener men ellers er det bare at insætte:


    Dim ret As Long
    ret = ShellExecute(Me.hwnd, "Open", "http://www.michael-jensen.dk", "", App.Path, 1)
       

under den function der skal udføres f.eks:

Private Sub cmdFollowLink_Click()
    Dim ret As Long
    ret = ShellExecute(Me.hwnd, "Open", "http://www.michael-jensen.dk", "", App.Path, 1)
End Sub

Til 127... har prøvet mit VB 6 vil ikke vide af (Me.hwnd) siger noget om en fejl ( kan ikke lige huske hvilken ).
Findes der godt nok ikke nogen lettere måde at gøre det på.

i stedetfor Me.hwnd kan du også bruge navnet på den form knappen er på. eks. Form1.hwnd

Hvad med bare at skrive:

Shell "iexplore www.dinhjemmeside.dk", MaximizedFocus

Dette virker dog kun hvis du har Internet Explorer installeret på din computer.

/TP