7
Январь
2009
Как открыть интернет страницу по указанному адресу?
Интернет |Как открыть интернет страницу по указанному адресу?
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 = " /" End Sub Private Sub Text1_Change() 'Формат адреса ' / link = Text1.Text End Sub