让网页全屏显示的代码

1
<!--
function winfix() {
selfmoveTo(-4,-4);
selfresizeTo(screenavailWidth+8,screenavailHeight+8);
}
//-->
这个可以用，在ONLOAD中调用这个函数就可以了。
2
<form> <div align="center"> <input type="BUTTON" name="FullScreen" value="全屏显示" onClick="windowopen(documentlocation, 'big', 'fullscreen=yes')"> </div> </form>
就这两种方法，你试试吧

可以通过对thisFormBorderStyle模式进行切换达到效果，其中FormBorderStyleNone就是你想要的全屏模式效果！
// 常规一般的有Maxinized和mininized的窗
thisFormBorderStyle = SystemWindowsFormsFormBorderStyleNone;
thisWindowState = FormWindowStateMaximized;

VB全屏代码
将Form的BorderStyle属性设为 0 - None,并：
Private Sub Form_Load()
MeWindowState = vbMaximized
End Sub
要 实现全屏与非全屏间的自由转换，建议:
使用两个(成对)的Form，其代码一样!一个全屏(BorderStyle为0),另一个非全屏(BorderStyle非0)。全屏 时Show全屏Form,Hide非全屏Form。非全屏时Show非全屏Form,Hide全屏Form。VB全屏代码
将Form的BorderStyle属性设为 0 - None,并：
Private Sub Form_Load()
MeWindowState = vbMaximized
End Sub
要 实现全屏与非全屏间的自由转换，建议:
使用两个(成对)的Form，其代码一样!一个全屏(BorderStyle为0),另一个非全屏(BorderStyle非0)。全屏 时Show全屏Form,Hide非全屏Form。非全屏时Show非全屏Form,Hide全屏Form。VB全屏代码
将Form的BorderStyle属性设为 0 - None,并：
Private Sub Form_Load()
MeWindowState = vbMaximized
End Sub
要 实现全屏与非全屏间的自由转换，建议:
使用两个(成对)的Form，其代码一样!一个全屏(BorderStyle为0),另一个非全屏(BorderStyle非0)。全屏 时Show全屏Form,Hide非全屏Form。非全屏时Show非全屏Form,Hide全屏Form。

---