山寨机中的战斗机！	程序优化工程师到底对IT界有没有贡献

窗体全屏的问题？？？？？

楼主vbcrack（我爱vb）2005-07-22 15:43:08 在 VB / 基础类提问

一个程序中，有一个MDIForm窗体，一个子窗体form1
有没有办法在程序运行时使form1全屏显示？？？？
全屏显示时也可以恢复到正常的显示？？？
谢谢
问题点数：50、回复次数：17Top

1 楼vbcrack（我爱vb）回复于 2005-07-23 08:34:29 得分 0

没有人知道，还是问得可笑？？？？Top

2 楼wzzwwz（皮皮鲁）回复于 2005-07-23 08:44:26 得分 1

说仔细点呀。
Top

3 楼vbcrack（我爱vb）回复于 2005-07-23 08:54:15 得分 0

个程序中，有一个MDIForm窗体，一个子窗体form1
有没有办法在程序运行时使form1全屏显示（就是form1脱离MDIfrom，不在成为MDIform的子窗体，同时在整个屏幕上显示）
全屏显示时也可以恢复到正常的显示？？？
谢谢
Top

4 楼ilove8（千里|你去哪里了,我等了你很久了!）回复于 2005-07-23 08:56:06 得分 1

WindowState = Maximined '最大
WindowState = Normal '恢复Top

5 楼vbcrack（我爱vb）回复于 2005-07-23 09:17:41 得分 0

to ilove8(可可)
要form1脱离MDIform窗体啊Top

6 楼fu0212（傅红雪）回复于 2005-07-23 09:20:39 得分 1

这个问题很难关注帮你UPTop

7 楼fu0212（傅红雪）回复于 2005-07-23 09:21:17 得分 1

要form1脱离MDIform窗体啊
脱离不是件容易的事啊Top

8 楼magicbacon（Cannot help coding）回复于 2005-07-23 09:22:51 得分 1

如同IE的全屏幕显示，如何实现呢？Top

9 楼vbcrack（我爱vb）回复于 2005-07-23 10:20:02 得分 0

upTop

10 楼laisiwei（.:RNPA:.刺猬）回复于 2005-07-23 10:30:28 得分 1

你再放个非子窗体,和form1一样,然后全屏就全屏这个Top

11 楼pudding009（布丁）回复于 2005-07-23 10:30:31 得分 1

如同IE的全屏幕显示

bodystyle=0Top

12 楼laisiwei（.:RNPA:.刺猬）回复于 2005-07-23 10:39:11 得分 38

Option Explicit

Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private bIsNotChild As Boolean
Private Tmphwnd As Long

Private Sub Command1_Click()
If bIsNotChild Then
Call SetParent(Form1.hwnd, Tmphwnd)
Form1.WindowState = 0
Else
Tmphwnd = GetParent(Form1.hwnd)
Call SetParent(Form1.hwnd, GetParent(MDIForm1.hwnd))
Form1.WindowState = 2
End If
bIsNotChild = Not bIsNotChild
End SubTop

13 楼jxgzay（jxgzay）回复于 2005-07-23 11:40:57 得分 1

你要取消Form1.MDIChild =true将它设置为False

Top

14 楼wudeqing（清水一碗）回复于 2005-07-23 13:28:47 得分 1

form1.mdichild=false
form1.WindowState = Maximined
Top

15 楼wzzwwz（皮皮鲁）回复于 2005-07-23 14:29:03 得分 2

MDIChild 是只读属性吧，运行期间不能改变

laisiwei(.:RNPA:.刺猬) 的方法我试了一下，成了，但是窗体的标题栏异常。。。。。Top

16 楼aijilong（小艾）回复于 2005-07-23 15:36:20 得分 1

form1.WindowState = Maximined '最大Top

17 楼vbcrack（我爱vb）回复于 2005-07-23 16:38:24 得分 0

谢谢 laisiwei(.:RNPA:.刺猬)

测试一切正常Top