VB课件杨潇第8章

《VB课件杨潇第8章》由会员分享，可在线阅读，更多相关《VB课件杨潇第8章（31页珍藏版）》请在金锄头文库上搜索。

1、1,4.1 通用对话框 4.2 菜单设计 4.3 多重窗体和多文档界面 4.4 工具栏和状态栏 4.5 RichTextBox控件 4.6 应用程序向导,第4章 界面设计,2,4.1 通用对话框(CommonDialog),属性 Action：只能用于在程序中打开通用对话框。 DialogTiltle：对通用话框标题。 CancelError True：选择“取消”按钮，出现错误警告； Err.Number置为32755(cdCancel)。 False(缺省)：选择“取消”按钮，没有错误警告。 flag:可以修改每个具体对话框的默认操作,工程/部件,选定 部件标签,选定Microsoft C

2、ommDialog Control 6.0,该控件是activex控件需要将其添加到工具箱,确定,打开通用对话框：,3,1. “打开”文件对话框,initdir,filename,fileindex,filter,4,属性 FileName：包含路径 FileTitle：不包含路径 Filter：例如， Documents(*.DOC)|*.DOC|Text Files(*.TXT)|*.txt|All Files|*.* FilterIndex：决定在文件类型列表框中显示第几组类型的文件。 InitDir：初始化路径,5,2. “另存为”对话框 没有提供真正的存储文件操作，仍需要编程完成储存

3、操作。 属性 DefaultExt：所存文件的默认扩展名 3. “颜色”对话框：Action 为3时的通用对话框 属性 Color：返回或设置选定的颜色。,6,4. “字体”对话框,Flags属性：指示所显示的字体类型，必须设置。 cdlCFScreenFonts &H1 屏幕字体 cdlCFPrinterFonts &H2 打印机字体 cdlCFBoth &H3 打印机字体和屏幕字体。 cdlCFEffects &H100 显示删除线和下划线检查框以及颜色组合框,FontStrikethru,Color,Min、Max,例8.1中“字体.”按钮的事件过程,FontName,FontBold、

4、FontItalic,FontSize,FontUnderline,5. “打印”对话框:Action 为5时的通用对话框 属性 FromPage：起始页号 ToPage：终止页号 Copies：打印份数： 如果打印驱动程序不支持多份打印，该属性有可能始终返回 1。 6. “帮助”对话框： Action 为6时的通用对话框 帮助文件需要用其他的工具制作，如Microsoft Windows Help Compiler。 属性 HelpCommand：在线Help帮助类型 HelpFile：Help文件的路径及其名称，找到帮助文件 HelpKey：在帮助窗口显示由该帮助关键字指定的帮助信息。 H

5、elpContext:返回或者设置所需要的HelpTopic的Context ID 一般与HelpCommand属性（设置为vbhelpcontents） 一起使用，指定要显示的HelpTopic,8,4.2 菜单的设计,菜单形式：,主菜单名 快捷键 热键 子菜单标记,主菜单条,分隔线,菜单项,子菜单名,9,菜单列表框,一、菜单编辑器的使用 工具菜单编辑器(CTRL+E),菜单项属性,常用属性： 1. 标题(Caption) 热键：前面加& 2. 名称(Name)文本框 分隔符也应有名称。 3. 快捷键(Shortcut) 菜单名没有快捷键 4. 复选(Checked)检查框 TRUE 有 5

