VB如何打开指定的网页但不激活窗口?

来源：百度知道 编辑：UC知道 时间：2024/05/08 07:04:22
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 Command1_Click()
ShellExecute Me.hwnd, "open", sql, "", "", SW_SHOWMINNOACTIVE
End Sub

我用的是这种 无论怎么换最后的参数 结果窗口都被激活
还有,可不可以只用IE? 这段代码如果Maxthon开着他就调用maxthon了

ShellExecute Me.hwnd, "open", sql, "", "", SW_SHOWMINNOACTIVE
将这一句改为
ShellExecute Me.hwnd, "open", sql, "", "", 6

你可以使用超级链接来实现：
Private Sub Form_Load()
lblHttp.Caption = "http://www.baidu.com"
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblHttp.ForeColor = vbBlue
'lblWarning.FontUnderline = True
Screen.MousePointer = vbDefault
End Sub

Private Sub lblHttp_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shell "C:\Program Files\Internet Explorer\IEXPLORE.exe http://www.baidu.com", vbNormalFocus
End Sub

Private Sub lblHttp_MouseMove(Button As Integer, Shift As Integer, X As