超简单问题：关于webbrowser的!!

写错了!：) “可以打开C盘gh 下的index.htm文件”，没有下gh,就是C盘下的index.htm文件.
                        ~~~

解决方案 »

  1.   

    1.App.Path + "\" + 所要打开的文件
      

  2.   

    (1)利用  app.path
     或 curdir  app.path是当前工程运行的路径 
      app.path+"index.htm" 应该可以
    (2) 不知道 
    （3）我觉的 这就很难办啦
       你可以用vb 做一个.dll 然有 用index.htm来引用这个库
      用这个库和你的webbrower这个工程实现通讯 可以用DDE也可以用winsock
     就可以了
      

  3.   

    刚才错了，太快了
    app.path & "/index.htm"
      

  4.   

      也可以不做dll 做个 activeX 也行
      

  5.   

    1。APP.PATH + "\INDEX.HTM" 注意是"\"。
    2。如果是全屏就简单了，只要webbrowser的宽度比窗体宽度宽点儿就成了.
    3。关于网页按钮关闭窗体,只要在网页加上JAVASCRIPT或VBSCRIPT代码就行了.
    给分!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!网页代码我就给你.
      

  6.   

    MoYu(魑魅魍魉)　:魑魅魍魉几个什么字啊!:)
    1> APP.PATH + "\INDEX.HTM" 怎么用？是接在webbrowser.Navigate 后面写吗？
    2> 全屏化在WIN98下会显示有“开始”莱单的状态栏，在WIN2000下没有!why?
    3> 你说的是JAVASCRIPT中的window.close()吧!没用! 
      

  7.   

    webbrowser.navigate app.path+"\index,htm"
      

  8.   

    ：　bestupid(精武门勇仕)　(2002-1-22 23:32:30)  得0分 
    3> 你说的是JAVASCRIPT中的window.close()吧!没用!  还要在程序中加代码
      

  9.   

    > APP.PATH + "\INDEX.HTM" 怎么用？是接在webbrowser.Navigate 后面写吗？
    是的
    2> 全屏化在WIN98下会显示有“开始”莱单的状态栏，在WIN2000下没有!why?
    ？没听懂。解释一下（“开始”莱单的状态栏）
      

  10.   

    Private Sub Check1_Click()
    WebBrowser1.Document.body.Scroll = VBA.IIf(Check1.Value = vbChecked, "no", "yes")
    End Sub
    Private Sub Command1_Click()
    WebBrowser1.Navigate "about:blank"
    Dim i As Long
    For i = 0 To 1
        DoEvents '延时
    Next
    WebBrowser1.Document.open
    'WebBrowser1.Document.writeln "<HTML>"
    'WebBrowser1.Document.writeln "<HEAD>"
    'WebBrowser1.Document.writeln "<TITLE>"
    'WebBrowser1.Document.writeln "</TITLE>"
    'WebBrowser1.Document.writeln "</HEAD>"
    WebBrowser1.Document.writeln "<BODY scroll=" & VBA.Chr(34) & "no" & VBA.Chr(34) & " oncontextmenu=" & VBA.Chr(34) & "event.returnValue=false;" & VBA.Chr(34) & " onkeydown=" & VBA.Chr(34) & "if ((event && event.keyCode == 116) || event.ctrlKey) {event.returnValue=false;event.keyCode =8;}" & VBA.Chr(34) & " onmousemove=" & VBA.Chr(34) & "event.returnValue=false;" & VBA.Chr(34) & ">"
    WebBrowser1.Document.writeln "<SCRIPT LANGUAGE=" & VBA.Chr(34) & "JavaScript" & VBA.Chr(34) & ">"
    WebBrowser1.Document.writeln "if (this.name!='fullscreen') window.open(location.href,'fullscreen','fullscreen')"
    WebBrowser1.Document.writeln "</script>"
    WebBrowser1.Document.writeln "</BODY>"
    'WebBrowser1.Document.writeln "</HTML>"
    'WebBrowser1.Document.Close
    End Sub
    Private Sub Form_Load()
    Command1.Caption = "&Open 全屏"
    Check1.Caption = "滚动条可见"
    End Sub
      

  11.   

    加上一句话
    If Right(App.Path, 1) <> "\" Then ppath = App.Path + "\" Else ppath = App.Path
    webbrowser.Navigate ppath+"index.htm"
      

  12.   

    用脚本该标题你会吧？
    比如改称~~~~~~MY$$$EXIT$$COMMAND~~~~~Private Sub WebBrowser1_TitleChange(ByVal Text As String)
    if text="~~~~~~MY$$$EXIT$$COMMAND~~~~~" then unload me
    End Sub
      

  13.   

    To: MoYu(魑魅魍魉)、playyuer(女㊣爱)、tg123(T.G.)…… 明天就要交货了!我要实现的这个问题对你们来说肯定非常简单！：）
    就是一个小程序放在光盘里自动播放时就进入全屏状态，其中的两个按钮，一个中文一个英文，相当于某些网站中让你选择中英文版一样，链接到一个HTML文件。但退出按钮在HTML文件里。
    这个小程序我也搞得差不多，但我怕明天还会有问题，可否占用你们一点保宝时间把这个小程序或原码写好后MAIL过来！　[email protected]
    感激不尽！另外再给分。
      

  14.   

    To: MoYu(魑魅魍魉)
    3> 你说的是JAVASCRIPT中的window.close()吧!没用!  
    还要在程序中加代码
    还要加什么代码?贴出来可以吗?“开始”莱单的状态栏 我说的是WINDOWS桌面下方的任务栏。
      

  15.   

    tg123(T.G.)
    比如改称~~~~~~MY$$$EXIT$$COMMAND~~~~~Private Sub WebBrowser1_TitleChange(ByVal Text As String)
    if text="~~~~~~MY$$$EXIT$$COMMAND~~~~~" then unload me
    End Sub能详细讲一下吗？