码农手册数据库编程基础.doc
《码农手册数据库编程基础.doc》由会员分享,可在线阅读,更多相关《码农手册数据库编程基础.doc(18页珍藏版)》请在文库网上搜索。
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 手册 数据库 编程 基础