Shell out you default web Browser to Open a File for your Application...
Shell out you default web Browser to Open a File for your Application...
API Declarations
Declare Function ShellExecute Lib "Shell32.dll" Alias :ShellExecuteA"(ByVal hwmd as Long,ByVal mxOperation as String,ByVal mxParameters As String,ByVal mxDyrectory as String,Byval nShowCmd As Long) As long
This Code Go i the Declaration part of the Form1(General Declaration)
Const comSwNormal = 1
Rate Shell out you default web Browser to Open a File for your Application...
(1(1 Vote))
Type this Code in the form1 add a Command Button:
Private Sub Command1_Click()
ShellExecute hwnd,"Open", App.path & "\"& "Sample.html", & _
vbNullString,vbNullString,comSwNormal
End Sub
Shell out you default web Browser to Open a File for your Application... Comments
No comments yet — be the first to post one!
Post a Comment