6、. 有效(Enabled)检查框 菜单项是否可被选择 6. 可见(Visible)检查框 菜单项是否可见,操作按钮,分隔菜单项：在标题栏输入一个连字符“”,10,二、 动态菜单即菜单项增减,在程序运行时，菜单随时增减，如“文件”菜单能保留最近打开的文件数。因此要使用菜单控件数组。 步骤： 1.在菜单设计时，加入一个菜单项，其Index为0（菜单数组）, Visual为False。 2.在程序运行时，通过Load方法向菜单数组增加新的菜单项。 例4.7在4.6中的文件菜单中保留最近打开的文件清单。 同样，要删除所建立的菜单项，使用UnLoad方法向菜单数组减少菜单项。,11,三、 弹出菜单(快捷

7、菜单),显示在窗体的浮动菜单，操作时使用右键，菜单与鼠标位置有关。设计与普通菜单类似，仅该菜单名不可显示即将菜单名的visible属性设置为false； 要显示时使用PopupMenu方法弹出菜单。 形式： 对象.PopupMenu 菜单名, 标志, x, y 标志：表示弹出的位置和触发的键 位置 性能 0：X 位置确定弹出菜单的左边界 0：只能用鼠标左键触发弹出菜单； 4：弹出菜单以X为中心 2：能用鼠标左、右键键触发弹出菜单； 8： X 位置确定弹出菜单的右边界 位置与性能是加的关系即采用或运算。 弹出菜单示例,Sub Text1_MouseDown(Button As Integer,

8、Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu EditMenu, vbPopupMenuCenterAlign End Sub,12,8.3 多重窗体和多文档窗体,一、多重窗体 1.添加窗体 “工程|添加窗体”,新建,现存,添加“现存”窗体时要注意： 防止多个窗体的name相同而不能添加； 添加的窗体实际是将其他工程中已有的窗体加入，多个工程共享窗体； 通过“另存为”命令以不同的窗体文件名保存，断开共享。 2. 保存窗体 一个工程中有多个窗体，应分别取不同的文件名保存在磁盘上，VBP工程文件中记

9、录了该工程的所有窗体文件名。,13,3. 设置启动窗体,设置启动对象,4. 窗体语句 (1)Load语句：装入窗体到内存但没有显示窗体 形式： Load 窗体名称 首次使用load语句将窗体调入内存时依次发生initialize和load事件 (2)Unload语句：从内存删除窗体 形式： Unload 窗体名称 unload me 关闭窗体自己即此语句所在窗体,“工程/属性” “启动对象”,14,5. 窗体方法 (1)Show方法：显示一个窗体（当窗体没有Load，自动Load） 窗体名称.Show 模式 0 Modal：关闭后才能对其他窗体进行操作。 1 Modeless: 可以对其他窗体

10、进行操作。 当窗体成为活动窗口时发生窗体的active事件 (2) Hide方法：隐藏窗体，没有Unload删除 窗体名称. Hide 6.不同 窗体间数据的存取 (1)存取控件的属性 另一窗体名.控件名.属性 例：设置当前窗体form1中的text1.text的值为form2窗体中的text1、text2两个控件的数值和 text1=val(form2.text1)+val(form2.text2) (2)存取变量的值 另一窗体名.全局变量名 注:存取的窗体内声明的是全局变量,15,例输入和计算学习成绩。,模块： Public MATH As Single Public PHYSICS As

11、 Single Public CHEMISTRY As Single Public CHINESE As Single Public ENGLISH As Single,16,二、 多文档界面(MDI) 1. 创建和设计MDI窗体及其子窗体 (1) 创建和设计MDI窗体 创建： “工程/添加MDI窗体”命令,设计：一般有菜单栏、工具栏、状态栏,17,(2) 创建和设计MDI子窗体 创建： MDI子窗体是一个MDIChild属性为True的普通窗体。 要创建多个子窗体，通过窗体类来实现： Public Sub FileNewProc() Dim NewDoc As New frmMDIChild

12、 No = No + 1 NewDoc.Caption = “no“ & No NewDoc.Show End Sub 设计：可无菜单栏，但必须有文本框。,MDI子窗体的Name,注意:new隐式的创建对象的关键字,其后应该是“类名”,因为窗体既是类又是对象,但是窗体上的控件就不可以这样了 Dim newdoc as new form1 声明并创建一个newdoc窗体变量 newdoc.show 新窗体显示 但 dim objtext as new text1,18,2. MDI窗体与子窗体的交互 (1)活动子窗体和活动控件 MDI窗体的两个属性：ActiveForm 和ActiveContr

13、ol ActiveForm:具有焦点的或者最后被激活的子窗体. ActiveControl:活动子窗体上具有焦点的控件 例将子窗体的文本框中所选文本复制到剪贴板上： ClipBoard.SetText = frmMDI.ActiveForm.ActiveControl.SelText 注:当访问ActiveForm 属性时,至少应该有一个MDI子窗体被加载或者 可见.,19,(2)显示MDI窗体及其子窗体 显示任何窗体的方法为show,还有有关规则： （1）加载子窗体时，其父窗体会自动加载并显示；反之则无。 （2）MDI窗体有AutoShowChildren属性，决定是否自动显示子窗体 tru

14、e:改变子窗体的属性后,会自动显示该子窗体 false:子窗体处于隐藏状态,直到用show方法显示 注: MDI子窗体没有AutoShowChildren属性,20,3. 多文档界面应用程序中的“窗口”菜单 (1)显示打开的多个文档窗口 要在某个菜单上显示所有打开的子窗体标题，只需利用菜单编辑器将该菜单的WindowList属性设置为True。 (2)排列窗口 利用Arrange方法进行层叠、平铺和排列图标。 形式： MDI窗体对象.Arrange 排列方式 排列方式,21,8.4工具栏和状态栏 “Microsoft Windows Common Controls 6.0”将控件添加到工具箱，

15、 通过ToolBar、ImageList组合使用建立工具栏，步骤： 1.在ImageList控件中添加所需的图像 2.在ToolBar控件中创建Button对象。 3.在ButtonClick事件中用Select Case语句对各按钮进行相应的编程。,一、在ImageList控件中添加图像 ImageList控件不单独使用，专门为其他控件提供图像库.,索引（Index）:图像的编号 关键字（Key）:图像的标识名 在ToolBar中引用 图像文件的扩展名为： .ico、.bmp、.gif、.jpg等,22,二、在ToolBar控件中添加按钮 1.为工具栏连接图像,ImageList与ToolB

16、ar建立连接后如果要对ImageList 控件进行增删图像,必须先要使两者切断联系, 即ToolBar控件的“图像框列表”设置为“无”,23,2.为工具栏增加按钮,索引（Index）、关键字（Key）每个按钮的编号、标识, ButtonClick事件中引用；,图像(Image) ImageList对象中的图像，值可以是Key或Index,样式(Style)，共6种,除菜单按钮(5)外的5种样式,24,三、 响应ToolBar控件事件 ToolBar控件常用的事件有两个：ButtonClick和ButtonMenuClick。前者对按钮样式为0-2，后者对样式为5的菜单按钮。 （1）用索引Index确定按钮 (2)用关键字Key确定按钮,Private Sub Toolbar1_ButtonClick(Byval Button As ComctlLib.Button) Select C