完整版第七章用户界面设计.ppt

1、第7章 用户界面设计,7.1 常用控件 7.2 通用对话框 7.3 菜单设计 7.4 多重窗体 7.5 鼠标和键盘 7.6 综合应用,7.1 常用控件,在VB中控件大致分为三类： 标准控件：在工具箱中默认显示 ActiveX控件：是扩展名为.ocx的独立文件，是VB工具箱的扩充部分 可插入对象：是Windows应用程序的对象 添加删除ActiveX控件 ActiveX控件在使用前需要执行“工程”菜单下的“部件”命令，在打开的“部件”对话框中选择“控件”标签，然后选择需要加入工具箱中的ActiveX控件名，单击“确定”即可将控件加入到工具箱中,VB允许用户自己开发需要的控件，并将其编译成.ocx

2、文件以便在任何工程中方便地调用。创建简单ActiveX控件的一般过程如下：1) 建立一个新的ActiveX控件工程。2) 像设计一般程序一样“画出”控件的界面。3) 编写实现控件行为的代码。4) 编写实现控件特有属性、方法和事件的代码。5) 检测并保存控件的所有文件。6) 将控件编译成.ocx文件。,例：设计一个能计算三角函数的控件 新建一个ActiveX控件工程 添加需要的标准控件 编写程序代码,Dim numAs Integer Private Sub Command2_Click()Text1 = “Text2 = “Text1.SetFocusOption1(0).Value = Tr

3、ue End Sub Private Sub Option1_Click(Index As Integer)Label1 = Option1(Index).Captionnum= Index End Sub,Private Sub Command1_Click() Select Case numCase 0Text2 = Format(Sin(Val(Text1) * 3.1415926 / 180), “0.0“)Case 1Text2 = Format(Cos(Val(Text1) * 3.1415926 / 180), “0.0“)Case 2If Text1 = 90 Or Text1

4、 = 270 Then Text2 = “函数值不存在“ElseText2 = Format(Tan(Val(Text1) * 3.1415926 / 180), “0.0“)End IfCase 3If Text1 = 0 Or Text1 = 180 Or Text1 = 360 ThenText2 = “函数值不存在“ElseText2 = Format(1 / (Tan(Val(Text1) * 3.1415926 / 180), “0.0“)End IfEnd SelectText1.SetFocus End Sub,4) 执行“工程”菜单中的“工程1属性”命令，设置控件的名称为“t

5、rigonometric”，描述内容为“三角函数计算器”，然后单击【确定】按钮。 5)执行“保存工程”命令，将所有的控件文件存盘，执行“文件”菜单中的“生成xxx.ocx文件”命令，对控件进行编译 6) 新建一个标准EXE工程，向工具箱中添加“三角函数计算器”控件，并将其加入窗体。,7.1.1 单选按钮、复选框和框架 1.单选按钮(OptionButton ) 单选按钮以组的形式出现，只允许选择一项 重要属性 Caption属性 按钮上显示的文本 Value属性 表示单选按钮的状态：True 被选定False 未被选定 重要事件 Click事件:单击后使Value属性为True SetFocu

6、s方法是单选钮控件最常用的方法，可以在代码中通过该方法将Value属性设置为True Option2.SetFocus,用于给定选项的选取，可以同时选取多项（复选） Value属性值为整型，表示复选框的状态： 0 - vbUnchecked 未选定 1 - vbChecked 被选定 2 -vbGrayed 灰色，并显示一个选中标记 Caption：复选框标题文字 重要事件 Click事件:用户单击后，复选框自动改变状态,2.复选框(CheckBox),3.框架 (Frame),作为容器，用于放置控件，可以整体移动。主要用于单选钮的分组，一组中的单选钮互斥，与另一组单选钮无关 Caption属

7、性，给出框架的标题 注意：1.必须先有框架，再向框架中放入其他控件2.若用框架将现有的控件分组，则选定控件剪切、选中框架再粘贴 框架可以响应Click和DoubleClick事件， 但一般不需要编写事件过程,例：窗体上有一个名称为Frame1的框架，若要把框架上显示的“Frame1”改为汉字“框架”下面正确的语句是 A）Frame1.Name=“框架“ B）Frame1.Caption=“框架“ C）Frame1.Text=“框架“ D）Frame1.Value=“框架“,例：窗体上画两个单选按钮（Option1、Option2,标题分别为“宋体”“黑体”）1个复选框（Check1,标题为“粗

