Private Sub Form_Load() 'Form1中 Form1.Show Form2.Show vbModal, Me End Sub
你可以不选择这个事件啥 Form_Activate
Private Sub Form_Load() mydialog.show end sub 在mydialog中 Private Sub Form_Activate() form1.enabled=false End SubPrivate Sub Form_Unload(Cancel As Integer) form1.enabled=true End Sub
Private Sub Form_Load() 'Form1中 Form1.Show Form2.Show vbModal, Me End Sub
Form1.Show
Form2.Show vbModal, Me
End Sub
Form_Activate
Private Sub Form_Load()
mydialog.show
end sub
在mydialog中
Private Sub Form_Activate()
form1.enabled=false
End SubPrivate Sub Form_Unload(Cancel As Integer)
form1.enabled=true
End Sub
Form1.Show
Form2.Show vbModal, Me
End Sub