Как открыть в IE страницу (наприме vbstreets.ru) из VB

[dorido]

Как открыть в IE страницу (наприме vbstreets.ru) из VB

[Aleksej]

Код: Выделить всё

Private 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


Private Const SW_SHOWNORMAL = 1

Public Sub Open_URL(Form As Form, strUrl As String)
Dim iret As Long

iret = ShellExecute(Form.hwnd, vbNullString, strUrl, vbNullString, "c:\", SW_SHOWNORMAL)


End Sub