Results 1 to 4 of 4

Thread: Making a link on the Quick Lauch bar?

  1. #1

    Thread Starter
    Frenzied Member
    Join Date
    Sep 1999
    Location
    Phoenix, az
    Posts
    1,517
    Can someone tell me how to put a
    link on that quick lauch bar?

  2. #2
    Guest
    Use the fCreateShellLink api function.

    Code:
    'In Visual Basic 5.0, change Stkit432.dll in the following
    'statement to Vb5stkit.dll.  Stkit432.dll is for Visual Basic 4.0
    'For VB6, change it to VB6STKIT.DLL
    
    
    Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal
    lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As
    String, ByVal lpstrLinkArgs As String) As Long
    
    
    Usage
    
    fCreateShellLink "", "MyProgram", _
        "c:\myprog\myprog.exe", ""

  3. #3

    Thread Starter
    Frenzied Member
    Join Date
    Sep 1999
    Location
    Phoenix, az
    Posts
    1,517
    HI,

    It says bad DLL calling

    Whats wrong?

    Code:
    'In Visual Basic 5.0, change Stkit432.dll in the following
    'statement to Vb5stkit.dll.  Stkit432.dll is for Visual Basic 4.0
    'For VB6, change it to VB6STKIT.DLL
    
    
    Private Declare Function fCreateShellLink Lib "VB6STKIT.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String)
    
    Function QuickLink(strResFolder As String)
    Dim lReturn As Long
    lReturn = fCreateShellLink("", "Quick Links - " & strResFolder, _
        App.Path & "\" & App.EXEName & ".exe", "")
    End Function

  4. #4
    Guest
    Try this:

    Code:
    Function QuickLink(strResFolder As String)
    Dim lReturn As Long
    lReturn = fCreateShellLink("C:\...\...\...\...\Quick Launch", "Quick Links - " & strResFolder, _
        App.Path & "\" & App.EXEName & ".exe", "")
    End Function

Posting Permissions

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



Click Here to Expand Forum to Full Width