1、elpKey（帮助键）属性返回或设置标识请求的帮助主题的关键字。4、HelpConText（帮助上下文）属性返回或设置请求的帮助主题的上下文ID。在10.2.1字体“对话框”知识点的例中的“帮助”按钮的单击事件过程如下：Private Sub cmdHelp_Click()CommonDialog1.HelpCommand=cdlHelpContentsCommonDialog1.HelpFile=c:windowshelpnotepad.hlpCommonDialog1.ShowHelpCommonDialog1.Action=6End Sub图10-1210.3.1 菜单编辑器及其使用技巧
2、菜单是图形化界面一个必不可少的组成元素，在应用程序窗口中加入菜单,通过菜单对各种命令按功能进行分组，可以使用户方便、直观地选择命令和选项，让用户感到操作更简单、快捷。Windows环境下的应用程序一般为用户提供三种菜单：窗体控制菜单（如图10-13所示）、下拉菜单（如图10-14所示）与快捷菜单（如图10-15所示）。Visual Basic中的菜单通过菜单编辑器，即菜单设计窗口建立。将要建立下拉菜单的窗体设为活动窗体后，可以通过4种方法进入菜单编辑器： 执行“工具”菜单中的“菜单编辑器”命令。 使用热键Ctrl+E。 单击工具栏中的“菜单编辑器”按钮。 在要建立菜单的窗体上单击鼠标右键，将弹
3、出一个菜单，在该菜单中单击“菜单编辑器”命令。通过以上任一方法，均可调出菜单编辑器，如图10-16所示。菜单编辑器窗口分为3部分，即数据区、编辑区和菜单项显示区。 图10-16 菜单编辑器10.3.2 动态菜单动态增减则是在运行阶段根据用户的选择来增加或减少菜单项，这主要是利用控件数组实现的。【例】设计一个如图10-17所示的窗体，要求当文本框txtNotpad的内容发生变化后，菜单栏中将出现一个“编辑”菜单，它包括“撤销”、“剪切”、“复制”、“粘贴”、“删除”和“全选”6个子菜单项。单击任一个子菜单项将删除该菜单项。图10-17 文本框输入内容之后的窗体Option ExplicitDim
4、 flag As IntegerPrivate Sub Form_Load()flag=FalseEnd SubPrivate Sub Form_Unload(Cancel As Integer)Dim i As Integeri=MsgBox(确实要退出吗？, vbYesNo+vbExclamation+vbDefaultButton1, 退出)If i=vbNo Then Cancel=TrueEnd SubPrivate Sub menu_Click(Index As Integer)Unload menu(Index)End SubPrivate Sub mnuExit_Click()
5、Unload frmMainEnd SubPrivate Sub txtInput_Change()If Not flag Thenflag=TrueLoad menu(1)menu(1).Caption=撤消mnuEdit.Visible=TrueLoad menu(2)menu(2).Caption=-menu(2).Visible=TrueLoad menu(3)menu(3).Caption=剪切menu(3).Visible=Truemenu(3).Enabled=FalseLoad menu(4)menu(4).Caption=复制menu(4).Visible=Truemenu(
6、4).Enabled=FalseLoad menu(5)menu(5).Caption=粘贴menu(5).Visible=Truemenu(5).Enabled=FalseLoad menu(6)menu(6).Caption=删除menu(6).Visible=TrueLoad menu(7)menu(7).Caption=-menu(7).Visible=TrueLoad menu(8)menu(8).Caption=全选menu(8).Visible=TrueEnd IfEnd SubPrivate Sub txtInput_MouseDown(Button As Integer, S
7、hift As Integer, X As Single, Y As Single)If Button=vbLeftButton ThenPopupMenu mnuEdit, vbPopupMenuLeftButton, X, YEnd IfEnd Sub单击“撤销”和“全选”两个菜单项后。图10-18 单击“撤销”和“全选”两个菜单项后的窗体10.3.3 弹出式菜单弹出式菜单能够根据用户当前单击鼠标的位置、动态地调整菜单项的显示位置及显示内容，提供相应的操作。弹出式菜单又称为为：上下文菜单、快捷菜单、右键菜单。为某对象设计弹出式菜单的步骤： 在菜单编辑器中设计各菜单项，然后将顶级菜单设置为不
8、可见。 在对象的MouseDown事件过程中编写代码，用以下的PopupMenu方法显示弹出式菜单：格式：对象.PopupMenu 菜单名, 标志, x, y其中，标志：0：菜单项只对鼠标左键有反应。2：菜单项对鼠标左键和右键都有反应，PopupMenu方法只能用在MouseDown事件过程。功能：在当前鼠标位置或指定的坐标位置显示弹出式菜单。例如：设计窗体和文本框的弹出式菜单。如图10-19和图10-20所示。图10-19 图10-201、设置菜单编辑器（见表10-1）表10-1 用Fcolor 保存窗体初始背景颜色值Dim Fcolor As Long Private Sub Form_L
9、oad()Fcolor=Form1.BackColorEnd Sub 2、在文本框的MouseDown事件过程中编写代码Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button=2 ThenPopupMenu EE, 0 Or 0End IfEnd Sub3、在窗体的MouseDown事件过程中编写代码Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,
10、Y As Single)If Button=2 ThenPopupMenu FF,8 Or 0, , ,FF3 End IfEnd Sub 4、编写实现菜单命令功能的代码Private Sub EE1_Click()Text1.FontSize=Text1.FontSize+1End SubPrivate Sub EE2_Click()Text1.FontSize=Text1.FontSize1 End SubPrivate Sub EE3_Click()If EE3.Caption=锁定 ThenEE3.Caption=取消锁定Text1.Locked=True ElseEE3.Captio
11、n=锁定 Text1.Locked=False End IfEnd SubPrivate Sub FF1_Click()Form1.BackColor=vbRed End SubPrivate Sub FF2_Click()Form1.BackColor=vbGreen End SubPrivate Sub FF3_Click()Form1.BackColor=Fcolor End Sub第十章 对话框与菜单程序设计 本章主要教学内容总结通过本章的学习，使学生了解Windows应用程序的两种人机交互工具对话框及菜单。理解系统预定义的对话框（InputBox和MsgBox）。掌握了用户自定义对话
12、框和通用对话框控件的使用。掌握了菜单编辑器、菜单的事件响应程序、菜单项的控制、弹出式菜单的方法。文本内容，也是当窗体被最小化后出现在窗体图标下的文本。如图2-2中窗体的Caption属性值是“VB窗体”。4、字体Font属性组 FontName属性是字符型，决定对象上正文的字体（缺省为宋体）。FontSize属性是整型，决定对象上正文的字体大小。FontBold属性是逻辑型，决定对象上正文是否是粗体。FontItalic属性是逻辑型，决定对象上正文是否是斜体。FontStrikeThru属性是逻辑型，决定对象上正文是否加一删除线。FontUnderLine属性是逻辑型，决定对象上正文是否带下划
13、线。5、Enabled属性（逻辑值）决定控件是否可操作。True：允许用户进行操作，并对操作出响应（缺省值）。False：呈暗淡色，禁止用户进行操作。6、Visible属性（逻辑值）决定控件是否可见True：运行时控件可见（缺省值）。 False：运行时控件隐藏，用户看不到，但控件本身是存在的。7、BackColor属性和ForeColor属性 BackColor属性用于返回或设置对象的背景颜色。ForeColor属性用于返回或设置在对象里显示图片和文本的前景颜色。它们是十六进制长整型数据。在程序代码中可用Windows运行环境的红-绿-蓝（RGB）颜色方案，使用调色板或在代码中使用RGB或Q
14、BColor函数指定标准RGB颜色。例如：将窗体Form1的背景色设置为红色，则可使用下面三种情况：Form1.BackColor=RGB(255,0,0)Form1.BackColor=&HFF& Form1.BackColor=vbRed 二、窗体的其它常用属性 1、MaxButton最大化按钮和MinButton最小化按钮：当值为True，有最大或最小化按钮，False则无。 2、Icon控制图标属性：返回或设置窗体左上角显示或最小化时显示的图标。注意：此属性必须在ControlBox属性设置为True才有效。 3、ControlBox控制菜单框属性：设置True为有，如设置为False
15、则无控件菜单，同时窗体也无最大化按钮和最小化按钮，即使MaxButton属性和MinButton属性设置为True。4、PicTrue图片属性：设置窗体中要显示的图片。加载图片操作同Icon控制图标属性。5、BorderStyle：边框风格, 通过改变BorderStyle属性，可以控制窗体如何调整大小。 0-None：无边框； 1-单线边框，不可以改变窗口大小； 2-Sizable：双线边框，可以改变窗口大小； 3-Fixed Double：双线框架，不可以改变窗口大小。 4-Fixed Tool Window:窗体外观与工具条相似。有关闭按钮 ，不可以改变窗口大小。 5-Sizable T
16、ool Window：窗体外观与工具条相似。有关闭按钮 ，可以改变窗口大小。6、WindowsState属性 0正常窗口状态，有窗口边界； 1最小化状态，以图标方式运行； 2最大化状态，无边框，充满整个屏幕。 7、AutoRedraw属性该属性决定窗体被隐藏或被另一窗口覆盖之后重新显示，是否重新还原该窗体被隐藏或覆盖以前的画面。即是否重画如Circle、Line、Pset和Print等方法的输出。当为True时，重新还原该窗体以前的画面。当为False时，则不重画AutoRedraw属性。2.3.2 窗体事件 窗体事件是窗体识别的动作。与窗体有关的事件较多，Visual Basic 6.0中有
17、30多个，但平时在编程序时并不需要对所有事件编程，用户只需掌握一些常用事件，了解这些事件的触发机制即可。1、Click事件在程序运行时单击窗体内的某个位置，Visual Basic将调用窗体的FompClick事件。如果单击的是窗体内的控件，则只能调用相应控件的Click事件。2、DblClick事件程序运行时双击窗体内的某个位置，就触发了两个事件：第一次按动鼠标时，触发Click事件，第二次按动鼠标产生DblClick事件。3、Load事件程序运行时，窗体被装入工作区，将触发它的Load事件，所以该事件通常用来在启动应用程序时对属性和变量初始化。4、Unload事件卸载窗体时触发该事件。5、
18、Resize事件无论是因为用户交互，还是通过代码调整窗体的大小，都会触发一个Resize事件。2.3.3 窗体方法窗体常用的方法有：打印输出Print、移动Move、清除Cls、显示Show、隐藏Hide等方法。使用的形式：对象. 方法一、Print方法形式：对象.PrintSpc(n)|Tab(n)表达式列表；|，作用：在对象上输出信息对象：窗体、图形框或打印机(Printer) ,省略对象在窗体上输出。Spc(n)函数：插入n个空格，允许重复使用。Tab(n)函数：左端开始右移动n列，允许重复使用。；(分号)：光标定位上一个显示的字符后。，(逗号)：光标定位在下一个打印区的开始位置处。每个
19、打印区占14列。无；，换行。开始打印的位置是由对象的CurrentX和CurrentX属性决定，缺省为打印对象的左上角0，0。【例】在窗体Form1的单击事件中写入如下代码：Private Sub Form_Click()a = 10: b = 3.14: c = 100Print a=; a, b=; bPrint a=; a, b=; bPrint a=; a, b=; bPrint 空一行Print ; a=; a, b=; bPrint a=; a, Tab(18); b=; bPrint a=; a, Spc(18); b=; b PrintPrint a=; a, b=; bPri
20、nt Tab(18); “a=”; a, “b=”; b 从第18列开始打印输出Print Spc(18); a=; a, b=; bEnd Sub程序运行结果如图：二、Cls方法形式：对象.Cls作用：清除运行时在窗体或图形框中显示的文本或图形。注意：不清除在设计时的文本和图形。清屏后坐标当前回到原点。三、Move方法形式：对象.Move 左边距离，上边距离，宽度，高度作用：移动窗体或控件，并可改变其大小。对象：可以是窗体及除时钟、菜单外的所有控件，省略代表窗体。左边距离，上边距离，宽度，高度：数值表达式，以twip为单位。如果是窗体对象，则“左边距”和“上边距”是以屏幕左边界和上边界为准。其它则是以窗体的左边和上边界为准。【例】使用Move方法移动一个窗体。双击窗体，窗体移动并定位在屏幕的左上角，同时窗体的长宽也缩小一倍。为了实现这一功能，可以在窗体Forml的“代码”窗口中输入下列代码：Private Sub Form_DblClick()Form1.Move 0,0,Form1.Width/2,Form1.Height/2End Sub四、Show(显示)方法Show方法用于在屏幕上显示一
