Как открыть интернет страницу по указанному адресу?
Option Explicit
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_SHOW = 5 Dim link As String Private Sub Navigate _ (frm As Form, ByVal NavTo As String) Dim hBrowse As Long hBrowse = ShellExecute(frm.hwnd, "open", NavTo, "", "", SW_SHOW) End Sub
Private Sub Command1_Click() Navigate Me, link End Sub
Private Sub Form_Load() Text1.Text = "http://www.vbnet.ucoz.ru/" End Sub
Private Sub Text1_Change() 'Формат адреса ' http://www.vbnet.ucoz.ru/ link = Text1.Text End Sub
