VB程序设计菜单对话框及多重窗体课件.ppt

《VB程序设计菜单对话框及多重窗体课件.ppt》由会员分享，可在线阅读，更多相关《VB程序设计菜单对话框及多重窗体课件.ppt（64页珍藏版）》请在三一文库上搜索。

1、菜单、对话框及多重窗体,VB 程序设计,提出问题,大家在以前就已接触和学习过不少应用程序，比如Office中的文字处理程序Word、表格处理程序Excel等，已经使用过这些程序中强大的菜单功能，它们是如何进行设计的呢？ 我们自己能否设计类似的菜单呢？,本章主要内容：,1：菜单 2：对话框 3：多重窗体 4：VB工程结构,两种菜单类型：下拉式菜单、弹出式菜单,1 菜单组成,主菜单(标题)包含若干个菜单项,它放置在菜单的最顶层, 它可以下拉出下一级菜单(子菜单),菜单命令对应一个程序模块,执行命令后子菜单自动消失,子菜单包含子菜单标题和菜单命令,分隔条可对子菜单进行分组,菜单命令对应一个程序模块,

2、执行命令后子菜单自动消失,分隔条可对子菜单进行分组,1：菜单控件 菜单项(主菜单项或子菜单项)也称为菜单控件 菜单项具有其属性、事件、方法 通过“菜单编辑器”完成设计,2：菜单编辑器 使设计菜单栏的窗体成为当前窗体 执行“工具”菜单的“菜单编辑器”命令(或单击标准工具栏的“菜单编辑器”按钮，或从窗体快捷菜单中选择“菜单编辑器”命令)，打开“菜单编辑器”窗口,3：菜单编辑器结构 属性区 输入或修改菜单项，设置菜单项属性 编辑区 对输入的菜单项进行编辑操作 菜单列表区 显示菜单项的分级列表,2 菜单编辑器,我们利用菜单编辑器设计每个菜单项，其实每个菜单项都是一个对象，它们都有自己的属性、事件、方法

3、。,名称：Name属性设置菜单控件的名字以便在代码中访问它 设计菜单时必须输入此项！,标题：Caption属性设置菜单项中显示的文字若该属性为连字符(-),则显示为隔离条可定义访问键(在一字母前加&符号),快捷键：顶级菜单不能使用快捷键！,索引：若将菜单控件定义为数组，则Index属性确定数组控件的位置,Checked,Enabled,Visible,当具有菜单的窗体包含另一个具有菜单的对象时，该属性协调二者的位置 0-None 1-Left 2-Middle 3-Right,决定菜单项是否显示缺省值True,设置菜单项的左端是否带复选标记缺省值False,决定菜单项是否响应事件缺省值True

4、,完成上述设计,单击确定按钮,即可看到菜单结构,要实现菜单功能，需要编写菜单项的事件代码,【例1 】设计一个具有算术运算（+、-、/ ）及清除功能的菜单。从键盘上输入两个数，利用菜单命令求出它们和、差、积或商，并显示出来。,菜 单 设 计,编写程序代码,菜单的事件过程以菜单项区分，可以把每个菜单项看成是一个控件。菜单设计完成后，只要单击某个菜单项，即可定义该菜单项的事件过程。,【例2 】设计菜单界面如下图所示，下拉菜单中的子菜单项用于对文本框设置字体、字号、文字颜色和效果。其中，效果菜单下的各菜单项具有复选功能，设运行初始时各项前面没有符号，与文本框初始状态一致,Text1,菜单编辑器设置如下

5、：,菜 单 列 表 区,续上表：,菜 单 列 表 区,菜 单 列 表 区,菜 单 列 表 区,菜单项事件代码设计如下：,“字体”菜单下的菜单项设计成一个控件数组AA1，共享以下事件过程: Private Sub AA1_Click(Index As Integer) Text1.Font = AA1(Index).Caption End Sub,“字号”菜单下的菜单项设计成一个控件数组BB1，共享以下事件过程: Private Sub BB1_Click(Index As Integer) Text1.FontSize = Val(BB1(Index).Caption) End Sub,“颜色

6、”菜单下的各菜单项为独立的菜单控件，因此应分 别在其单击事件过程中编写代码，各事件过程如下: Private Sub CC1_Click() Text1.ForeColor = vbRed End Sub Private Sub CC2_Click() Text1.ForeColor = vbGreen End Sub Private Sub CC3_Click() Text1.ForeColor = vbBlue End Sub,“效果”菜单下的各菜单项具有复选功能，每次单击时切换成另一种状态。因此要判断当前菜单项的Checked属性，各事件过程如下:,Private Sub DD1_Cli

