第八章界面设计new.pptVIP

Dim NewDoc As New Form1 就会产生一个新的窗体NewDoc 可以编写一个过程来产生并打开一个窗体。 Public Sub FileNewProc( ) Dim NewDoc As new Form1 Static N As Integer N=N+1 NewDoc.Caption=“no” N NewDoc.Show End Sub 每调用一次此过程，产生一个子窗体。 2、MDI窗体与子窗体的交互 1）活动子窗体和活动控件 VB中提供两个访问MDI窗体的属性：ActiveForm和ActiveControl，分别表示具有焦点或最后被激活的子窗体，以及表示活动子窗体上具有焦点的控件。 如：假设想从子窗体的文本框中把所选文本复制到剪贴板上，在应用程序的“编辑”菜单上有一个“复制”菜单项，它的Click事件将会调用Copydoc过程，把选定的文本复制到剪贴板上： Sub Copydoc( ) Clipboard.SetText MDIForm1.ActiveForm.ActiveControl.SelText End Sub 注意：当访问ActiveForm属性时，至少有一个MDI子窗体被加载或可见，否则会返回错误。 2）显示MDI窗体及其子窗体 显示MDI窗体及其子窗体的方法是:show 加载子窗体时，其父窗体会自动加载并显示，而加载MDI窗体时，其子窗体并不会自动加载。 MDI窗体有AutoShowChildren属性，决定是否自动显示子窗体。如果设置为True，则当改变子窗体的属性时，会自动显示该子窗体，不再需要Show方法；如果设置为False，则不会自动显示，子窗体处于隐藏状态直至用Show方法把它们显示出来。 例：建立一个如下图所示的简易文本编辑器，要求能完成文本的一般性编辑操作。 设计步骤： 1）添加一个MDI窗体，然后设Form1的MDIChild属性为True； 2）在MDI窗体中添加一个CommonDialog1，用于完成改变子窗体上文本框中文本的格式； 3）在子窗体上添加一个文本框，并设置可处理多行文本。 4）在MDI窗体上，建立其菜单。 5）保存工程。与普通工程文件相同，将每个窗体分别保存。 由于关于文件的操作还没有讲，故此仅做一个“文件”菜单中的新建和退出，以及“编辑”菜单中的字体和“窗口菜单”的水平平铺、垂直平铺。 代码如下 Private Sub Fnew_Click() Dim newform As New Form1 Static num As Integer num = num + 1 newform.Show newform.Caption = 新建文档 num End Sub Private Sub Fexit_Click() End End Sub Private Sub Font_Click() CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.ShowFont MDIForm1.ActiveForm.ActiveControl.FontName = CommonDialog1.FontName MDIForm1.ActiveForm.ActiveControl.FontSize = CommonDialog1.FontSize MDIForm1.ActiveForm.ActiveControl.FontBold = CommonDialog1.FontBold MDIForm1.ActiveForm.ActiveControl.FontItalic = CommonDialog1.FontItalic MDIForm1.ActiveForm.ActiveControl.ForeColor = CommonDialog1.Color End Sub Private Sub sp_Click() MDIForm1.Arrange 1 End Sub Private Sub cp_Click() MDIForm1.Arrange 2 End Sub 8.4 工具栏和状态栏 一、工具栏 工具栏的制作有两种方法：一是手工制作，利用图片框和命令按钮或复选框等来创建，比较繁琐；另一种方法是利用ToolBar和ImageList控件的组合使用，使得工具栏制作与菜单一样简单。 1、手工制作工具栏 1)、在窗体中添加一个图片框，并通过对其Align属性的设置来控制图片框出现的位置，通常设置属性为1，即图片框位于窗体顶部。 2)、创建工具栏按钮，在图片框中添加控件，通常是命令按钮、单选钮、复选框。