利用SetWindowPos这个API函数 假如现在有两个窗口,CoolBarFrom是主菜单窗口,From1是操作窗口如下操作:From窗口要小 于CoolBarFrom. 1,在CoolBarFrom中加入Command按钮: Private Sub Command1_Click() From1.Show End Sub在From1中加入如下代码: Private Sub Form_Load() Dim retValue As Long retValue = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, flags) CoolbarForm.Show End Sub Private Sub Form_Deactivate() retValue = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, flags) End Sub
假如现在有两个窗口,CoolBarFrom是主菜单窗口,From1是操作窗口如下操作:From窗口要小
于CoolBarFrom.
1,在CoolBarFrom中加入Command按钮:
Private Sub Command1_Click()
From1.Show
End Sub在From1中加入如下代码:
Private Sub Form_Load()
Dim retValue As Long
retValue = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, flags)
CoolbarForm.Show
End Sub
Private Sub Form_Deactivate()
retValue = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, flags)
End Sub