8、体”）1个文本框（Text1,Text属性为“改变文字字体”），程序运行后要求“宋体”单选按钮和“粗体”复选框被选中，则能实现的语句是： A）Option1.Value=FalseCheck1.Value=True B）Option1.Value=TrueCheck1.Value=0 C）Option1.Value=FalseCheck1.Value=2 D）Option1.Value=TrueCheck1.Value=1,例7.2 Private Sub Option1_Click() Text1.FontName = “宋体“ End Sub Private Sub Option2_Cli

9、ck() 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.Fon

10、tUnderline = Not Text1.FontUnderline End Sub,例7.2,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_C

11、lick() Option1.Enabled = Not Option1.Enabled Option2.Enabled = Not Option2.Enabled End Sub,Private Sub Combo1_LostFocus() flag = False For i = 0 To Combo1.ListCount 1If Combo1.List(i) = Combo1.Text Thenflag = TrueExit ForEnd If Next i If Not flag Then Combo1.AddItem Combo1.Text End If End Sub,Privat

12、e Sub Command1_Click() If Check1.Value = 1 ThenList1.AddItem Combo1.TextList1.AddItem Text1 End If If Check2.Value = 1 ThenIf Option1.Value ThenList1.AddItem “Windows 2000“ElseList1.AddItem “Windows 98“End If End If End Sub,7.1.2滚动条和进度条,滚动条(ScrollBar)通常附在窗体上协助观察数据或确定位置，也可作为数据输入工具 进度条(ProgressBar)用来指

13、示事务处理的进度,滚动条属性,滚动条控件（ScrollBar）分为水平滚动（HScrollbar）和垂直滚动条（VscrollBar） Value: 滑块当前位置的值(缺省为0) Min:滑块处最小位置的值(缺省为0) Max:滑块处在最大位置的值 SmallChange 单击滚动条两端的箭头时，Value属性(滑块位置)增加或减少的值 LargeChange 单击滚动条的空白区域时，Value属性增加或减少的值,滚动条事件,（1）Change事件 改变Value属性值（滚动条内滑块位置改变）时发生 单击滚动条两端的箭头或空白处将引发Change事 （2）Scroll事件 按水平方向或垂直方向

14、滚动时，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 Doubles = 1n = HScroll1.ValueIf n 0 ThenFor i = 1 To ns

15、 = s * iNext iEnd IfLabel2.Caption = n & “! = “&s End Sub,例7.4 设计一个调色板应用程序，使用三个滚动条作为 三种基本颜色的输入工具。,三个滚动条属性设置： Max属性255 Min属性0， Value初值0 SmallChange属性为1， LargeChange属性为25 两个按钮，一个文本框 一个标签,Dim Red&, Green&, Blue As LongPrivate Sub Command2_Click() Text1.BackColor = Label1.BackColor End SubPrivate Sub Co

16、mmand1_Click() Text1.ForeColor = Label1.BackColor End SubPrivate 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

17、 Label1.BackColor = RGB（Red ， Green ， Blue ） End SubPrivate Sub HScroll3_Change() Red = HScroll1.Value Green = HScroll2.Value Blue = HScroll3.Value Label1.BackColor = RGB（Red ， Green ， Blue ） End Sub,例、窗体上有一个名称为Hscroll1的滚动条，程序运 行后，当单击滚动条两端的箭头时，立即在窗体上显 示滚动块的位置（即刻度值）,能实现操作的过程是 ）Private Sub HScroll1_Ch

18、angc( )Print HScroll1.ValueEnd SubB)Private Sub HSctroll1_Change() Print HScroll1.SmallChange End Sub C)Private Sub HScroll1_Scroll() Print HScroll1.ValueEnd Sub D)Private Sub HScroll1_Scroll() Print HScroll1.SmallChange End Sub,例：设窗体上有一个名称为HScroll1的水平滚动条， 当滚动块移动位置后，能够在窗体上输出移动的距离 （即新位置与原位置的刻度值之差，向右移

19、动为正数， 向左移动为负数）。下面可实现此功能程序，请填写 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控件用于：监视一个较长操作完成的进度，它通过从左到右

20、用一些方块填充矩形的形式来表示操作处理的进程。 属性：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 I

21、nteger,a(25000) As StringProgressBar1.Min = LBound(a)ProgressBar1.Max = UBound(a)ProgressBar1.Visible = TrueProgressBar1.Value = ProgressBar1.Min For i = LBound(a) To UBound(a)a(i) = “Initial value“ & iProgressBar1.Value = iNext iProgressBar1.Visible = FalseProgressBar1.Value = ProgressBar1.MinFor i

