opening .htm file from VB

[Roy G. Vervoort]

I want a (local) webpage to open on the click of a button in VB, does anyone
know how to do this

roy

netherlands

[juriler]

use microsoft internet controls (reference, components)

instruction

WebBrowser.Navigate (sHtmlFile)
"Roy G. Vervoort" <ro**********@rojaal.nl> schreef in bericht
news:40*********************@news.xs4all.nl...

I want a (local) webpage to open on the click of a button in VB, does anyone know how to do this

roy

netherlands

[CajunCoiler \(http://www.cajuncoiler.tk\)]

Best bet would be the "ShellExecute" API call, which will open the local
page in whatever the current browser is defined as.

Toss the following code into a module called "ShellExec", and call it
as ShellExec.RunFile "local_webpage.htm" ...

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function ShellExecute Lib "shell32.dll" 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
Public Const SW_SHOWNORMAL = 3
'-----------------------------------------------'
' '
' Use: '
' ShellExec.RunFile(filename As String) As Long '
' '
' Executes 'filename' via it's associated '
' program file. Great for external help. '
' '
'-----------------------------------------------'

Public Function RunFile(ByVal strDocName As String) As Long
Dim Scr_hDC As Long
Dim lngRes As Long
Scr_hDC = GetDesktopWindow()
RunAssociateFile = ShellExecute(Scr_hDC, "Open", strDocName, "", "C:\",
SW_SHOWNORMAL)
End Function

"Roy G. Vervoort" <ro**********@rojaal.nl> wrote in message
news:40*********************@news.xs4all.nl...

I want a (local) webpage to open on the click of a button in VB, does anyone know how to do this

roy

netherlands