答案:
建立无模式窗口 |
'make a new project; two forms 'on form1 a command button 'put the code in the right places 'press F5 Sub Form2_load() 'in the form2_load event 'be sure to make the form2 smaller then form1! lngOrigParenthWnd = SetWindowWord(Me.hwnd, -8, mdiMain.hwnd) End Sub Private Sub Form_Unload(Cancel As Integer) 'in the form2_unload event Dim lngResult& lngResult = SetWindowWord(Me.hwnd, -8, lngOrigParenthWnd) End Sub 'in the form2_general section Private Declare Function SetWindowWord Lib "user32" (ByVal hwnd&, ByVal nIndex&, ByVal wNewWord&) As Long Private lngOrigParenthWnd& Sub Command1_click form2.Show End Sub |
上一个:VB中实现同一窗口的多个实例及控件的动态增减
下一个:强制和防止窗口重画