一。 MDI窗体打开新的窗体关闭原先的窗体:
Private Sub Form_Deactivate() '当不是活动窗体的时候,窗体卸载。
Unload Me
End Sub
二。MDI窗体打开新的,原先窗体最小化:
Private Sub Form_Deactivate()
If Me.WindowState <> 1 Then
Me.WindowState = 1
End If
End Sub
三。MID窗体不能设置属性居中,就用代码了:
Private Sub Form_Load()
Me.Left = (MDIForm1.Width - Me.Width) / 2
Me.Top = (MDIForm1.Height - Me.Height) / 2
四:怎么让其他窗体不跑出主窗体讷:
用MDI建立主窗体,其他的设置成MDI的子窗体。(子窗体设计方式:只要把窗体的属性MDIChild设置为true就?。)
五:控件无法显示在MDI窗台上:
往MDI主窗体放picture控件,然后再画上自己要的控件
六:控件无法改变大小:
看菜单栏上,格式——锁定控件,点击一下?即可。
七:背景窗体会存在,不会消失且窗体正常调用:
要用API函数。先在模块定义:
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
然后在各个对应的菜单单击选项下写上:
Private Sub up_Click()
SetParent frmStuInfoMain.hwnd, Picture1.hwnd '不会被遮挡,从而让调用的窗体正常显示。hwnd是句柄,相当于人的身份证。用来标识或者切换到对象。
Load frmStuInfoMain '加载
frmStuInfoMain.Show
End Sub
或者:
Private Sub x_Click()
SetParent frmAddConsumer.hwnd, MDIForm1.hwnd
Load frmAddConsumer
frmAddConsumer.Show
End Sub
八:调用新窗体,原先窗体自动关闭:
Private Sub Form_Deactivate() '不是活动窗体时,窗体卸载
Unload Me
End Sub