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 0, "Open", "Http://www.CCTV.com", "", "", vbNormalFocus
End Sub
以上代码可以让VB运行时自动打开一个网页,想问下如果同时打开多个网页呢?
Private Sub Command1_Click()
ShellExecute 0, "Open", "Http://www.CCTV.com", "", "", vbNormalFocus
End Sub
以上代码可以让VB运行时自动打开一个网页,想问下如果同时打开多个网页呢?
解决方案 »
- SDI窗口弹出模式窗口在任务栏的反映
- (TO:Dunzip)你有EAN8/13的编码方案吗?
- vb自带的dtpicker控件怎么可以同时表示XXXX年XX月XX日 XX时(XX时表示时间,是24小时制的)?
- 请教如何用VB制作exe文件来运行同目录下的pdf文件,谢谢各位!!
- 关于vb窗体和光标的2问题,好像没有 人注意到噢!
- 记录集的字段名能改吗?
- 同事
- 我用函数SHFileOperation来删除一些文件与文件夹,当某个文件与文件夹不存在的时候,系统就会后错误信息,如何屏蔽他?
- 怎样将多个复选框控件(checkbox)加入到一个列表框(list)中,使之成为一个完整的复选框列表
- ===============今晚主场恶斗乌兹别克斯坦,猜中比分分数全给他==================
- 如何读取字符串里的数字
- 如何使图片快速滚动
Private Sub Command1_Click()
ShellExecute 0, "Open", "Http://www.CCTV.com", "", "", vbNormalFocus
ShellExecute 0, "Open", "Http://www.hao123.com", "", "", vbNormalFocusEnd Sub
Dim i As Long For i = 1 To 2
Set objExplorer = CreateObject("InternetExplorer.Application")
With objExplorer
.Navigate "http://www.CSDN.net"
.Visible = True
End With
Set objExplorer = Nothing
Next i