22、 = 1 To 10Print a(i)Next iEnd Sub,7.1.3 图形框和图像框,图形框PictureBox控件 作用:显示图片，也可作为其他控件的容器 在程序运行时装入图形 ： Picture1.Picture = LoadPicture(“图形文件路径及名称“) 删除图形框中图形 Picture1.Picture = LoadPicture(“”) 装入另一个图形框中的图形 Picture1.Picture = Picture2.Picture Autosize属性True 图形框自动调整大小与图片匹配False 图形超过图形框的部分将被剪裁掉,图像框Image,使用方法与图

23、形框相同 区别： 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 = C

24、heck1.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属性（

25、缺省设置为 0 ） 单位：为毫秒（0.001秒），表示计时间隔 若将Interval属性设置为0或负数，则计时器停止工作 （2）Enabled属性（缺省设置为True） 设置为True，而且Interval0，则计时器开始工作 （以Interval属性值为间隔，触发Timer事件） 设置为False可使时钟控件无效，即计时器停止工作。,事 件:时钟控件只有Timer事件 当Enabled属性值为True且Interval属性值大于0时， 该事件以Interval属性指定的时间间隔发生常常将需要定时执行的操作放在Timer事件过程中,例、 设窗体上有一个标签Label1和一个计时器Timer1，

26、 Timer1的Interval设置为1000，Enabled设置为True。 程序运行时每秒在标签中显示一次系统当前时间 ）Private Sub Timer1_Timer() Label1.Caption=True End Sub B) Private Sub Timer1_Timer()Label1.Caption=TimeEnd Sub C) Private Sub Timer1_Timer() Label1.Interval=1End Sub D) Private Sub Timer1_Timer() For k = l To Timer1.Interval Label1.Capti

27、on=Timer Next k End 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.In

28、terval=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 Integert = t - 1m = t 60s = t Mod 60Label1.Caption = m & “

29、分“ & s & “秒“If (t = 0) ThenTimer1.Enabled = FalseMsgBox (“时间到！“)End If End Sub,例7.8用一个定时器控制蝴蝶在窗体内的飞舞,Private Sub Timer1_Timer()Static x As IntegerIf x=0 ThenImage1.Picture = Image2.Picturex=1ElseImage1.Picture = Image3.Picturex=0End If End Sub,Private Sub Timer1_Timer()Static x As IntegerImage1.Move

30、 Image1.Left + 150, Image1.Top 100If Image1.Top = 0 ThenImage1.Left = 0Image1.Top = 2320End IfIf x = 0 ThenImage1.Picture = Image2.Picturex = 1ElseImage1.Picture = Image3.Picturex = 0End If End Sub,7.2 通用对话框,VB提供了一组基于Windows的标准对话框(ActiveX) 利用通用对话框控件可在窗体上创建打开文件、保存文件、颜色、字体、打印等对话框。,工程/部件,选定部件标签,选定Micro

31、soft CommDialog Control 6.0,通用对话框添加到工具箱,确定,例7.9 通过打开文件对话框，选择一个.bmp图片文件，在图形框中显示该图片,Private Sub Command1_Click()CommonDialog1.ShowOpen Picture1.Picture=LoadPicture(CommonDialog1. FileName) End Sub,CommonDialog1.Action=1,通用对话框的属性设置方法： 1.在“属性页”对话框中设置 2.在程序代码中设置，必须设置在显示对话框之前,CommonDialog1.FileName = “*.b

32、mp“ CommonDialog1.InitDir = “C:“ CommonDialog1.Filter = “pictures(*.bmp)|*.bmp|ALL files(*.*)|*.*“ CommonDialog1.FilterIndex = 1,通用对话框的基本属性和方法,(1) Action属性和Show方法：打开对话框,该属性只能在程序中赋值,CommonDialog1.Action=1,CommonDialog1.ShowOpen,通用对话框的基本属性和方法,(2) DialogTiltle属性:设置通用对话框标题 (3) CancelError属性:逻辑型值，表示用户在与对

