1,451
社区成员
发帖
与我相关
我的任务
分享
'Form1.MDIChild 为true
'Form2.MDIChild 为true
Private Sub MDIForm_Load()
Form1.Show
Me.WindowState = 2
End Sub
'--------form1 code--------
Private Sub Command1_Click()
'Form1.WindowState = 1 '可以让form1最小化
Form2.Show
Screen.ActiveForm.WindowState = 0
End Sub
Private Sub Form_Load()
Me.WindowState = 2
End Sub
'Form1.MDIChild 为true
'Form1.ShowInTaskbar 为false
'Form2.ShowInTaskbar 为flase
'Form2.MDIChild 为false
Private Sub MDIForm_Load()
Form1.Show
Me.WindowState = 2
End Sub
'--------form1 code--------
Private Sub Command1_Click()
Form2.Show 0, MDIForm1
Form2.Move (MDIForm1.Width - Form2.Width) \ 2, (MDIForm1.Height - Form2.Height) \ 2
End Sub
Private Sub Form_Load()
Me.WindowState = 2
End Sub