Results 1 to 2 of 2
  1. #1
    Join Date
    Oct 2004
    Posts
    4

    Unanswered: Help create a web link on the form.

    Which code makes http://adress.domain/ work in the form. Be that label or text, or just code command.

  2. #2
    Join Date
    May 2004
    Posts
    97
    Quote Originally Posted by VBS Warrior
    Which code makes http://adress.domain/ work in the form. Be that label or text, or just code command.
    This is the way I do it. It requires two parts. A procedure when you click the label, and a declare for a system function.


    In the declarations section of your form:

    Private Declare Function ShellExecute Lib "shell32" _
    Alias "ShellExecuteA" _
    (ByVal hwnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long


    The procedure when you click the label:

    Private Sub lblEmailSupport_Click()
    Call RunShellExecute("open", "mailto:" & lblEmailSupport.Caption, 0&, 0&, 1)
    End Sub



    I think that is all. Give it a try.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •