窗体问题？？

Question

一个程序中，有一个MDIForm窗体，一个子窗体form1
有没有办法在程序运行时使form1全屏显示？？？？
全屏显示时也可以恢复到正常的显示？？？
谢谢

Answer 1

'Form1.frm
Private Sub Command1_Click()
WindowState = 2 '最大化
End SubPrivate Sub Command2_Click()
WindowState = 0 '恢复正常
End Sub

Answer 2

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

Answer 3

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

Answer 4

Option ExplicitPrivate 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 LongPrivate 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 Sub