WebBrowser全屏显示

发布网友 发布时间：2022-05-12 00:35

我来回答

共5个回答

热心网友 时间：2023-10-30 05:52

Web Browser全屏显示方法：
1 设置里，设成无标题窗体；
2 选择页面最大化；
3 参数栏填入一下代码：
ebbrowser1.top=0
webbrowser1.left=0
webbrowser1.width=form.width
webbrowser1.height=form.height
4 最后保存退出即可。

热心网友 时间：2023-10-30 05:52

不知道你用的是什么语言编程。还是给你个思路吧
在窗口大小被改变的事件里这样写：
WebBrowser高度=窗口高度-用户区高度
WebBrowser宽度=窗口宽度-用户区宽度
这样就OK了

热心网友 时间：2023-10-30 05:53

1:设成无标题窗体
2：最大化
3：webbrowser1.top=0
webbrowser1.left=0
webbrowser1.width=form.width
webbrowser1.height=form.height

热心网友 时间：2023-10-30 05:53

不是有dock 属性么？

这个可以的

其他的问题就看你怎么设置窗体的属性了

热心网友 时间：2023-10-30 05:54

VB程序运行时，把窗口最大化后，窗口是不能被调整大小的（最小化除外），在程序中也不行。
设计时，可以正常窗口呈现，并屏蔽窗体的最大化按钮，自己做个替代的“最大化”按钮，实现窗体放大。当点击“最大化”时，触发Form的ReSize事件，在Form的ReSize事件中，写入：
Private Sub Form_Resize()
Form1.Left = 0
Form1.Top = 0
Form1.Width = Screen.Width
Form1.Height = Screen.Height - GetTaskbarHeight
End Sub
（当程序启动时，也会同时触发Form_ReSize的）

其中，GetTaskbarHeight的获取要写进模块文件中：
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_GETWORKAREA = 48

Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Function GetTaskbarHeight() As Integer
Dim lRes As Long
Dim rectVal As RECT

lRes = SystemParametersInfo(SPI_GETWORKAREA, 0, rectVal, 0)
GetTaskbarHeight = ((Screen.Height / Screen.TwipsPerPixelX) -rectVal.Bottom) * Screen.TwipsPerPixelX
End Function

但是，这样做还要考虑到有些人把任务栏移到其他地方的，比如左侧，右侧，甚至隐藏，所以，也是很麻烦的哦