7、ck() 删除线 If DD1.Checked = True Then Text1.FontStrikethru = False DD1.Checked = False Else Text1.FontStrikethru = True DD1.Checked = True End If End Sub,Private Sub DD2_Click() 下划线 If DD2.Checked = True Then Text1.FontUnderline = False DD2.Checked = False Else Text1.FontUnderline = True DD2.Checked =

8、 True End If End Sub,Private Sub DD3_Click() 粗体 If DD3.Checked = True Then Text1.FontBold = False DD3.Checked = False Else Text1.FontBold = True DD3.Checked = True End If End Sub Private Sub DD4_Click() 斜体 If DD4.Checked = True Then Text1.FontItalic = False DD4.Checked = False Else Text1.FontItalic

9、= True DD4.Checked = True End If End Sub,2：方法PopupMenu的格式： .PopupMenu ,flags,x,y,boldcommand flags 指定菜单的位置和行为，祥见P171表10-2、10-3 x 菜单的x坐标，缺省则为鼠标坐标 y 菜单的y坐标，缺省则为鼠标坐标 boldcommand 指定要显示为黑体的菜单项控件名称,二、弹出式菜单 独立于菜单栏直接显示在窗体上,也称作上下文菜单、快捷菜单、右键菜单,1：弹出式菜单的设计 在菜单编辑器中按下拉式菜单的设计方法，并将其顶级菜单设置为不可见 在对象的MouseDown事件过程中编写代码

10、，用以下的PopupMenu方法显示弹出式菜单,MouseDown事件: Sub Form_MouseDown(Button As Integer, Shift As Integer,X As Single, Y As Single) （发生在窗体上的事件过程）,(1) Button参数,B0=1：按下左键； Button为1(001B) B1=1：按下右键； Button为2(010B) B2=1：按下中键。 Button为4(100B),(2) Shift参数,B2=1按下Alt键； B1=1按下Ctrl键；B0=1按下Shift键,返回一个整数，在 Button 参数指定的按钮被按下或者

