加上一个web控件,添加的全名是Microsoft internet controls,默认的控件名是:webbrowse, 打开网页用navigate属性即可,接分我呀.呵呵
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 Sub CmdOK_Click() ShellExecute Me.hWnd, "open", "http://www.csdn.net", "", "", 5 End Sub
Private Sub CmdOK_Click()
ShellExecute Me.hWnd, "open", "http://www.csdn.net", "", "", 5
End Sub