33、话框进行信息交换时，按下“取消”按钮时是否产生出错信息。 True：选择取消按钮, 出现错误信息（ 错误标志Err设置为32755 Cancel was selected ） False：选择取消按钮，没有错误警告。,由 ShowOpen或Action属性为1来实现 重要属性 : (1) FileName (文件名称）属性: 用户所要打开的文件名（包含路径） (2) FileTitle （文件标题）属性： 用户所选定的文件名（不包含路径） (3) Filter （过滤器）属性： 确定文件列表框中所显示文件的类型（多组用|分隔） 则在“文件类型”列表框显示三种文件类型供用户选择Cocuments

34、(*.DOC) 扩展名为DOC的Word文件Text Files(*.TXT) 扩展名为TXT的文本文件All Files(*.*) 所有文件 Cocuments(*.DOC)|*.DOC|Text Files(*.TXT)|*.txt|All Files(*.*),7.2.1打开文件对话框,DialogTiltle,FileName,InitDir,Filter,FilterIndex,DefaultExt,(4) FilterIndex （过滤器索引）属性：为整型值 表示用户在文件类型列表框选定了第几组文件类型。 (5) InitDir （初始化路径）属性： 该属性用来指定打开对话框中的初

35、始目录 (6)DefaultExt属性:字符型确定保存文件的缺省扩展名 (7)CancelError属性：逻辑型值，用户在与对话框 行信息交换时，按下“取消”按钮时是否产生出错信息,例7.10编写一个简单的文本文件编辑程序 当用户要求单击“打开”就弹出打开对话框，当用户选择一文本文件，便可将该文件内容读入到文本框；,Private Sub Command1_Click()CommonDialog1.ShowOpenText1.Text = “Open CommonDialog1.FileName For Input As #1Do While Not EOF(1)Line Input #1,

36、inputdataText1.Text = Text1 + inputdata + vbCrLfLoopClose #1End Sub Private Sub Command1_Click()End End Sub,7.2.2 保存文件对话框,由 ShowSave方法或Action属性为2来实现 与打开文件对话框的属性基本相同 特有的属性是DefaultExt，用于设置缺省的扩展名 例7.10中另存命令按钮编写代码，保存文本框内信息 Sub Command2_Click ()CommonDialog1.ShowSaveCommonDialog1. FileName=“Default.Txt”C

37、ommonDialog1. DefaultExt =“Txt” Open CommonDialog1.filename For Output As #1Print #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

38、.2.4 字体对话框,由ShowFont方法或Action属性为4来实现 字体对话框重要的属性有：Color, FontName, FontSize, FontBold FontItalic , FontStrikethru, FontUnderline, Max, mint等，,FontName,FontBold、FontItalic,FontSize,FontStrikethru,FontUnderline,Color,Min、 Max,显示字体对话框前必须设置Flags属性，否则发生不存在字体错误 Flags属性：设置所显示的字体类型，数据类型为LongFlages属性应取下列值,例7.

39、10中的字体按钮编写设置文本框字体的过程 Private Sub Command4_Click()CommonDialog1.Flags = cdlCFBoth Or cdlCFEffectsCommonDialog1.ShowFontText1.FontName = CommonDialog1.FontNameText1.FontSize = CommonDialog1.FontSizeText1.FontBold = CommonDialog1.FontBoldText1.FontItalic = CommonDialog1.FontItalicText1.FontStrikethru =

40、 CommonDialog1.FontStrikethruText1.FontUnderline = CommonDialog1.FontUnderlineText1.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()C

41、ommonDialog1.Action = 5For i = 1 To CommonDialog1.CopiesPrinter.Print Text1.TextNext iPrinter.EndDoc End Sub,对上述程序，下列叙述中错误的是 ）单击“打开”按钮显示打开文件对话框 B）单击“保存”按钮显示保存文件对话框 C）单击“打印”按钮，能够设置打印选项，并执行打印操作 D）单击“退出”按钮，结束程序的运行,例、窗体上有一个名称为CD1的通用对话框控件和 由四个命令按钮组成的控件数Command1,其下标 从左到右分别为0、1、2、3,窗体外观如图所示 Private Sub Com

42、mand1_Click(Index As Integer) Select Case Index Case 0 CD1.Action=1 Case 1 CD1.ShowSave Case 2 CD1.Action=5 Case 3 End 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应用程序中十分关键的要素之一，它以分组的

43、形式组织多个命令或操作，为用户灵活操作应用程序提供了便捷的手段。菜单可分为两种基本类型：下拉式和弹出式菜 下拉式菜单:一般通过单击菜单栏中菜单标题（如“文件”、“编辑”、“视图”等）的方式打开 弹出式菜单:则通过用鼠标右键单击某一区域打开,7.3.1 菜单编辑器,分隔线: 在标题栏输入一个连字符“-” 标题热键：前面加&,启动菜单编辑器：“工具”“菜单编辑器”,菜单编辑器的使用技巧,1. 标题(Caption) 2. 名称(Name) 3. 快捷键(Shortcut) 4. 下一个(Next) 5. 和按钮 6. 插入(Insert)按钮 7. 删除(Delete)按钮 8. 和按钮 9.复选

44、Checked检查框10. 有效Enabled，可见Visible检查框 11显示窗口列表Window List检查,根据设计要求，依次输入或选择项目，即可,1. 标题(Caption)：在窗口上显示，如：输入&File，显示为： File，热键：Alt+F 2. 名称(Name)： 菜单项的名称，分界符也应有名称。 3. 快捷键(Shortcut)：下拉列表框选择一个键 4.下一个(Next)： 设置下一个菜单项 5. 和：“” 下一级菜单项；“”上一级菜单项 6. 插入(Insert)按钮：插入菜单项 7. 删除(Delete)按钮：删除菜单项 8. 和按钮： 改变菜单项位置 9. 复选(

45、Checked)检查框：菜单项为选定项 10. 有效(Enabled)检查框：True：菜单项可选；False：不可选。 11. 显示窗口列表(Window List)检查框：决定是否显示所有打开的子窗体标题。,菜单项除了Name、Visible、Enabled等属性之外，还具有下列重要属性： (1) Text 菜单项上显示的标题文本 在字符前加一个&符号构成热键。 例如：输入“新建(&N)”，则菜单显示“新建(N)”，N为热键（用Alt+N来打开菜单） 菜单项的分隔符，输入一个减号“-”。 (2) Checked 控制菜单项左边是否显示“” 菜单项的事件Click 为菜单项编写程序,1设计下

46、拉菜单： 2设计子菜单或改变子菜单级别： 3为菜单项分组：菜单名用减号“-” 4为菜单项指定访问键和快捷键 5为菜单项加上复选标记 6禁止使用菜单项 在程序代码中可以通过程序代码： 菜单名.Enabled=False 7菜单项的增减,菜单设计的步骤：,例7.15将例7.10中的命令组织成菜单 在窗体上放置一个文本框，一个通用对话框,Dim st As String Private Sub EditCopy_Click()st = Text1.SelText 将选中的内容存放到st变量中EditCopy.Enabled = False 进行复制后,剪切和复制按钮无效EditCut.Enabled

47、 = FalseEditPaste.Enabled = True 粘贴按钮有效 End Sub Private Sub EditCut_Click()st = Text1.SelText 将选中的内容存放到st变量中Text1.SelText = “ 将选中的内容清除,实现了剪切EditCopy.Enabled = FalseEditCut.Enabled = FalseEditPaste.Enabled = True End Sub,Private Sub EditPaste_Click()Text1.Text = Left(Text1, Text1.SelStart) + st+ Mid(

48、Text1, Text1.SelStart + 1) End Sub Private Sub FileExit_Click()End End Sub,7.3.2 弹出菜单,用户在某个对象上单击鼠标右键时的位置，弹出菜单项 设计过程与普通菜单相同。菜单弹出的方法： 对象. PopupMenu 菜单名, 标志参数, x, y 菜单名不能省略 标志参数，表示弹出的位置和触发的键 x,y:指定弹出菜单显示的位置,为创建一个不显示在菜单栏里的菜单，可在设计时使顶级菜单项目为不可见（ “Visible”复选框没有被选上） 当VB显示一个弹出式菜单时，指定的顶级菜单的 Visible属性会被忽略,例：实现弹

49、出式菜单,Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu Styl, 6End If End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu txtfont, 6End If End Sub,例、窗体上有一个用菜单编辑器设计的菜单（见图）。 运行程序，并在窗体上单击鼠标右键，则弹出一个快 捷菜单，如图所示。以下叙述中错误的 ）在设计“粘贴”菜单项时，在菜单编辑器窗口中 设置了“有效”属性（有“”） B）菜单中的横线是在该菜单项的标题输入框中输入 了一个“”（减号）字符 C）在设计“选中”菜单项时，在菜单编辑器窗口中设 置了“复选”属性（有“”） D）在设计该弹出菜单的主菜单项时，在菜单编辑器 窗口中去掉了“可见”前面的“”,