雪豹系统默认字体下载:VB如何打开指定的网页但不激活窗口?

来源：百度文库编辑：杭州交通信息网时间：2024/05/12 15:25:14

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 Single, Y As Single)
lblHttp.ForeColor = vbRed
'lblCompany.FontUnderline = False
Screen.MousePointer = 99
Screen.MouseIcon = LoadPicture(App.Path & "\HAND-M.cur")
End Sub

为什么要用API？？？

你不想激活难道就不可以变通一下么？？？最小化不就好了

Private Sub Command1_Click()
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http:\\www.126.com", vbMinimizedNoFocus
End Sub

VB如何打开指定的网页但不激活窗口? 怎样用vb打开浏览器并把指定的网页打开？ VB怎麽样用一个按扭来做打开指定网页每次打开网页出现一个窗口,很烦,但不影响! 打开2个IE窗口时如何使没有活动的那个窗口在载入完成时不自动激活？如何让弹出窗口在指定的地方打开 VB 如何获取指定网页 session VB 如何获取指定网页 session 如何在FLASH导航菜单中实现在指定窗口打开网页？ vb如何打开本地网页？