11、被释放的情况下，该整数相应于 SHIFT,CTRL,和 ALT 键的状态。某键被按下使得一个二进制位被设置。shift 参数是具有相应于 SHIFT 键（位 0），CTRL 键（位 1），以及 ALT 键（位 2）最少二进制位的一个位字段。这些位的值分别等于 1，2，和 4。,B2=1按下Alt键； B1=1按下Ctrl键；B0=1按下Shift键,(2) Shift参数,【例3 】在例2的基础上设计窗体和文本框的弹出式菜单，如下图所示：,菜单编辑器设置如下：,文本框的MouseDown事件代码设计如下： Private Sub Text1_MouseDown (Button As Integ

12、er, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu EE, 0 Or 0 End If End Sub,窗体的MouseDown事件代码设计如下： Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu FF,8 Or 0, , ,FF3 End If End Sub,菜单项事件代码设计如下：,保存窗体的初始颜色

13、: Dim Fcolor As Long Private Sub Form_Load() Fcolor = Form1.BackColor &H8000000F默认色 End Sub,文本框快捷菜单: Private Sub EE1_Click() Text1.FontSize = Text1.FontSize + 1 增加1磅 End Sub Private Sub EE2_Click() Text1.FontSize = Text1.FontSize 1 减少1磅 End Sub Private Sub EE3_Click() 锁定 If EE3.Caption = 锁定 Then EE3

14、.Caption = 取消锁定“ : Text1.Locked = True Else EE3.Caption = 锁定 : Text1.Locked = False End If End Sub,窗体快捷菜单: Private Sub FF1_Click() Form1.BackColor = vbRed 红色背景 End Sub Private Sub FF2_Click() Form1.BackColor = vbGreen 绿色背景 End Sub Private Sub FF3_Click() Form1.BackColor = Fcolor 默认背景 End Sub,常见错误及难点

15、分析,1.窗体菜单名、顶层菜单与菜单项的区别 通常出现在菜单栏上的菜单对象称为菜单名，菜单名以下拉列表形式包含的内容为菜单项。菜单项可以包括菜单命令、分隔条和子菜单标题。当菜单名没有菜单项时，为“顶层菜单”，可直接对应一个应用程序。 菜单名、顶层菜单不能定义快捷菜单， 而菜单项 可以有快捷键。 当菜单包含有热键字母（菜单标题中“&”后的字母）时窗体，按Alt+热键字母可选择窗体顶部菜单栏中的菜单项，当子菜单打开时，按热键字母选择子菜单中的。如果子菜单没有打开时，按热键字母无法选择其中的菜单项。 尽管所有的菜单项都能响应Click事件，但是菜单栏中的菜单名通常不需要编写事件过程。,区别,常见错误

16、及难点分析,2 使用Load语旬加载窗体，窗体不显示 Load语句将窗体装入内存并设置窗体的Visible属性为False（无论在设计时如何设置Visible属性），此时可以引用窗体中的控件及各种属性。为了使窗体可见，在用Load语句后，再将窗体的Visible属性设置为True，或使用Show方法加载窗体。,3在因体加载过程中使用 SetFocus方法出现“无效的过程调用或参数”错误 焦点只能移到可视的窗体或控件上。在窗体的Load事件完成前窗体或窗体上的控件是不可视的，所以不能在 Form_ Load事件中把焦点移到正在加载的窗体上，也不能在Load事件内使用SetFocus方法将焦点移至

17、窗体上的控件。此外，也不能把焦点移到Enabled或Vsible属性被设置为False的窗体或控件。如果已在设计时将Enabled或Visible属性设置为False，必须在使用SetFocus方法前将Enabled或Visible属性设置为True。,在首次用Load语句将窗体（假定该窗体在内存中还没有创建）调人内存之时依次发生Initialize和Load事件。Initialize是在窗体创建时发生的事件。在窗体的整个生命周期中， Initialize 事件只触发一次。用户可以将一个窗体装入内存或从内存中删除很多次，但窗体的建立只有一次。也就是说，在用Load语句将窗体装入内存时会触发Lo

18、ad事件，但并不一定触发Initialize事件 窗体的Activate事件仅当窗体成为活动窗口时才发生。,在窗体从内存中卸载时依次发生 QueryUnload和 Unload事件。QueryUnload事件可提供造成窗体卸载的原因（单击“关闭”按钮/程序中执行Unload语句/在应用程序中关闭/在Windows中的关闭）。如果在QueryUnLoad事件中把QueryUnload的参数Cancel设置为True，就会忽略Unload语句，从而不卸载窗体。所以QueryUnload提供了取消关闭窗体的机会，同时也允许在需要时从代码中关闭窗体。,使用End语句来结束程序，窗体不会接收到 Quer

19、yUnload事件,常见错误及难点分析,4与窗体有关的事件,是一种特殊类型的窗体对象 主要用于用户和应用程序的交互 建立对话框的方法三种 使用预定义对话框，如函数 InputBox、MsgBox 自定义对话框 使用CommonDialog控件创建通用对话框,3 对话框,添加窗体：使用“工程/添加窗体”命令 将窗体定义成对话框风格，不能移动、最大或最小化 在对话框上添加按钮，如“确定”与“取消”按钮 在对话框上添加其它控件 在适当的位置编写显示对话框的代码 显示模式对话框（打开时焦点不可切换）: 窗体名.Show vbModal (或窗体名.Show 1) 显示无模式对话框: 窗体名.Show

20、vbModeless (或窗体名.Show 0) 编写从对话框退出的代码 例如 Unload Form2 或 Form2.Hide,3.1 自定义对话框,【例4】设计对话框Form2如下图所示。当输入某文件所在的路径及名称后，单击“确定”按钮按所选择的运行方式运行该文件，单击“取消”按钮取消本次操作，返回窗体Form1中。如果输入文件名错误，将给出警告并返回该对话框,在窗体Form1 的“运行”菜单项（设菜单控件名为SRun）的Click事件过程中显示对话框，代码如下： Private Sub SRun_Click() Form2.Show 1 显示模式对话框 End Sub,在主窗体Form

21、1的菜单有一“运行”菜单项，运行时单击“运行”打开模式对话框Form2,对话框Form2代码设计如下：,Private Sub Command1_Click() On Error GoTo ErrorHandler 设置错误陷阱。如果出 现错误，转到ErrorHandler处执行 FName = Trim(Text1.Text) If Option1.Value = True Then a = Shell(FName, 1) 正常方式并拥有焦点 If Option2.Value = True Then a = Shell(FName, 3) 最大化方式并拥有焦点 If Option3.Valu

22、e = True Then a = Shell(FName, 2) 最小化方式并拥有焦点 Exit Sub ErrorHandler: MsgBox 不能运行该程序, , 注意 Resume Next 从产生错误的语句之后开始运行 End Sub,Private Sub Command2_Click() Unload Me End Sub,通用对话框 通用对话框可置于窗体的任意位置，运行时不显示 设置通用对话框控件的“属性页”,使用通用对话框控件(CommonDialog) 创建! 使用“工程/部件/控件”命令添加对话框控件!,在代码中使用以下方法打开对话框 ShowOpen：显示“打开文件”

23、对话框 ShowSave：显示“文件存储”对话框 ShowColor：显示“颜色”对话框 ShowFont：显示“字体”对话框 ShowPrinter：显示“打印”对话框 ShowHelp：显示“帮助”对话框 示例：commondialog1.showopen,【例5】使用打开文件对话框，在运行时打开一幅图像,“打开/另存为”对话框的属性页设置如下：,“装入图像”按钮代码设计如下：,Private Sub Command1_Click() On Error GoTo ErrHandler 出错时转到ErrorHandler处执行 CommonDialog1.ShowOpen 将通用对话框显示为

24、打开 文件对话框 Image1.Picture=LoadPicture(CommonDialog1.) Exit Sub ErrHandler: Exit Sub End Sub,【例6】设计如图所示的界面，运行时单击“背景色”按钮打开颜色对话框，在对话框中选择的颜色用于设置文本框的背景颜色，单击“字体”按钮打开字体对话框，在对话框中选择字体、效果及颜色，用于设置文本框文字的字体、效果及颜色,“颜色”对话框的属性页设置如下：,“颜色”、“字体”对话框的属性页设置如下：,“背景色”按钮Command1的Click事件过程如下： Private Sub Command1_Click() Commo

25、nDialog1.ShowColor将通用对话框显示为颜色对话框 Text1.BackColor = CommonDialog1.Color End Sub,“字体”按钮Command2的Click事件过程如下： Private Sub Command2_Click() CommonDialog1.ShowFont将通用对话框显示为字体对话框 Text1.Font = CommonDialog1.FontName Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic Text1.F

26、ontStrikethru = CommonDialog1.FontStrikethru Text1.FontUnderline = CommonDialog1.FontUnderline Text1.ForeColor = CommonDialog1.Color Text1.FontSize = CommonDialog1.FontSize End Sub,1在程序中对通用对话框的属性设置不起作用 在程序中对通用对话框的属件设置必须注意语句的先后顺序，属性设置语句必须放在打开对话框语句前，否则在程序中对通用对话框的属性设置在本次使用中不起作用。,例：下面的程序代码由于先打开对话框，再进行属性

27、设置，在第一次执行本段代码时，无法过滤文件，Showopen语句后面的属性设置语句对下一次执行Showopen有效。 CommonDialoglShowOpen CommonDialogl *Bmp CommonDialoglInitDirC：Windows CommonDialoglFilter Pictures（*Bmp） *Bmp All Files（*.*） *.* CommonDialogl FilterIndex1,常见错误及难点分析,常见错误及难点分析,2设置通用对话框的CancelError属性为True发生错误 当通用对话框的CancelError属性设置为True时，无论何

28、时选择“取消”按钮，均产生32755（cdlCancel）号错误。 Visual Basic通过系统对象 Err来记录程序运行期间所发生的错误。Err对象的 Number属性记录错误号，Description属性保存有关错误的说明。 例如，当在CancelError 属性为True的通用对话框中选择“取消”按钮时，产生一个错误，ErrNumber被设置为32755，Description属性被设置为“选择取消 ”。 如果不对错误进行处理，Visual Basic将显示出错误消息并停止程序运行。为防止由于错误造成停止程序运行的问题，可以使用 On Error语句捕获错误，然后根据捕获的错误进行处

29、理。,On Ermr Resume Next 忽略发生错误的命令行，执行下一句命令 On Ermr GoTo语句标号 当发生错误时转向执行标号所指定的命令行 对于捕获到的错误号，可用分支语句处理。,以下程序说明当在颜色对话框内选取“取消”按钮时，CommonDialogl.ShowColor语句产生32755号错误。On Error语句在捕获到错误后，转向执行标号 ErrorHandler所指定的命令行，在标签Label1上显示“放弃操作”，并忽略产生错误的那一行命令与标号之间的所有语句。 Private Sub Commandl Click（） On Error GoTo ErrorHaan

30、dler 错误捕获语句 CommonDialogl.CancelError=True 使选取“取消”按钮时 能对出错误做响应 CommonDialogl.ShowColor Textl.ForeColor=CommonDialoglColor 设置颜色 Exit Sub 无错误时正常退出本过程,常用的 On Ermr语句形式有：,3在使用Commonlnalog控件控制字体选择时出现错误 这是由于没有设置CommonDialog控件的Flags属性，或属性值不正确。通常设置该值为H103，表示屏幕字体、打印机字体两者皆有之，并在字体对话框中出现删除线、下划线、 颜色等元素。,以下为错误处理的语

31、句 ErrorHandler：语句标号，错误处理语句开始 If Err.Number=32755 Then Labell.Caption=“放弃操作” End Sub,VB中允许应用程序有多个窗体，每个窗体有自己的代码和不同的操作，从而实现复杂的功能。,一：多重窗体有关语句 1:Load :将窗体载入内存，但并不显示 2:UnLoad :将窗体从内存中消除 3: .Show 模式:显示窗体。 模式=0(非模态)或1(模态)，默认模式为0。 4: .Hide:隐藏窗体(并不从内存中消除),4 多重窗体,二、多重窗体设计,多重窗体设计与单重窗体设计一致，大致可分为三步： 建立界面 编写代码 运行程

32、序 指定启动窗体：在“工程/工程属性/通用”中可以根据需要指定应用程序的启动窗体。,【例7】多重窗体应用程序 窗体1的代码 Private Sub Command1_Click() Load Form2 Form1.Hide Form2.Show Form2.Text1.Text = UCase(Form1.Text1) End Sub Private Sub Command2_Click() Load Form3 Form1.Hide Form3.Show Form3.Text1.Text = LCase(Form1.Text1) End Sub Private Sub Command3_C

33、lick() End End Sub,窗体2的代码： Private Sub Command1_Click() Form1.Show Form2.Hide End Sub Private Sub Form_Activate() Text1.Text=Ucase(Form1.Text1.Text) End Sub,窗体3的代码： Private Sub Command1_Click() Form1.Show Form3.Hide End Sub Private Sub Form_Activate() Text1.Text=Lcase(Form1.Text1.Text) End Sub,三、VB工

34、程结构,工程文件(.vbp) 列出了在创建该工程时所建立的所有文件的相关信息。 窗体文件(.frm, .frx) 包括有窗体、窗体上的对象及窗体上的事件响应代码。 标准模块文件(.bas) 包含有可被任何窗体或对象调用的过程程序代码,标准模块 VB中主要有三种模块： 标准模块：由全局变量声明、模块层声明及通用过程等组成，所以也叫全局模块或总模块。 窗体模块：每个窗体都有一个对应的窗体模块，通常包括声明、通用过程及事件过程三部分。 Sub Main过程：通常设置为启动对象，主要用于应用程序的初始化工作；该过程必须建立在标准模块中，一个程序中可以有多个标准模块，但最多只能有一个Sub Main模块

35、。,5 综合应用,【例8】设计一个计算学生平均分和总分的多窗体应用程序。界面如下：,Form1主窗体FrmMaint Private Sub cmdEnd_Click() End End Sub Private Sub cmdInput_Click() frmInput.Show frmMain.Hide End Sub Private Sub cmdOutput_Click() frmOutput.Show frmMain.Hide End Sub,Form2:数据输入窗体FrmInput Private Sub cmdReturn_Click() sMath = Val(Text1) sC

36、hinese = Val(Text2) sChemistry = Val(Text3) sEnglish = Val(Text4) sPhysics = Val(Text5) frmInput.Hide frmMain.Show End Sub,Form3：数据输出窗体FrmOutput Private Sub Command1_Click() frmOutput.Hide frmMain.Show End Sub Private Sub Form_Activate() stotal = sMath + sChinese + sChemistry + sEnglish + sPhysics txtAverage = stotal / 5 txtTotal = stotal End Sub Private Sub Form_Load() stotal = sMath + sChinese + sChemistry + sEnglish + sPhysics txtAverage = stotal / 5 txtTotal = stotal End Sub,总结,