Opening a website when button pressed
-
hello i wish to know the coding for the button that perform opening either Internet Explore or Netscape to a web address i hope it wont be a trouble thank you Gary
In VB:
' ' Procedure voor het opstarten van de default browser met een URL ' ' Zie Q224816, Q174156 voor meer informatie ' Public Sub StartDefaultBrowser(ByVal strUrl As String) Dim lngReturnValue As Long lngReturnValue = ShellExecute(0, _ "open", _ strUrl, _ 0, _ 0, _ SW_SHOWNORMAL) ' Returnvalue <= 32 means error If (lngReturnValue <= 32) Then Err.Raise ERR_WARNING, FormatErrSource(MODULENAME, "CheckFields"), "Can't start default internet browser (" & CStr(lngReturnValue) & ")" End If End SubGrtz, Guus -
In VB:
' ' Procedure voor het opstarten van de default browser met een URL ' ' Zie Q224816, Q174156 voor meer informatie ' Public Sub StartDefaultBrowser(ByVal strUrl As String) Dim lngReturnValue As Long lngReturnValue = ShellExecute(0, _ "open", _ strUrl, _ 0, _ 0, _ SW_SHOWNORMAL) ' Returnvalue <= 32 means error If (lngReturnValue <= 32) Then Err.Raise ERR_WARNING, FormatErrSource(MODULENAME, "CheckFields"), "Can't start default internet browser (" & CStr(lngReturnValue) & ")" End If End SubGrtz, Guus