VB程序怎么实现窗口全屏

我要做一个flash播放窗口，要求是点击全屏按钮后flash全屏播放，程序窗口去掉标题栏，完全覆盖整个电脑屏幕，就像迅雷看看和QQ影音之类的播放器一样全屏播放。点击退出全屏按钮恢复原来的窗口。

我试过了windowState = 2，BorderStyle 属性设为 bsNone这个方法，这个要在窗口设置的时候把BorderStyle属性设为 bsNone，但是程序在运行过程中不能改变边框属性的。

请高手帮帮忙。

7 个解决方案

#1

做2个form,一个有边框,正常的,一个无边框最大化.
剩下的你知道了

#2

恩 应该用两个窗体，看看我的简易图像浏览器，双击图片进入全屏浏览，全屏时再双击还原成窗口模式，你可以参考一下：
http://download.csdn.net/detail/sysdzw/3927682

#3

很感谢2楼3楼的回复，你们说的方法我已经做过，但是不是很理想，问题出在某些flash文件在全屏后回到非全屏，也就是从非全屏窗口与全屏之间的转换的时候，某些flash文件会重新播放，而不能接着原来的进度播放。

我的思路是这样的，有边框的窗口中播放的flash，点击全屏的时候在无边框的窗口播放，是取得有边框窗口中的flash播放帧接着播放的，但是有的flash文件只有一帧，全靠脚本控制的游戏flash就不能如意了。
所以，必须在一个窗口一个控件中播放flash。

#4

把 flash控件放到一个图片框（或框架）控件中。
‘切换窗口’时，用 API函数 SetParent() 改变图片框的父窗口，同时调整一下图片框和flash控件的大小以适应窗口。

#5

引用 3 楼 pdy530 的回复:

很感谢2楼3楼的回复，你们说的方法我已经做过，但是不是很理想，问题出在某些flash文件在全屏后回到非全屏，也就是从非全屏窗口与全屏之间的转换的时候，某些flash文件会重新播放，而不能接着原来的进度播放。

我的思路是这样的，有边框的窗口中播放的flash，点击全屏的时候在无边框的窗口播放，是取得有边框窗口中的flash播放帧接着播放的，但是有的flash文件只有一帧，全靠脚本控制的游戏f……

那可以通过api函数在运行时修改边框。

#6

全屏幕可以先得到屏幕的分辨率,然后根据最大分辨率放大窗体,应该就可以了

#7

试试这样，仍然使用普通窗口，当全屏的时候，将使用代码将窗口的四边边框栏设置到屏幕之外