home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD9743982000.psc / modOpenURL.bas < prev    next >
Encoding:
BASIC Source File  |  2000-09-08  |  841 b   |  24 lines
  1. Attribute VB_Name = "modOpenURL"
  2. 'The below code has NOTHING to do with the IPX/SPX protocol or broadcasting.
  3. 'It is mearly used for the ending "Goto PSC's site?" thing
  4. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
  5.     (ByVal hwnd As Long, ByVal lpOperation As String, _
  6.     ByVal lpFile As String, ByVal lpParameters As String, _
  7.     ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  8.  
  9.  
  10. Public Enum T_WindowStyle
  11.     Maximized = 3
  12.     Normal = 1
  13.     ShowOnly = 5
  14. End Enum
  15.  
  16. 'The below code has NOTHING to do with the IPX/SPX protocol or broadcasting.
  17. 'It is mearly used for the ending "Goto PSC's site?" thing
  18.  
  19. Public Sub OpenInternet(Parent As Form, URL As String, _
  20.     WindowStyle As T_WindowStyle)
  21.     ShellExecute Parent.hwnd, "Open", URL, "", "", WindowStyle
  22. End Sub
  23.  
  24.