vb学习.zip_Windows编程下载-pudn.com

<html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta charset="utf-8"> <meta name="generator" content="pdf2htmlEX"> <meta http-equiv="X-UA-Compatible" content="IE=edge,chrome=1"> <link rel="stylesheet" href="https://static.pudn.com/base/css/base.min.css"> <link rel="stylesheet" href="https://static.pudn.com/base/css/fancy.min.css"> <link rel="stylesheet" href="https://static.pudn.com/prod/directory_preview_static/62808dab9b6e2b6d558cff8c/raw.css"> <script src="https://static.pudn.com/base/js/compatibility.min.js"></script> <script src="https://static.pudn.com/base/js/pdf2htmlEX.min.js"></script> <script> try{ pdf2htmlEX.defaultViewer = new pdf2htmlEX.Viewer({}); }catch(e){} </script> <title></title> </head> <body> <div id="sidebar" style="display: none"> <div id="outline"> </div> </div> <div id="pf1" class="pf w0 h0" data-page-no="1"><div class="pc pc1 w0 h0"><img class="bi x0 y0 w1 h1" alt="" src="https://static.pudn.com/prod/directory_preview_static/62808dab9b6e2b6d558cff8c/bg1.jpg"><div class="c x0 y1 w2 h2"><div class="t m0 x1 h3 y2 ff1 fs0 fc0 sc0 ls0 ws0">通过实例学 VB（二）</div><div class="t m0 x2 h4 y3 ff1 fs1 fc0 sc1 ls0 ws0">在上一章内我们建立了基本的编辑界面，包含一个 Form 窗体和一个 MDI 窗体。在这</div><div class="t m0 x1 h4 y4 ff1 fs1 fc0 sc1 ls0 ws0">一章内，我们要进一步完善程序。包括添加菜单和实现文件打开、新建以及退出操作</div><div class="t m0 x2 h4 y5 ff1 fs1 fc0 sc1 ls0 ws0">首先打开在上一章中保存的工程文件。双击工程列表栏中的 MDIForm1 项打开 MDI 窗</div><div class="t m0 x1 h4 y6 ff1 fs1 fc0 sc1 ls0 ws0">体。然后再点击菜单中的 Tools | Menu Editor… 项打开菜单编辑窗口。窗口如图所示：</div><div class="t m0 x1 h4 y7 ff3 fs1 fc0 sc1 ls0 ws0">(附加图片 2-1.bmp 菜单编辑窗口)</div><div class="t m0 x2 h4 y8 ff1 fs1 fc0 sc1 ls0 ws0">首先在 Caption 栏中输入 文件[&F] ，然后在 Name 栏中输入 mFile。点击 Next 按钮将</div><div class="t m0 x1 h4 y9 ff1 fs1 fc0 sc1 ls0 ws0">菜单条目转移到下一行，点击中间 4 个箭头按钮中指向右方的按钮，这时在菜单栏中就会</div><div class="t m0 x1 h4 ya ff1 fs1 fc0 sc1 ls0 ws0">出现 4 个小点。这说明该菜单项为上一个菜单项的子菜单。在 Caption 栏中输入 新建[&N]</div><div class="t m0 x1 h4 yb ff1 fs1 fc0 sc1 ls0 ws0">，在 Name 栏中输入 mFileNew 。再点击 ShoutCut 下拉框，选择 Ctrl+N 项。最后点击 OK</div><div class="t m0 x1 h4 yc ff1 fs1 fc0 sc1 ls0 ws0">键退出菜单编辑窗口。回到 MDIForm1 窗体，可以看到菜单加入到窗体上的效果。</div><div class="t m0 x2 h4 yd ff1 fs1 fc0 sc1 ls0 ws0">在菜单编辑窗口中，Caption 项为菜单的标题，为了可以通过键盘访问菜单，我们可以</div><div class="t m0 x1 h4 ye ff1 fs1 fc0 sc1 ls0 ws0">通过在菜单标题的某一个字母前加&符号的方式来实现。在上面，我们分别在文件菜单项</div><div class="t m0 x1 h4 yf ff1 fs1 fc0 sc1 ls0 ws0">中输入 &F ，在新建菜单项中输入 &N ，则在运行时字母 F、N 下会出现下划线。按 Alt+F</div><div class="t m0 x1 h4 y10 ff1 fs1 fc0 sc1 ls0 ws0">就打开文件菜单。Name 项为菜单的名称， Index 为该菜单项在同名菜单组中的索引。</div><div class="t m0 x1 h4 y11 ff3 fs1 fc0 sc1 ls0 ws0">ShoutCut 项定义该菜单项的快捷键。Checked 复选框指定菜单是否被选中，如果选择该复</div><div class="t m0 x1 h4 y12 ff1 fs1 fc0 sc1 ls0 ws0">选框，则窗口上该菜单标题前会打上一个勾。Enabled 复选框指定菜单项是否可用，如果清</div><div class="t m0 x1 h4 y13 ff1 fs1 fc0 sc1 ls0 ws0">除该复选框，则菜单项被灰度显示并不可用。Visible 项指定菜单项是否显示在窗体中。</div><div class="t m0 x1 h4 y14 ff3 fs1 fc0 sc1 ls0 ws0">WindowList 项是设定显示 MDI 子窗口的选项，将会在下面介绍。</div><div class="t m0 x2 h4 y15 ff3 fs1 fc0 sc1 ls0 ws0">VB 支持的菜单项最多可以有 6 级。在菜单列表框中，菜单项每增加一级，该菜单项前</div><div class="t m0 x1 h4 y16 ff1 fs1 fc0 sc1 ls0 ws0">就会多 4 个圆点。二级菜单前有 4 个圆点，三级前有 8 个，四级有 12 个。在上面建立的菜</div><div class="t m0 x1 h4 y17 ff1 fs1 fc0 sc1 ls0 ws0">单中，mFile 为一级菜单，mFileNew 为二级菜单。在菜单列表框上的 4 个方向箭头按钮就</div><div class="t m0 x1 h4 y18 ff1 fs1 fc0 sc1 ls0 ws0">是控制菜单项级别的。向左和向右箭头分别使菜单项的级别增加或者降低一级。向上和向</div><div class="t m0 x1 h4 y19 ff1 fs1 fc0 sc1 ls0 ws0">下箭头分别控制菜单项在同级菜单中上移和下移一个位置。但是菜单项级别不能跳跃，例</div><div class="t m0 x1 h4 y1a ff1 fs1 fc0 sc1 ls0 ws0">如不能在一个一级菜单项后马上跟一个三级菜单项。Next 按钮使焦点移到下一个菜单项，</div><div class="t m0 x1 h4 y1b ff3 fs1 fc0 sc1 ls0 ws0">Insert 按钮插入一个菜单项，Delete 按钮删除菜单项。</div><div class="t m0 x2 h4 y1c ff1 fs1 fc0 sc1 ls0 ws0">介绍完菜单编辑器，再打开菜单编辑器，将程序的菜单项设计完。</div><div class="t m0 x2 h4 y1d ff1 fs1 fc0 sc1 ls0 ws0">在这个软件中，我们将只实现基本的文本编辑功能，建立、打开、保存文件，拷贝、</div><div class="t m0 x1 h4 y1e ff1 fs1 fc0 sc1 ls0 ws0">复制、粘贴等，所以在菜单中只有基本的几项：文件菜单、编辑菜单、窗口菜单和察看菜</div><div class="t m0 x1 h4 y1f ff1 fs1 fc0 sc1 ls0 ws0">单。</div><div class="t m0 x2 h4 y20 ff1 fs1 fc0 sc1 ls0 ws0">整个菜单完整结构如下：</div><div class="t m0 x1 h4 y21 ff1 fs1 fc0 sc1 ls0 ws0">菜单标题 名称 快捷键 菜单级别</div><div class="t m0 x1 h4 y22 ff1 fs1 fc0 sc1 ls0 ws0">文件[&F]</div><div class="t m0 x3 h5 y23 ff3 fs1 fc0 sc1 ls0 ws0">mFile</div><div class="t m0 x4 h4 y22 ff1 fs1 fc0 sc1 ls0 ws0">一级</div><div class="t m0 x1 h4 y24 ff1 fs1 fc0 sc1 ls0 ws0">新建[&N]</div><div class="t m0 x3 h5 y25 ff3 fs1 fc0 sc1 ls0 ws0">mFileNew Ctrl+N</div><div class="t m0 x4 h4 y24 ff1 fs1 fc0 sc1 ls0 ws0">二级</div><div class="t m0 x1 h4 y26 ff1 fs1 fc0 sc1 ls0 ws0">打开[&O]</div><div class="t m0 x3 h5 y27 ff3 fs1 fc0 sc1 ls0 ws0">mFileOpen Ctrl+O</div><div class="t m0 x1 h4 y28 ff1 fs1 fc0 sc1 ls0 ws0">保存[&S]</div><div class="t m0 x3 h5 y29 ff3 fs1 fc0 sc1 ls0 ws0">mFileSave Ctrl+S</div><div class="t m0 x1 h4 y2a ff1 fs1 fc0 sc1 ls0 ws0">另存[&A]</div><div class="t m0 x3 h5 y2b ff3 fs1 fc0 sc1 ls0 ws0">mFileSaveAs</div><div class="t m0 x1 h4 y2c ff1 fs1 fc0 sc1 ls0 ws0">打印[&P]</div><div class="t m0 x3 h5 y2d ff3 fs1 fc0 sc1 ls0 ws0">mFilePrint Ctrl+P</div></div></div><div class="pi" data-data='{"ctm":[1.611850,0.000000,0.000000,1.611850,0.000000,0.000000]}'></div></div> </body> </html>

