高手帮忙看看WebBrowser的问题~~~~~~~~没分了55555

Jorcks2002 2003-12-09 04:24:34
我用WebBrowser1.Navigate "d:\123.doc" 打开本地文件,提示下载对话框,能不能模拟键盘,直接打开,或者有什么方法不显示下载对话框,直接打开的
谢谢:)
...全文
68 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
a11s 2003-12-13
  • 打赏
  • 举报
回复
shell chr(34) + "D:\program files\Internet Explorer\IEXPLORE.EXE"+chr(34) + " c:\temp.txt"
Jorcks2002 2003-12-13
  • 打赏
  • 举报
回复
大家帮帮忙呀~~~55555555555555555
netjaki 2003-12-12
  • 打赏
  • 举报
回复
关注此贴,我也有同样的问题
Jorcks2002 2003-12-10
  • 打赏
  • 举报
回复
谢谢gpo2002(永吹不休)
可是Shellexecute不能在WebBrowser里打开呀,还请帮忙看看,谢谢:)
gpo2002 2003-12-10
  • 打赏
  • 举报
回复
WebBrowser不能直接打开doc文件
ShellExecute 是用默认方式打开,应该可以了
gpo2002 2003-12-10
  • 打赏
  • 举报
回复
WebBrowser1.Navigate2 "d:\123.doc"
Jorcks2002 2003-12-09
  • 打赏
  • 举报
回复
都不行呀,谢谢rainstormmaster,谢谢hhjjhjhj(大头)回复,我再找找资料
hhjjhjhj 2003-12-09
  • 打赏
  • 举报
回复
修改注册表,就是下载对话框中的“下载此类文件时始终提示”选项,具体那个键值我忘了,用注册表监视软件看一下好了。
rainstormmaster 2003-12-09
  • 打赏
  • 举报
回复
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

Private Sub Command1_Click()
ShellExecute Me.hwnd, "open", "d:\123.doc", vbNullString, vbNullString, 3
End Sub
Jorcks2002 2003-12-09
  • 打赏
  • 举报
回复
api能行吗,不懂,请大家帮帮忙,谢谢啦

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