精简第七章用户界面设计.ppt

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,*,第,7,章 用户界面设计,7.1,常用控件,7.2,通用对话框,7.3,菜单设计,7.4,多重窗体,7.5,鼠标和键盘,7.6,综合应用,7.1,常用控件,在,VB,中控件大致分为三类：,标准控件：在工具箱中默认显示,ActiveX,控件：是扩展名为,.,ocx,的独立文件，是,VB,工具箱的扩充部分,可插入对象：是,Windows,应用程序的对象,添加删除,ActiveX,控件,ActiveX,控件在使用前需要执行“工程”菜单下的“部件”命令，在打开的“部件”对话框中选择“控件”标签，然后选择需要加入工具箱中的,ActiveX,控件名，单击“确定”即可将控件加入到工具箱中,7.1.1,单选按钮、复选框和框架,1.,单选按钮,(,OptionButton,),单选按钮以组的形式出现，,只允许选择一项,重要属性,Caption,属性 按钮上显示的文本,Value,属性 表示单选按钮的状态：,True,被选定,False,未被选定,重要事件,Click,事件,:,单击后使,Value,属性为,True,SetFocus,方法,是单选钮控件最常用的方法，可以在代码中通过该方法将,Value,属性设置为,True,Option2.SetFocus,用于给定选项的选取，可以同时选取多项（复选）,Value,属性值为整型，表示复选框的状态：,0-,vbUnchecked,未选定,1-,vbChecked,被选定,2-,vbGrayed,灰色，并显示一个选中标记,Caption,：复选框标题文字,重要事件,Click,事件,:,用户单击后，复选框自动改变状态,2.,复选框,(,CheckBox,),3.,框架,(,Frame,),作为容器，用于放置控件，可以整体移动。,主要用于单选钮的分组，一组中的单选钮互斥，与另一组单选钮无关,Caption,属性，给出框架的标题,注意：,1.,必须先有框架，再向框架中放入其他控件,2.,若用框架将现有的控件分组，则选定控件剪切、选中框架再粘贴,框架可以响应,Click,和,DoubleClick,事件，,但一般不需要编写事件过程,框架,设,Caption,为,字体,例：窗体上有一个名称为,Frame1,的框架，若要把框架上显示的“,Frame1”,改为汉字“框架”下面正确的语句是,A,）,Frame1.Name=,框架,“,B,）,Frame1.Caption=,框架,“,C,）,Frame1.Text=,框架,“,D,）,Frame1.Value=,框架,例：窗体上画两个单选按钮（,Option1,、,Option2,标题分别为“宋体”“黑体”）,1,个复选框（,Check1,标题为“粗体”）,1,个文本框（,Text1,Text,属性为“改变文字字体”），程序运行后要求“宋体”单选按钮和“粗体”复选框被选中，则能实现的语句是：,A,）,Option1.Value=False,Check1.Value=True,B,）,Option1.Value=True,Check1.Value=0,C,）,Option1.Value=False,Check1.Value=2,D,）,Option1.Value=True,Check1.Value=1,例,7.2,Private Sub Option1_Click(),Text1.FontName=,宋体,End Sub,Private Sub Option2_Click(),Text1.FontName=,黑体,End Sub,Private Sub Check1_Click(),Text1.FontBold=Not Text1.FontBold,End Sub,Private Sub Check2_Click(),Text1.FontItalic=Not Text1.FontItalic,End Sub,Private Sub Check3_Click(),Text1.FontStrikethru=Not Text1.FontStrikethru,End Sub,Private Sub Check4_Click(),Text1.FontUnderline=Not Text1.FontUnderline,End Sub,例,7.2,对象,属性,Frame1,Frame,2,Check,1,计算机,Check2,操作系统,Option,1,Windows 2000,Option2,Windows 98,Combo1,Text1,Label1,品牌：,Label,2,数量：,Command1,OK,List1,Private Sub,Form_Load,(),Combo1.Enabled=False,Text1.Enabled=False,Option1.Enabled=False,Option2.Enabled=False,End Sub,Private Sub Check1_Click(),Combo1.Enabled=Not Combo1.Enabled,Text1.Enabled=Not Text1.Enabled,End Sub,Private Sub Check2_Click(),Option1.Enabled=Not Option1.Enabled,Option2.Enabled=Not Option2.Enabled,End Sub,Private Sub Combo1_LostFocus(),flag=False,For i=0 To Combo1.ListCount 1,If Combo1.List(i)=Combo1.Text Then,flag=True,Exit For,End If,Next i,If Not flag Then,Combo1.AddItem Combo1.Text,End If,End Sub,Private Sub Command1_Click(),If Check1.Value=1 Then,List1.AddItem Combo1.Text,List1.AddItem Text1,End If,If Check2.Value=1 Then,If Option1.Value Then,List1.AddItem Windows 2000“,Else,List1.AddItem Windows 98“,End If,End If,End Sub,7.1.2,滚动条和进度条,滚动条,(,ScrollBar,),通常附在窗体上协助观察数据或确定位置，也可作为数据输入工具,进度条,(,ProgressBar,),用来指示事务处理的进度,滚动条属性,滚动条控件（,ScrollBar,）分为水平滚动（,HScrollbar,）和垂直滚动条（,VscrollBar,）,Value:,滑块当前位置的值,(,缺省为,0),Min:,滑块处最小位置的值,(,缺省为,0),Max:,滑块处在最大位置的值,SmallChange,单击滚动条两端的箭头时，,Value,属性,(,滑块位置,),增加或减少的值,LargeChange,单击滚动条的空白区域时，,Value,属性增加或减少的值,滚动条事件,（,1,）,Change,事件,改变,Value,属性值,（滚动条内滑块位置改变）时发生,单击滚动条两端的箭头或空白处将引发,Change,事,（,2,）,Scroll,事件,按水平方向或垂直方向滚动时，,Scroll,事件发生,拖动滑块,时会触发,Scroll,事件,Scroll,事件与,Change,事件的区别：,当滚动条控件滚动时,Scroll,事件一直发生，,而,Change,事件只是在滚动结束之后才发生一次,例,7.3,计算,018,之间某个数阶乘，数据由滚动条获得。,滚动条属性设置：,Max,属性,18,，,Min,属性,0,，,Value,初值,0,SmallChange,属性为,1,，,LargeChange,属性为,3,Private Sub HScroll1_Change(),Dim i As Integer,s As Double,s=1,n=HScroll1.Value,If n 0 Then,For i=1 To n,s=s*i,Next i,End If,Label2.Caption=n&!=&s,End Sub,例,7.4,设计一个调色板应用程序，使用三个滚动条作为,三种基本颜色的输入工具。,三个滚动条属性设置：,Max,属性,255,Min,属性,0,，,Value,初值,0,SmallChange,属性为,1,，,LargeChange,属性为,25,两个按钮，一个文本框,一个标签,Dim Red&,Green&,Blue As Long,Private Sub Command2_Click(),Text1.BackColor=Label1.BackColor,End Sub,Private Sub Command1_Click(),Text1.ForeColor=Label1.BackColor,End Sub,Private Sub HScroll1_Change(),Red=HScroll1.Value,Green=HScroll2.Value,Blue=HScroll3.Value,Label1.BackColor=RGB,（,Red,，,Green,，,Blue,）,End Sub,Private Sub HScroll2_Change(),Red=HScroll1.Value,Green=HScroll2.Value,Blue=HScroll3.Value,Label1.BackColor=RGB,（,Red,，,Green,，,Blue,）,End Sub,Private Sub HScroll3_Change(),Red=HScroll1.Value,Green=HScroll2.Value,Blue=HScroll3.Value,Label1.BackColor=RGB,（,Red,，,Green,，,Blue,）,End Sub,例、窗体上有一个名称为,Hscroll1,的滚动条，程序运,行后，当单击滚动条两端的箭头时，立即在窗体上显,示滚动块的位置（即刻度值）,能实现操作的过程是）,Private Sub HScroll1_Changc(),Print HScroll1.Value,End Sub,B)Private,Sub HSctroll1_Change()Print HScroll1.SmallChange End Sub,C)Private,Sub HScroll1_Scroll(),Print HScroll1.Value,End Sub,D)Private,Sub HScroll1_Scroll()Print HScroll1.SmallChange End Sub,例：设窗体上有一个名称为,HScroll1,的水平滚动条，,当滚动块移动位置后，能够在窗体上输出移动的距离,（即新位置与原位置的刻度值之差，向右移动为正数，,向左移动为负数）。下面可实现此功能程序，请填写,Dim,As Integer,Private Sub,Form_Load,(),pos=HScroll1.Value,End Sub,Private Sub HScroll1_Change(),Print,-pos,pos=HScroll1.Value,End Sub,HScroll1.value,pos,ProgressBar,控件,ProcessBar,控件位于,Microsoft Windows Common Controls 6.0,部件中，其添加到工具箱后的图标,ProcessBar,控件用于：监视一个较长操作完成的进度，它通过从左到右用一些方块填充矩形的形式来表示操作处理的进程。,属性：,Orientation:,决定进度条有水平和垂直两种,0-ccOrientationHorizontal(,默认,),1-ccOrientationVertical,Max,和,Min,设置控件的界限,Value,控件执行阶段被填充的数目，直到等于,Max.,控件显示的填充数是,Value,属性与,Max,和,Min,属性之间的比值,(,如：,Max=5,和,Min=0,，,Value=2,，那么就填充五分之二,),在对,ProgressBar,编程时，必须先确定,Value,属性上限,例,7.5,用进度条来指示一个大数组的元素赋值进度。,Sub Command1_Click(),Dim i As Integer,a(25000)As String,ProgressBar1.Min=,LBound(a,),ProgressBar1.Max=,UBound(a,),ProgressBar1.Visible=True,ProgressBar1.Value=ProgressBar1.Min,For i=,LBound(a,)To,UBound(a,),a(i,)=Initial value&i,ProgressBar1.Value=i,Next i,ProgressBar1.Visible=False,ProgressBar1.Value=ProgressBar1.Min,For i=1 To 10,Print,a(i,),Next i,End Sub,7.1.3,图形框和图像框,图形框,PictureBox,控件,作用,:,显示图片，也可作为其他控件的容器,在程序运行时装入图形：,Picture1,.Picture=,LoadPicture,(“,图形文件路径及名称,),删除图形框中图形,Picture1,.Picture=,LoadPicture,(“”),装入另一个图形框中的图形,Picture1,.Picture=,Picture,2,.Picture,Autosize,属性,True,图形框自动调整大小与图片匹配,False,图形超过图形框的部分将被剪裁掉,图像框,Image,使用方法与图形框相同,区别：,1.,图形框作为一个“容器”，可以把其他控件放在其内作为它的“子控件”，当图形发生位移，其内的子控件也跟着一起移动。,图像框内不能存放其他控件,2.,没有,Autosize,属性，但有,Stretch,属性,3.,图形框可通过,Print,方法显示文本，而图像框不能,Stretch,属性,False,：,图像框自动改变大小适应其中的图形,True,：,图形根据图像框的大小自动调整尺寸,例,7.6,说明图像框的,Stretch,属性对加载的图形的影响,Max,属性,20,、,Min,属性,0,，,Value,初值,10,Dim H&,W As Long,Sub Check1_Click(),Image1.Stretch=Check1.Value,End Sub,Sub,Form_Load,(),H=Image1.Height,W=Image1.Width,End Sub,Sub HScroll1_Scroll(),Image1.Height=H*HScroll1.Value/10,Image1.Width=W*HScroll1.Value/10,End Sub,7.1.4,定时器,时钟控件（,Timer,）又称定时器控件，用于有规律地定时执行指定的工作如,计时、倒计时、动画,等 在程序运行阶段，时钟控件不可见。,定时器以一定的时间间隔产生,Timer,事件,属 性,（,1,）,Interval,属性（,缺省设置为,0,）,单位：为,毫秒,（,0.001,秒），表示计时间隔,若将,Interval,属性设置为,0,或负数，则计时器停止工作,（,2,）,Enabled,属性（,缺省设置为,True,）,设置为,True,，而且,Interval0,，则计时器开始工作,（,以,Interval,属性值为间隔，触发,Timer,事件,）,设置为,False,可使时钟控件无效，即计时器停止工作。,事 件,:,时钟控件只有,Timer,事件,当,Enabled,属性值为,True,且,Interval,属性值大于,0,时，该事件,以,Interval,属性指定的时间间隔发生,常常将需要定时执行的操作放在,Timer,事件过程中,例、设窗体上有一个标签,Label1,和一个计时器,Timer1,，,Timer1,的,Interval,设置为,1000,，,Enabled,设置为,True,。,程序运行时每秒在标签中显示一次系统当前时间,）,Private Sub Timer1_Timer(),Label1.Caption=True,End Sub,B)Private Sub Timer1_Timer(),Label1.Caption=Time,End SubC)Private Sub Timer1_Timer(),Label1.Interval=1,End Sub,D)Private Sub Timer1_Timer()For k=l To Timer1.IntervalLabel1.Caption=TimerNext kEnd Sub,例：某人在窗体上画了一个,Timer1,的计时器，属性设置,为,Enabled=True,Interval=0,一个标签,Label1,的并编程,如下。希望在每,2,秒在标签上显示一次系统当前时间,Private Sub Timer1_Timer()Label1.Caption=Time End Sub,程序执行时发现未能实现上述目的那么应做的修改是,A,）通过属性窗口把计时器的,Interval,属性设置为,2000 B,）通过属性窗口把计时器的,Enabled,属生设置为,False C),把事件过程中的,Label1.Caption=Time,语句改为,Timer1.Interval=Time D),把事件过程中的,Label1.Caption=Time,语句改为,Label1.Caption=Timer1.Time,例,7.7,设计一个倒计时应用程序,:,设置,Enabled=False,Interval=1000,Dim t As Integer,Sub Command1_Click(),t=60*Val(Text1.Text),Timer1.Enabled=True,End Sub,Sub Timer1_Timer(),Dim m%,s As Integer,t=t-1,m=t 60,s=t Mod 60,Label1.Caption=m&,分,&s&,秒,If(t=0)Then,Timer1.Enabled=False,MsgBox,(,时间到！,),End If,End Sub,例,7.8,用一个定时器控制蝴蝶在窗体内的飞舞,对象名,属性,设置,Command1,Caption,退出,Timer1,Interval,200,Image1,Picture,Bfly1.bmp,Image2,Picture,Visible,Bfly2.bmp,False,Image3,Picture,Visible,Bfly1.bmp,False,Private Sub Timer1_Timer(),Static x As Integer,If x=0 Then,Image1.Picture=Image2.Picture,x=1,Else,Image1.Picture=Image3.Picture,x=0,End If,End Sub,Private Sub Timer1_Timer(),Static x As Integer,Image1.Move Image1.Left+150,Image1.Top 100,If Image1.Top=0 Then,Image1.Left=0,Image1.Top=2320,End If,If x=0 Then,Image1.Picture=Image2.Picture,x=1,Else,Image1.Picture=Image3.Picture,x=0,End If,End Sub,7.2,通用对话框,VB,提供了一组标准对话框,利用通用对话框控件可在窗体上创建打开文件、保存文件、颜色、字体、打印等对话框。,工程,选定部件标签,选定,Microsoft Common Dialog Control 6.0,通用对话框添加到工具箱,确定,例,7.9,通过打开文件对话框，选择一个,.bmp,图片文件，在图形框中显示该图片,Private Sub Command1_Click(),CommonDialog1.ShowOpen,Image1.Picture=LoadPicture(CommonDialog1.,FileName,),End Sub,通用对话框的属性设置方法：,1.,在,“,属性页,”,对话框中设置,2.,在程序代码中设置，必须设置在显示对话框之前,CommonDialog1.FileName=*.bmp“,CommonDialog1.InitDir=C:“,CommonDialog1.Filter=,pictures(*.bmp)|*.,bmp|ALL,files(*.*)|*.*“,CommonDialog1.FilterIndex=1,CommonDialog1.ShowOpen,通用对话框的基本属性和方法,(1),Action,属性和,Show,方法：,打开对话框,ShowHelp,6,帮助（,Help,）对话框,ShowPrinter,5,打印,(Print),对话框,ShowFont,4,字体,(Font),对话框,ShowColor,3,颜色,(Color),对话框,ShowSave,2,另存为,(Save As),对话框,ShowOpen,1,打开,(Open),文件对话框,Show,方法,Action,属性,通用对话框的类型,该属性只能在程序中赋值,CommonDialog1.Action=1,CommonDialog1.ShowOpen,通用对话框的基本属性和方法,(2),DialogTiltle,属性,:,设置通用对话框标题,(3),CancelError,属性,:,逻辑型值，表示用户在与对话框进行信息交换时，按下“取消”按钮时是否产生出错信息。,True,：选择取消按钮,出现错误信息,（错误标志,Err,设置为,32755 Cancel was selected,）,False,：选择取消按钮，没有错误警告。,由,ShowOpen,或,Action,属性为,1,来实现,重要属性,:,(1),FileName,(,文件名称）,:,用户所要打开的文件名,(2),InitDir,（初始化路径）,：,指定打开对话框中的初始目录,(3)Filter,（,过滤器）：,确定文件列表框中所显示文件的类型（多组用,|,分隔）,若在“文件类型”列表框显示三种文件类型供用户选择,Documents(*.DOC),扩展名为,DOC,的,Word,文件,Text Files(*.TXT),扩展名为,TXT,的文本,文件,All Files(*.*),所有,文件,Documents(*.DOC)|*.,DOC|TextFiles,(*.TXT)|,*.,TXT|All,Files(*.*)|*.*,7.2.1,打开文件对话框,DialogTiltle,FileName,InitDir,Filter,FilterIndex,DefaultExt,(4),FilterIndex,（过滤器索引）属性,：为整型值,表示用户在文件类型列表框选定了第几组文件类型。,(5)DefaultExt,属性,:,字符型确定保存文件的缺省扩展名,Filter,FileName,InitDir,FilterIndex,DialogTiltle,例,7.10,编写一个简单的文本文件编辑程序,当用户要求单击“打开”就弹出打开对话框，当用户选择一文本文件，便可将该文件内容读入到文本框；,对象,属性,设置,TextBox,Name,Text1,MultiLine,True,ScrollBars,2-Vertical,CommonDialog,Name,CommonDialog1,FileName,*,.TXT,InitDir,C:,Filter,TextFiles,(*.TXT)|*.,TXT|AllFiles,(*.*)|*.*,FilterIndex,1,Private Sub Command1_Click(),CommonDialog1.ShowOpen,Text1.Text=,Open CommonDialog1.FileName For Input As#1,Do While Not EOF(1),Line Input#1,inputdata,Text1.Text=Text1+,inputdata,+,vbCrLf,Loop,Close#1,End Sub,Private Sub Command6_Click(),End,End Sub,7.2.2,保存文件对话框,由,ShowSave,方法或,Action,属性为,2,来实现,与打开文件对话框的属性基本相同,特有的属性是,DefaultExt,，用于设置缺省的扩展名,例,7.10,中另存命令按钮编写代码，保存文本框内信息,Sub Command2_Click(),CommonDialog1.,FileName,=,Default.DOC,CommonDialog1.,DefaultExt,=DOC,CommonDialog1.ShowSave,Open CommonDialog1.Filename For Output As#1,Print#1,Text1.Text,Close#1,End Sub,7.2.3,颜色对话框,由,ShowColor,或,Action,属性为,3,实现打开颜色对话框,重要属性,Color,：用来返回或设置选定的颜色,例,7.10,颜色命令按钮编写事件过程设置文本框前景色,Sub Command3_Click(),CommonDialog1.ShowColor,Text1.ForeColor=CommonDialog1.Color,End Sub,7.2.4,字体对话框,由,ShowFont,方法或,Action,属性为,4,来实现,字体对话框重要的属性有：,Color,FontName,FontSize,FontBold,FontItalic,FontStrikethru,FontUnderline,等,FontName,FontBold,、,FontItalic,FontSize,FontStrikethru,FontUnderline,Color,显示字体对话框前必须设置,Flags,属性，否则发生不存在字体错误,Flags,属性：设置所显示的字体类型，按下表取值,常数,值,说明,cdlCFScreenFonts,&H1,屏幕字体,cdlCFPrinterFonts,&H2,打印机字体,cdlCFBoth,&H3,打印机字体和屏幕字体,cdlCFEffects,&H100,显示删除线和下划线检查框以及颜色组合框,cdlCFEffects,不能单独使用和其他三种用,Or,连接使用,例,7.10,中的字体按钮编写设置文本框字体的过程,Private Sub Command4_Click(),CommonDialog1.Flags=,cdlCFBoth,Or,cdlCFEffects,CommonDialog1.ShowFont,Text1.FontName=CommonDialog1.FontName,Text1.FontSize=CommonDialog1.FontSize,Text1.FontBold=CommonDialog1.FontBold,Text1.FontItalic=CommonDialog1.FontItalic,Text1.FontStrikethru=,CommonDialog1.FontStrikethru,Text1.FontUnderline=,CommonDialog1.FontUnderline,Text1.ForeColor=CommonDialog1.Color,End Sub,7.2.5,打印对话框,由,ShowPrinter,方法或,Action,属性为,5,来实现,打印对话框重要的属性有：,FromPage,：,整型起始页号,Topage,：,整型终止页号,Copies,：,整型打印份数,FromPage,Topage,Copies,例,10.5,例,10.2,中“打印,.”,按钮的事件过程,Private Sub Command5_Click(),CommonDialog1.Action=5,For i=1 To CommonDialog1.Copies,Printer.Print,Text1.Text,Next i,Printer.EndDoc,End Sub,对上述程序，下列叙述中错误的是,）单击“打开”按钮显示打开文件对话框,B,）单击“保存”按钮显示保存文件对话框,C,）单击“打印”按钮，能够设置打印,选项，并执行打印操作,D,）单击“退出”按钮，结束程序的运行,例、窗体上有一个名称为,CD1,的通用对话框控件和,由四个命令按钮组成的控件数,Command1,其下标,从左到右分别为,0,、,1,、,2,、,3,窗体外观如图所示,Private Sub Command1_Click(Index As Integer)Select Case IndexCase 0CD1.Action=1Case 1CD1.ShowSaveCase 2CD1.Action=5Case 3End,End,Select,End Sub,例：在窗体上有,1,个名为,Cd1,的通用对话框,为了在,运行程序时打开保存文件对话框,则在程序总,应使用的语句是,(),A)Cd1.Action=2,B)Cd1.Action=1,C)Cd1.ShowSave=,Ture,D)Cd1.ShowSave=0,7.3,菜单设计,菜单是,Windows,应用程序中十分关键的要素之一，它以分组的形式组织多个命令或操作，为用户灵活操作应用程序提供了便捷的手段。,菜单可分为两种基本类型：,下拉式和弹出式菜单,下拉式菜单,:,一般通过单击菜单栏中菜单标题（如“文件”、“编辑”、“视图”等）的方式打开,弹出式菜单,:,则通过用鼠标右键单击某一区域打开,快捷键,热键,子菜单标记,主菜单,菜单项,子菜单名,分隔线,7.3.1,菜单编辑器,菜单列表框,菜单项属性,操作按钮,分隔线,:,在标题栏输入一个连字符“,-”,启动菜单编辑器：“工具”,“,菜单编辑器”,菜单编辑器的使用技巧,1.,标题,(Caption),2.,名称,(Name),3.,快捷键,(Shortcut),4.,下一个,(Next),5.,和按钮,6.,插入,(Insert),按钮,7.,删除,(Delete),按钮,8.,和按钮,9.,复选,Checked,检查框,10.,有效,Enabled,，可见,Visible,检查框,根据设计要求，依次输入或选择项目，即可,1.,标题,(Caption),：若输入文件（,&F,）热键：,Alt+F,2.,名称,(Name),：菜单项的名称，,分界符,-,也应有名称,3.,快捷键,(Shortcut),：下拉列表框选择一个键,4.,下一个,(Next),：设置下一个菜单项,5.,和：“,”下一级菜单项；“”上一级菜单项,6.,插入,(Insert),按钮,：插入菜单项,7.,删除,(Delete),按钮,：删除菜单项,8.,和按钮,：改变菜单项位置,9.,复选,(Checked),检查框,：菜单项为选定项,10.,有效,(Enabled),检查框,：,True,：菜单项可选；,False,：不可选。,菜单项除了,Name,、,Visible,、,Enabled,等属性之外，还具有下列重要属性：,(1),标题,(Caption),菜单项上显示的标题文本,在字符前加一个,&,符号构成热键。,例如：输入“新建,(&N)”,，则菜单显示“新建,(,N,)”,，,N,为热键（用,Alt+N,来打开菜单）,菜单项的分隔符，输入一个减号“,-”,。,(2)Checked,控制菜单项左边是否显示“”,菜单项的事件,Click,为菜单项编写程序,1,设计下拉菜单：,2,设计子菜单或改变子菜单级别：,3,为菜单项分组：菜单名用减号“,-”,4,为菜单项指定访问键和快捷键,5,为菜单项加上复选标记,6,禁止使用菜单项,在程序代码中可以通过程序代码：,菜单名,.Enabled=False,7,菜单项的增减,菜单设计的步骤：,例,7.15,将例,7.10,中的命令组织成菜单,在窗体上放置一个文本框，一个通用对话框,标题,名称,快捷键,标题,名称,快捷键,文件,File,编辑,Edit,新建,New,Ctrl+N,复制,Copy,Ctrl+C,打开,Open,Ctrl+O,剪切,Cut,Ctrl+X,另存为,SaveAs,Ctrl+S,粘贴,Paste,Ctrl+V,打印,Print,格式,Format,结束,Exit,字体,Font,颜色,Color,Private Sub,Open_Click,(),CommonDialog1.ShowOpen,Text1.Text=,Open CommonDialog1.FileName For Input As#1,Do While Not EOF(1),Line Input#1,inputdata,Text1.Text=Text1+,inputdata,+,vbCrLf,Loop,Close#1,End Sub,Private Sub,New_Click,(),Text1.Text=,End Sub,Dim,st,As String,Private Sub,Copy_Click,(),st,=Text1.SelText,End Sub,Private Sub,Cut_Click,(),st,=Text1.SelText,Text1.SelText=“,End Sub,Private Sub,Paste_Click,(),Text1.SelText=,st,End Sub,Private Sub,Exit_Click,(),End,End Sub,7.3.2,弹出菜单,用户在某个对象上单击鼠标右键时的位置，弹出菜单项,设计过程与普通菜单相同。菜单弹出的方法：,对象,.,PopupMenu,菜单名,标志参数,x,y,菜单名不能省略,标志参数，表示弹出的位置和性能，用,Or,组合,x,y,:,指定弹出菜单显示的位置,分类,常数,值,说明,位置,vbPopupMenuLeftAlign,0,x,位置确定弹出菜单的左边界（默认）,vbPopupMenuCenterAlign,4,弹出菜单以,x,为中心,vbPopupMenuRightAlign,8,x,位置确定弹出菜单的右边界,性能,vbPopupMenuLeftButton,0,鼠标左键弹出菜单,vbPopupMenuRightButton,2,鼠标右键弹出菜单,为创建一个不显示在菜单栏里的菜单，可在设计时使,顶级菜单项目为不可见（“,Visible”,复选框没有被选上）,当,VB,显示一个弹出式菜单时，指定的顶级菜单的,Visible,属性会被忽略,例：实现弹出式菜单,标题,名称,标题,名称,字体,txtfont,形式,Styl,宋体,st,粗体,ct,楷体,kt,斜体,xt,黑体,ht,下划线,xhx,Private Sub Label1_MouseDown(Button As Integer,Shift As Integer,X As Sing