<div id="pf2" class="pf w0 h0" data-page-no="2"><div class="pc pc2 w0 h0"><img class="bi x0 y0 w1 h1" alt="" src="https://static.pudn.com/prod/directory_preview_static/62808dab9b6e2b6d558cff8c/bg2.jpg"><div class="c x0 y1 w2 h2"><div class="t m0 x1 h5 y2e ff3 fs1 fc0 sc1 ls0 ws0">- mFileSp</div><div class="t m0 x1 h4 y2f ff1 fs1 fc0 sc1 ls0 ws0">退出[&X]</div><div class="t m0 x3 h5 y30 ff3 fs1 fc0 sc1 ls0 ws0">mFileExit</div><div class="t m0 x1 h4 y31 ff1 fs1 fc0 sc1 ls0 ws0">编辑[&E]</div><div class="t m0 x3 h5 y32 ff3 fs1 fc0 sc1 ls0 ws0">mEdit</div><div class="t m0 x4 h4 y31 ff1 fs1 fc0 sc1 ls0 ws0">一级</div><div class="t m0 x1 h4 y33 ff1 fs1 fc0 sc1 ls0 ws0">撤销[&U]键入</div><div class="t m0 x3 h5 y34 ff3 fs1 fc0 sc1 ls0 ws0">mEditUndo Ctrl+Z</div><div class="t m0 x4 h4 y33 ff1 fs1 fc0 sc1 ls0 ws0">二级</div><div class="t m0 x1 h4 y35 ff1 fs1 fc0 sc1 ls0 ws0">重复[&R]键入</div><div class="t m0 x3 h5 y36 ff3 fs1 fc0 sc1 ls0 ws0">mEditRedo Ctrl+Y</div><div class="t m0 x1 h5 y37 ff3 fs1 fc0 sc1 ls0 ws0">- mEditSp1</div><div class="t m0 x1 h4 y38 ff1 fs1 fc0 sc1 ls0 ws0">全选[&A]</div><div class="t m0 x3 h5 y39 ff3 fs1 fc0 sc1 ls0 ws0">mEditSelAll Ctrl+A</div><div class="t m0 x1 h4 y3a ff1 fs1 fc0 sc1 ls0 ws0">复制[&C]</div><div class="t m0 x3 h5 y3b ff3 fs1 fc0 sc1 ls0 ws0">mEditCopy Ctrl+C</div><div class="t m0 x1 h4 y3c ff1 fs1 fc0 sc1 ls0 ws0">剪切[&T]</div><div class="t m0 x3 h5 y3d ff3 fs1 fc0 sc1 ls0 ws0">mEditCut Ctrl+X</div><div class="t m0 x1 h4 y3e ff1 fs1 fc0 sc1 ls0 ws0">粘贴[&P]</div><div class="t m0 x3 h5 y3f ff3 fs1 fc0 sc1 ls0 ws0">mEditPaste Ctrl+V</div><div class="t m0 x1 h5 y40 ff3 fs1 fc0 sc1 ls0 ws0">- mEditSp2</div><div class="t m0 x1 h4 y41 ff1 fs1 fc0 sc1 ls0 ws0">查找[&F]</div><div class="t m0 x3 h5 y42 ff3 fs1 fc0 sc1 ls0 ws0">mEditFind Ctrl+F</div><div class="t m0 x1 h4 y43 ff1 fs1 fc0 sc1 ls0 ws0">查找下一个[&N]</div><div class="t m0 x3 h5 y44 ff3 fs1 fc0 sc1 ls0 ws0">mEditFindNext F3</div><div class="t m0 x1 h4 y45 ff1 fs1 fc0 sc1 ls0 ws0">替换[&R]</div><div class="t m0 x3 h5 y46 ff3 fs1 fc0 sc1 ls0 ws0">mEditReplace Ctrl+R</div><div class="t m0 x1 h4 y47 ff1 fs1 fc0 sc1 ls0 ws0">察看[&V]</div><div class="t m0 x3 h5 y48 ff3 fs1 fc0 sc1 ls0 ws0">mView</div><div class="t m0 x4 h4 y47 ff1 fs1 fc0 sc1 ls0 ws0">一级</div><div class="t m0 x1 h4 y49 ff1 fs1 fc0 sc1 ls0 ws0">工具栏[&T]</div><div class="t m0 x3 h5 y4a ff3 fs1 fc0 sc1 ls0 ws0">mViewToolbar</div><div class="t m0 x4 h4 y49 ff1 fs1 fc0 sc1 ls0 ws0">二级</div><div class="t m0 x1 h4 y4b ff1 fs1 fc0 sc1 ls0 ws0">状态栏[&S]</div><div class="t m0 x3 h5 y4c ff3 fs1 fc0 sc1 ls0 ws0">mViewStat</div><div class="t m0 x1 h4 y4d ff1 fs1 fc0 sc1 ls0 ws0">窗口[&W]</div><div class="t m0 x3 h5 y4e ff3 fs1 fc0 sc1 ls0 ws0">mWindow</div><div class="t m0 x4 h4 y4d ff1 fs1 fc0 sc1 ls0 ws0">一级</div><div class="t m0 x1 h4 y11 ff1 fs1 fc0 sc1 ls0 ws0">层叠[&C]</div><div class="t m0 x3 h5 y4f ff3 fs1 fc0 sc1 ls0 ws0">mWindowCas</div><div class="t m0 x4 h4 y11 ff1 fs1 fc0 sc1 ls0 ws0">二级</div><div class="t m0 x1 h4 y50 ff1 fs1 fc0 sc1 ls0 ws0">平铺[&T]</div><div class="t m0 x3 h5 y51 ff3 fs1 fc0 sc1 ls0 ws0">mWindowTitle</div><div class="t m0 x2 h4 y52 ff1 fs1 fc0 sc1 ls0 ws0">在上面菜单列表中的菜单级别项中没有写出来的级别与上一个相同。另外在菜单项中</div><div class="t m0 x1 h4 y53 ff1 fs1 fc0 sc1 ls0 ws0">为了建立分割菜单条。我们在菜单中加入了若干个标题为 – 的菜单项，该菜单项在窗口菜</div><div class="t m0 x1 h4 y54 ff1 fs1 fc0 sc1 ls0 ws0">单中将显示为一个横向的分割条。</div><div class="t m0 x2 h4 y55 ff1 fs1 fc0 sc1 ls0 ws0">由于我们使用了 MDI 窗口方式来建立程序，我们希望在菜单中可以列出当前的 MDI</div><div class="t m0 x1 h4 y56 ff1 fs1 fc0 sc1 ls0 ws0">子窗口，这只要设定菜单的 WindowList 属性就可以实现这样的功能。菜单的 WindowList</div><div class="t m0 x1 h4 y57 ff1 fs1 fc0 sc1 ls0 ws0">属性确定菜单的子菜单中是否包含一个打开的 MDI 子窗体列表。打开菜单编辑器，将</div><div class="t m0 x1 h4 y58 ff3 fs1 fc0 sc1 ls0 ws0">mWindow 项的 WindowList 复选框选中。然后运行程序，可以看到窗口菜单中增加了一个</div><div class="t m0 x1 h4 y59 ff3 fs1 fc0 sc1 ls0 ws0">Form1 项。下面是程序运行的效果图：（附加图片 2-2.bmp 包含菜单的程序运行界面）</div><div class="t m0 x2 h6 y5a ff1 fs2 fc0 sc0 ls0 ws0">技巧与提示：控件的命名</div><div class="t m0 x2 h4 y5b ff1 fs1 fc0 sc1 ls0 ws0">对 于 控 件 ， VB 中 一 般 是 按 照 控 件 类 型 加 号 码 的 方 式 设 定 控 件 名 称 的 ， 例 如</div><div class="t m0 x1 h4 y5c ff3 fs1 fc0 sc1 ls0 ws0">Command1、Command2。但是这种方法并不很好，因为你不能从名称上得知控件控件的功</div><div class="t m0 x1 h4 y5d ff1 fs1 fc0 sc1 ls0 ws0">能，一般使用的是前缀+名称的方式。这样即利于区分不同种类控件也便于标识控件的作</div><div class="t m0 x1 h4 y5e ff1 fs1 fc0 sc1 ls0 ws0">用。例如有两个 CommandButton，一个用于点击保存文件，一个用于点击打开文件，就可</div><div class="t m0 x1 h4 y5f ff1 fs1 fc0 sc1 ls0 ws0">以分别命名为 cmdSaveFile 和 cmdOpenFile，一般的控件前缀规则如下：</div><div class="t m0 x2 h4 y60 ff1 fs1 fc0 sc1 ls0 ws0">控件 前缀</div><div class="t m0 x2 h5 y61 ff3 fs1 fc0 sc1 ls0 ws0">CommandButton cmd</div><div class="t m0 x2 h5 y23 ff3 fs1 fc0 sc1 ls0 ws0">TextBox txt</div><div class="t m0 x2 h5 y62 ff3 fs1 fc0 sc1 ls0 ws0">Label lbl</div><div class="t m0 x2 h5 y63 ff3 fs1 fc0 sc1 ls0 ws0">ListBox lb</div><div class="t m0 x2 h5 y64 ff3 fs1 fc0 sc1 ls0 ws0">ComboBox cb</div><div class="t m0 x2 h5 y65 ff3 fs1 fc0 sc1 ls0 ws0">PictureBox pic</div><div class="t m0 x2 h4 y66 ff1 fs1 fc0 sc1 ls0 ws0">窗体 frm</div></div></div><div class="pi" data-data='{"ctm":[1.611850,0.000000,0.000000,1.611850,0.000000,0.000000]}'></div></div>