实验10 多文档界面程序设计

实验目的：

1、了解MDI窗体和子窗体的特点； 2、掌握简单的多文档界面程序的设计。 实验内容： 1、实验要求

设计一个多文档界面的应用程序，能够新建多个子窗体，实现子窗体之间的复制，并对子窗体进行排列。 2、 分析设计

（1）先设计一个主界面，单击右键选择进入MDIForm1；

（2）创建MDI窗体，并添加窗体菜单：“文件”、“编辑”、“窗口”等； （3）在窗口菜单中，显示打开的子窗体列表，并实现子窗体的层叠、平铺、排列图标的排列方式。 3、窗体属性 对象名 FrmMain Label1 Label2 MDIForm1 Text1

4、窗体设计

属性名 caption caption caption caption text 设置值 主界面 应用程序演示 单击右键选择 多文档窗体 ----

5、源代码

主界面代码：

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then PopupMenu kjcd End Sub

Private Sub pcontinue_Click()

Me.Hide

MDIForm1.Show End Sub

Private Sub pend_Click()

End End Sub

MDI窗体代码： Dim no%

Private Sub arrangicon_Click()

MDIForm1.Arrange 3 End Sub

Private Sub cd_Click()

MDIForm1.Arrange 0 End Sub

Private Sub copy_Click()

Clipboard.SetText Me.ActiveForm.ActiveControl.SelText

End Sub

Private Sub exit_Click()

Unload Me FrmMain.Show End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Cancel = -1 End Sub

Private Sub new_Click()

Dim Newform As New Form1 no = no + 1

Newform.Caption = \"子窗体\" & no Newform.Show End Sub

Private Sub paste_Click()

Me.ActiveForm.Text1.SelText = Clipboard.GetText End Sub

Private Sub pp_Click()

MDIForm1.Arrange 1 End Sub

实验思考：

试与实验9内容合并，完成一个类似WORD的应用程序。