|
VB弹网页代码
樱木花盗 发表于 2007-8-5 21:31:18 |
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
load事件（打开软件时弹出）和 unload事件（关闭软件时弹出）
ShellExecute 0&, vbNullString, "http://www.baidu.com", vbNullString, vbNullString, vbNormalFocus
Private Sub Form_Load()
WebBrowser1.Navigate ("http://www.baidu.com")
End Sub
Private Sub Form_Resize()
WebBrowser1.Height = Form2.Height
WebBrowser1.Width = Form2.Width
End Sub |
|
发表评论：
|
