VB程序设计 第八章 界面设计

第八章 界面设计 第 17 页 共 47 页

If n > iMenucount Or n < 1 Then MsgBox \输入无效\ Exit Sub

End If

For i = n To iMenucount - 1

RunMenu(i).Caption = RunMenu(i + 1).Caption Next i

Unload RunMenu(iMenucount) iMenucount = iMenucount - 1

If iMenucount = 0 Then bar3.Visible = False End Sub

8.2.3 弹出菜单

弹出菜单也称为快捷菜单,上下文菜单

它是显示在窗体上的浮动菜单,操作时使用右键,菜单的出现与鼠标位置有关。设计弹出式菜单与普通菜单类似(都是使用菜单编辑器),将打算在顶部出现的菜单的顶层菜单的可见框(Visible属性)设置为False,而其下的每个菜单项的Visible属性仍要设置为True,这样设计出的菜单就可作为弹出菜单了。

要显示弹出菜单时使用PopupMenu方法(该方法忽略Visible属性的设置)即可。

PopupMenu方法的使用形式:

[对象.]PopupMenu 菜单名, 标志, x, y

标志(flags)参数用于进一步定义弹出菜单的位置和性能,表示弹出的位置和触发的键。x,y可以是按下鼠标按钮时的x,y值(默认),也可以指定一个有效的x,y值。格式中参数,除了菜单名外,其它都是可选的。

标志参数一览表 常数 vbPopupMenuLeftAlign vbPopupMenuCenterAlign vbPopupMenuRightAlign vbPopupMenuLeftButton vbPopupMenuRightButton 值 0 4 8 0 2 说明 位置: X 位置确定弹出菜单的左边界(默认) 弹出菜单以X为中心 X 位置确定弹出菜单的右边界 性能: 只能用鼠标左键触发弹出菜单(缺省值) 能用鼠标左或右键或左右键触发弹出菜单 下面针对文本框中的字体设置设计一个弹出菜单如下。 标题 名称 字体 mnuUp Visual Basic6.0 第 页 共 47 页 17

第八章 界面设计 第 18 页 共 47 页

?字体 ?粗体(&B) ?倾斜(&I) ?退出(&X)

mnuFont mnuBold mnuItlatic mnuExit 弹出菜单示例(在ex8_b51中)

Private Sub mnuFontColor_Click() '改变所选字体的颜色菜单事件 CommonDialog1.ShowColor

RichTextBox1.SelColor = CommonDialog1.Color End Sub

Private Sub mnuFontname_Click() '改变所选字体的名字菜单事件 CommonDialog1.Flags = cdlCFScreenFonts '字体对话框只有屏幕字体 CommonDialog1.ShowFont

RichTextBox1.SelFontName = CommonDialog1.FontName End Sub

Private Sub mnuFontSize_Click() '改变所选字体的的大小菜单事件 CommonDialog1.Flags = cdlCFBoth CommonDialog1.ShowFont

RichTextBox1.SelFontSize = CommonDialog1.FontSize End Sub

Private Sub mnufontBold_Click() '粗细菜单事件 Label2.Visible = True Combo1.Visible = True End Sub

Private Sub Combo1_Click() '选定粗细 RichTextBox1.SelBold = Combo1.Text Combo1.Visible = False Label2.Visible = False End Sub

Private Sub mnufontItlatic_Click() '正斜菜单事件 Label2.Visible = True Combo2.Visible = True End Sub

Private Sub Combo2_Click() '选定正斜 RichTextBox1.SelItalic = Combo2.Text Combo2.Visible = False Label2.Visible = False End Sub

Visual Basic6.0 第 页 共 47 页 18

第八章 界面设计 第 19 页 共 47 页

‘仅在窗体上(非窗体上的控件)按下鼠标按钮激活弹出菜单

'仅在窗体上(非窗体上的控件)按下鼠标按钮激活弹出菜单

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) '请逐一演示

'只有按左键键弹出,菜单的左上角出现在鼠标指针处

'If Button = vbLeftButton Then PopupMenu mnuFont, vbPopupMenuLeftAlign '只有按右键弹出,菜单的上边框中心出现在鼠标指针处

