如何将MDI窗体的子窗体全屏显示?

Question

就是象photoshop那样的效果,按F键切换全屏的效果
请指教

Answer 1

据我所知没有直接的方法可以实现，但是，可以用一点小技巧，做一个和MDICHILD窗口一模一样的窗体，把原来的MDICHILD窗口隐藏，而把那个一模一样的窗口全屏显示，呵呵！也许真的有办法可以实现，我就来个抛砖引玉吧，希望高手能给出一个好的办法！

Answer 2

用ASCII码判断是否按下按键，然后改变窗体的SIZE就可以实现了

Answer 3

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
'正常显示
Private Sub Command1_Click()
  
  SetParent Form1.hWnd, MDIForm1.hWnd
  Form1.WindowState = 2
  Form1.Show
  
  
  
  
End Sub
'全屏显示
Private Sub Command2_Click()
  SetParent Form1.hWnd, GetDesktopWindow
  Form1.WindowState = 2
  Form1.Show
  
End Sub

Answer 4

Option ExplicitPrivate Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
'正常显示
Private Sub Command1_Click()
  
  SetParent Form1.hWnd, MDIForm1.hWnd
  Form1.WindowState = 0           '这里应该是0
  Form1.Show
  
  
  
  
End Sub
'全屏显示
Private Sub Command2_Click()
  SetParent Form1.hWnd, GetDesktopWindow
  Form1.WindowState = 2
  Form1.Show
  
End Sub

Answer 5

'正常显示－－是指正常在mdi里最大化显示   :)