VB skal åbne en *.htm fil

ja...

i module:

Option Explicit

Const STILL_ACTIVE = &H103
Const PROCESS_QUERY_INFORMATION = &H400

Private Declare Function GetExitCodeProcess Lib \"Kernel32\" _
                (ByVal hProcess As Long, _
                lpExitCode As Long) As Long
               
Private Declare Function OpenProcess Lib \"Kernel32\" _
                (ByVal dwDesiredAccess As Long, _
                ByVal bInheritHandle As Long, _
                ByVal dwProcessId As Long) As Long
               
Private Declare Sub Sleep Lib \"Kernel32\" _
                (ByVal dwMilliseconds As Long)

Public Sub WaitFor(ByVal lsFilePath As String)
    Dim llProcess As Long
    Dim llReturn As Long
       
    llProcess = OpenProcess(PROCESS_QUERY_INFORMATION, _
                      False, Shell(lsFilePath, 1))
   
    Do
        GetExitCodeProcess llProcess, llReturn
        Sleep 50
        DoEvents
    Loop While llReturn = STILL_ACTIVE
End Sub


i \"command1_click\"

WaitFor \"C:\\Programmer\\Internet Explorer\\iexplore.exe www.ofir.dk\"


hvis det da er en side på nettet den skal åbne..

ellers hvis den skal åbne en på computeren kan du bruge denne

module:

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 conSwNormal = 1



(skal kun være 2 linjer)


i \"command1_click\"

ShellExecute hwnd, \"open\", \"c:\\html\\dinhtml.html\", vbNullString, vbNullString, conSwNormal

den kan også bruges til at vise sider på nettet så skal du bare erstatte \"c:\\html\\dinhtml.html\" med f.eks. \"http://www.eksperten.dk\"

hehe kan godt se lidt forvirrende ud... module skal være på 2 linjer og command1_click skal være 1 linje