If Button = vbRightButton Then PopupMenu mnuFont, vbPopupMenuCenterAlign '按下右按钮或左按钮弹出菜单

' PopupMenu mnuFont, vbPopupMenuRightButton '按左键弹出(右键也可(?) )

' PopupMenu mnuFont, vbPopupMenuLeftAlign + vbPopupMenuLeftButton '按左键弹出(右键也可(?) ) 'PopupMenu mnuFont

'按下右按钮或左按钮在指定位置处(350)显示弹出菜单

'PopupMenu mnuFont, vbPopupMenuCenterAlign + vbPopupMenuRightButton, 700, 400 End Sub

Private Sub Form_Load()

RichTextBox1.Text = \鸟宿池边树,僧敲月下门。\ & \过桥分野色,移石动云根。\

Label1.Caption = Space(7) & \先选定文本的部分内容\再到窗体上去激活弹出菜单\End Sub

8.3 多重窗体和多文档窗体

多重窗体是指一个应用程序中有多个并列的普通窗体,每个窗体都有自己的界面和程序代码,完成不同的功能。

多文档界面是指一个应用程序(父窗体也称MDI窗体即窗体默认标题为MDIForm的窗体)中包含多个文档(子窗体也称MDIChild窗体)。多文档界面可同时打开多个文档,它简化了文档之间的信息交换。

8.3.1多重窗体的操作 1.添加窗体

添加窗体单击“工程”菜单选“添加窗体”命令,或单击工具栏上的“添加窗体”

图标;选择“现存”选项卡把属于其他工程的窗体添加到当前工程中。

添加“现存”窗体时要注意:

(1)防止多个窗体的Name相同而不能添加;

(2)添加的窗体实际是将其它工程中已有的窗体加入,它在多个工程中共享该窗体;

Visual Basic6.0 第 页 共 47 页 19

第八章 界面设计 第 20 页 共 47 页

可通过“另存为”命令以不同的窗体文件名保存,断开共享。

2. 保存窗体

一个工程中有多个窗体,应分别取不同的文件名保存在磁盘上,VBP工程文件中记录了该工程的所有窗体文件名。

3. 设置启动窗体

在拥有多个窗体的程序中,系统默认从form1窗体文件开始执行,要指定其他窗体为开始窗体,使用“工程/属性” 命令。在启动对象的下拉列表框中选择窗体的Name即可。

4.设置“启动对象”

启动对象既可以是窗体也可以使Sub Main子过程。如果启动对象是Sub Main子过程,则启动程序时不加载任何窗体,以后由该过程视不同情况决定加载哪个窗体。

要注意Main子过程必须放在标准模块中,决不能放在窗体模块中。 5. 有关窗体的语句、方法

(1) Load语句:装入窗体到内存但不显示窗体 形式: Load 窗体名称

(2) Unload语句:从内存删除窗体即卸载窗体。窗体被卸载后,放置在卸载窗体上所

有控件均不可访问了。

形式: Unload 窗体名称

在卸载窗体前会触发该窗体的QueryUnload事件然后才触发窗体的UnLoad,可以通过它的QueryUnload事件的参数cancel设置来阻止不正常的关闭。

格式:Private Sub Form_QueryUnload(Cancel As Integer,UnloadMode As Integer) End Sub

Cancel的值为True(不能关闭。实际上只要是非0值,窗体就不能关闭)和False(只能用Ctrl+Alt+Del关闭)。

值 0 1 2 3 4 常量 vbFormControlMenu vbFormCode vbFormWindows vbAppTeskManager vbFormMDIForm UnloadMode参数值一览表 说明 来自窗体左上角的“控制菜单”中的“关闭”选项 来自Unload语句 来自关闭Windows系统 来自任务管理器(Task Manager) 来自MDI父窗口 [例8_b2] 在myvb\\vb8\\ex8_b2\\ lbc8_b2.vbp 必须单击图片框才能删除窗体

Private Sub Picture1_Click()

Unload Form1 '触发form1的Form_QueryUnload事件,关闭不了form1窗体 End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Visual Basic6.0 第 页 共 47 页 20

联系客服:779662525#qq.com(#替换为@)