Visual Basic FAQ

Как открыть интернет страницу по указанному адресу?

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.vbfaq.ru/"
End Sub

Private Sub Text1_Change()
'Формат адреса
' http://www.vbfaq.ru/
link = Text1.Text
End Sub

Запись опубликована on 07.01.2009 at 9:00 и размещена в рубрике: Интернет. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.