机房,MDI窗体

一。 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

 

你可能感兴趣的:(机房,第一次机房收费系统)