专题辅导第十四讲 菜单的设计及应用（三）.docVIP

第十四讲 菜单的设计及应用（三） 五、为菜单选项的Click事件编程 上面已经详细介绍了菜单的建立以及有关菜单的各种设置。但是，尽管我们可以设计各种各样的菜单，也只是表面的，前面设计的各种菜单只能“看”不能用，用鼠标单击其中的任何一个菜单选项都没有反应，这是由于我们还没有对菜单选项的Click事件编程，即我们还没有告诉VB系统当操作者单击的菜单的某个选项后做什么动作。 对于菜单中的任何一个选项有且只有一个事件，那就是用鼠标单击该菜单选项所触发的事件，因此，我们只需要对菜单选项的Click事件进行编程，如：在前面一直使用的设计菜单的例子里，有一个“颜色”菜单，如图26所示： 图26 现在我们就来设计一个当操作者选择了其中的“红”，我们就让窗体的背景颜色变为红色，当操作者选择了“浅绿”就让窗体的背景颜色变为浅绿；当操作者选择了“深绿”就让窗体的背景颜色变为深绿；当操作者选择了“蓝”就让窗体的背景颜色变为蓝色；因此，需要对以下几个事件过程进行编程： MnuRed_Click() End Sub MnuGreen0_Click() End Sub MnuGreen1_Click() End Sub MnuBlue_Click() End Sub 编写的程序只有一句话：Form1.BackColor=指定的颜色 即程序为： Private Sub MnuRed_Click() Form1.BackColor = RGB(255, 0, 0) End Sub Private Sub MnuBlue_Click() Form1.BackColor = RGB(0, 0, 255) End Sub Private Sub MnuGreen0_Click() Form1.BackColor = RGB(0, 255, 0) End Sub Private Sub MnuGreen1_Click() Form1.BackColor = RGB(0, 128, 0) End Sub 【任务2】画圆、椭圆、弧、扇形程序。 任务描述： 编一个程序，可以画出圆、椭圆、圆（椭圆）弧、扇形，并且可以随时调整它们的大小、形状和颜色。 任务分析： 画出这些图形用的都是同一条语句： Circle (x,y),r,c,a1,a2,e 其中 (x,y)：圆心或中心 r：半径 c：颜色 a1,a2：弧或扇形的开始角和终止角 e：椭圆的比率 如果在a1,a2的前面加上一个负号“-”，画出来的就是扇形。 我们可以用滚动条来随时调整半径、比率、开始角、终止角的大小； 在菜单中确定所画的图形和颜色； 实现步骤： 1．设计界面 界面设计如图27所示： 图27 垂直滚动条1：用来调整半径； 垂直滚动条2：用来调整比率； 水平滚动条1：用来调整开始角的大小； 水平滚动条2：用来调整终止角的大小； Label1、Label2：显示半径可以取的最小值和最大值； Label13、Label14：显示比率的最小值和最大值； Label3、Label4：显示开始角的最小值和最大值； Label5、Label6：显示终止角的最小值和最大值； Labe7、Label8：显示当前的半径值； Label9、Label0：显示当前的开始角； Label11、Label2：显示当前的终止角； Label15、Label6：显示当前的比率； 中间的大矩形框是Shape1用来框住将来画出的图形； 菜单的各个选项如图28所示： 图28 图上未显示出来的有“帮助”菜单下面的“有关”选项； 2．设置属性 见图29所示，显示半径、开始角、终止角的标签属性设置： BorderStyle：1---Fixed Single（固定边框） Alignment：2---Center (居中显示) 图29 3．编写程序 确定画哪一种图形 我们用一个变量flag来标记当前画哪一种图形，其规定为： flag=1，画圆； flag=2，画椭圆； flag=3，画弧； flag=4，画扇； 这些值应该在“图形”菜单的选项（Click）事件中编程确定；如下： “圆”选项： Private Sub MnuCircle_Click() flag = 1 Form1.Cls HScroll1.Enabled = False HScroll2.Enabled = False VScroll2.Enabled = False End Sub 由于画圆时不用比率和开始角、终止角，所以这里把调整它们大小的滚动条设置为不可用，即 HScroll1.Enabled = False HScroll2.