7,789
社区成员
发帖
与我相关
我的任务
分享如何打开无工具栏的网页
我知道用explorer c:\a.htm可以用ie打开网页，但我想打开无工具栏（最简单的那种，只有一个标题栏的），不知道如何实现？
...全文
请发表友善的回复…
发表回复
goodname008 2003-12-14
- 打赏
- 举报
' 在工程中引用 Microsoft Internet Controls。
Option Explicit
Private Sub Command1_Click()
Dim IEWindow As New SHDocVw.ShellWindows
Shell "explorer.exe c:\a.htm"
Do
IEWindow.Item(IEWindow.Count - 1).ToolBar = False
Loop Until IEWindow.Item(IEWindow.Count - 1).Busy = False
End Sub
Option Explicit
Private Sub Command1_Click()
Dim IEWindow As New SHDocVw.ShellWindows
Shell "explorer.exe c:\a.htm"
Do
IEWindow.Item(IEWindow.Count - 1).ToolBar = False
Loop Until IEWindow.Item(IEWindow.Count - 1).Busy = False
End Sub
