簡體   English   中英

如何使用vb.net窗口應用程序打開不帶菜單欄的html文件

[英]how to open html file without menu bar using vb.net window application

嗨,我正在嘗試使用以下代碼在Firefox瀏覽器中打開HTML文件

 Dim NewProcess As Process
 NewProcess.Start(url1)

默認情況下,它是在Firefox中打開的,因為我的默認瀏覽器是Firefox,但是它是使用所有工具和菜單欄打開的,我如何在沒有工具和菜單的情況下打開它。

我該怎么用

window.open(url,"MyWindow","config='toolbar=no, menubar=no,scrollbars=no,resizable=no,location=no,directories=no,atus=no'");

此頁面的屬性

打開新的Firefox進程時,您可以嘗試將-url參數與您的代碼一起傳遞。

Dim NewProcess As Process = Process.Start("firefox.exe", "-url ""javascript:window.open('" & url1 & "','MyWindow','config=toolbar=no,menubar=no,scrollbars=no,resizable=no,location=no,directories=no,atus=no');""")

編輯:

另外,由於似乎並非在所有情況下都可行,因此您可以編寫一個臨時HTML文件,該文件在打開時會根據您的規范創建一個新窗口。

Public Const BaseWindHTML As String = "<script>window.open('<replaceurl>','MyWindow','config=toolbar=no,menubar=no,scrollbars=no,resizable=no,location=no,directories=no,atus=no'); window.close();</script>"

Public Sub OpenNewWindow(ByVal URL As String)
    Dim HTMLPath As String = IO.Path.Combine(System.AppDomain.CurrentDomain.BaseDirectory(), "newwindow.html")

    Using Writer As New IO.StreamWriter(HTMLPath, False)
        Writer.Write(BaseWindHTML.Replace("<replaceurl>", URL))
    End Using
    Dim fProcess As Process = Process.Start("firefox.exe", "-url """ & HTMLPath & """")
    fProcess.WaitForInputIdle()
    Threading.Thread.Sleep(1500)
    fProcess.CloseMainWindow()
End Sub

使用示例:

OpenNewWindow("http://www.google.com/")

暫無
暫無

聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.

 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM