Нужна помощ с запускам html файла

[a7161]

Если так до почему то не могу даже сохранить вот что выдает Вложение 308200

Потому что это функция winapi. Нужно подключить к проекту. Попробую щас расписать как.
Так, вот пример:

Private Declare Function ShellExecute Lib "shell32" 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
  
Private Const SW_SHOWNORMAL = 1 
  
Private Sub Form_Load() 
    ShellExecute 0, "open", "C:\whatever.html", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

[valera]

Потому что это функция winapi. Нужно подключить к проекту. Попробую щас расписать как.
Так, вот пример:

Private Declare Function ShellExecute Lib "shell32" 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
  
Private Const SW_SHOWNORMAL = 1 
  
Private Sub Form_Load() 
    ShellExecute 0, "open", "C:\whatever.html", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

Теперь получается так когда программа запускается то и запускается файл index.html но при нажатие кнопки такого не происходит но программа уже не вылетает

[a7161]

Потому что вызов функции не в том обработчике. Перенеси ShellExecute в код для кнопки:

Private Sub Command1_Click()
   ShellExecute 0, "open", "C:\whatever.html", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

Ну и из Form_Load() удали. Это было только для примера как объявлять и использовать.

[valera]

Потому что вызов функции не в том обработчике. Перенеси ShellExecute в код для кнопки:

Private Sub Command1_Click()
   ShellExecute 0, "open", "C:\whatever.html", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

Ну и из Form_Load() удали. Это было только для примера как объявлять и использовать.

Все сделано, большое спасибо от души, тему я думаю можно закрывать.