通过实例学VB二).doc免费

站长专用！！ 通过实例学VB（二） 在上一章内我们建立了基本的编辑界面，包含一个Form窗体和一个MDI窗体。在这一章内，我们要进一步完善程序。包括添加菜单和实现文件打开、新建以及退出操作 首先打开在上一章中保存的工程文件。双击工程列表栏中的MDIForm1项打开MDI窗体。然后再点击菜单中的 Tools | Menu Editor… 项打开菜单编辑窗口。窗口如图所示： (附加图片 2-1.bmp 菜单编辑窗口) 首先在Caption栏中输入 文件[F] ，然后在Name栏中输入mFile。点击 Next 按钮将菜单条目转移到下一行，点击中间4个箭头按钮中指向右方的按钮，这时在菜单栏中就会出现4个小点。这说明该菜单项为上一个菜单项的子菜单。在Caption栏中输入 新建[N] ，在Name栏中输入 mFileNew 。再点击ShoutCut下拉框，选择 Ctrl+N 项。最后点击OK 键退出菜单编辑窗口。回到MDIForm1窗体，可以看到菜单加入到窗体上的效果。 在菜单编辑窗口中，Caption项为菜单的标题，为了可以通过键盘访问菜单，我们可以通过在菜单标题的某一个字母前加符号的方式来实现。在上面，我们分别在文件菜单项中输入 F ，在新建菜单项中输入 N ，则在运行时字母F、N 下会出现下划线。按Alt+F就打开文件菜单。Name项为菜单的名称，Index为该菜单项在同名菜单组中的索引。ShoutCut项定义该菜单项的快捷键。Checked复选框指定菜单是否被选中，如果选择该复选框，则窗口上该菜单标题前会打上一个勾。Enabled复选框指定菜单项是否可用，如果清除该复选框，则菜单项被灰度显示并不可用。Visible项指定菜单项是否显示在窗体中。WindowList项是设定显示MDI子窗口的选项，将会在下面介绍。 VB支持的菜单项最多可以有6级。在菜单列表框中，菜单项每增加一级，该菜单项前就会多4个圆点。二级菜单前有4个圆点，三级前有8个，四级有12个。在上面建立的菜单中，mFile为一级菜单，mFileNew为二级菜单。在菜单列表框上的4个方向箭头按钮就是控制菜单项级别的。向左和向右箭头分别使菜单项的级别增加或者降低一级。向上和向下箭头分别控制菜单项在同级菜单中上移和下移一个位置。但是菜单项级别不能跳跃，例如不能在一个一级菜单项后马上跟一个三级菜单项。Next按钮使焦点移到下一个菜单项，Insert按钮插入一个菜单项，Delete按钮删除菜单项。 介绍完菜单编辑器，再打开菜单编辑器，将程序的菜单项设计完。 在这个软件中，我们将只实现基本的文本编辑功能，建立、打开、保存文件，拷贝、复制、粘贴等，所以在菜单中只有基本的几项：文件菜单、编辑菜单、窗口菜单和察看菜单。 整个菜单完整结构如下： 菜单标题 名称 快捷键 菜单级别 文件[F] mFile 一级 新建[N] mFileNew Ctrl+N 二级 打开[O] mFileOpen Ctrl+O 保存[S] mFileSave Ctrl+S 另存[A] mFileSaveAs 打印[P] mFilePrint Ctrl+P - mFileSp 退出[X] mFileExit 编辑[E] mEdit 一级 撤销[U]键入 mEditUndo Ctrl+Z 二级 重复[R]键入 mEditRedo Ctrl+Y - mEditSp1 全选[A] mEditSelAll Ctrl+A 复制[C] mEditCopy Ctrl+C 剪切[T] mEditCut Ctrl+X 粘贴[P] mEditPaste Ctrl+V - mEditSp2 查找[F] mEditFind Ctrl+F 查找下一个[N] mEditFindNext F3 替换[R] mEditReplace Ctrl+R 察看[V] mView 一级 工具栏[T] mViewToolbar 二级 状态栏[S] mViewStat 窗口[W] mWindow 一级 层叠[C] mWindowCas 二级 平铺[T] mWindowTitle 在上面菜单列表中的菜单级别项中没有写出来的级别与上一个相同。另外在菜单项中为了建立分割菜单条。我们在菜单中加入了若干个标题为 – 的菜单项，该菜单项在窗口菜单中将显示为一个横向的分割条。 由于我们使用了MDI窗口方式来建立程序，我们希望在菜单中可以列出当前的MDI子窗口，这只要设定菜单的WindowList属性就可以实现这样的功能。菜单的WindowList属性确定菜单的子菜单中是否包含一个打开的 MDI子窗体列表。打开菜单编辑器，将mWindow项的WindowList复选框选中。然后运行程序，可以看到窗口菜单中增加了一个Form1项。下面是程序运行的效果图：（附加图片2