用VB怎样弹出一个全屏的网页
同题 问题点数：50、回复次数：4Top
1 楼sxfzu（Flying）回复于 2003-12-02 11:10:57 得分 15
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
Const SW_SHOWNORMAL = 1
Const SW_SHOWMAXIMIZED = 3
Private Declare Function MoveWindow Lib "user32.dll" ( _
ByVal hwnd As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal nWidth As Long, _
ByVal nHeight As Long, _
ByVal bRepaint As Long) As Long
Private Sub Command1_Click()
Dim l As Long
l = ShellExecute(Me.hwnd, vbNullString, "http://www.sina.com.cn", vbNullString, vbNullString, SW_SHOWMAXIMIZED)
MoveWindow l, 0, 0, Screen.Width, Screen.Height, True
End SubTop
2 楼sxfzu（Flying）回复于 2003-12-02 11:14:42 得分 15
'这样就可以了
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
Const SW_SHOWMAXIMIZED = 3
Private Sub Command1_Click()
Dim l As Long
l = ShellExecute(Me.hwnd, vbNullString, "http://www.osoon.com", vbNullString, vbNullString, SW_SHOWMAXIMIZED)
End SubTop
3 楼SoHo_Andy（冰）回复于 2003-12-02 11:20:57 得分 15
ShellExecute Me.hwnd, 0, "http://www.osoon.com", 0,0,0
Top
4 楼imur（）回复于 2003-12-02 11:58:15 得分 5
学习Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
