A-A+

在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name属性值为mnuMenu) 然后为

2022-08-12 20:28:21 问答库 阅读 197 次

问题详情

在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name属性值为mnuMenu),然后为其设计两个子菜单项“增加菜单”(Name属性值为mnuAdD)和“减少菜单”(Name属性值为mnuDel),另外设置一个标题为空的菜单项<控件数组),其Name属性值为mnuDyn,Index值为0,Visible属性值为False;然后编写以下程序来实现增加和减少菜单项的功能,完成程序。 Dim Inxld As Integer Private Sub mnuAdd_Click() Dim mnuc As String mnuc=InputBox("input caption") InxId;InxId+1 【 】mnuDyn(InxID) mnuDyn(InxlD),Calption=mnuc mauDyn(InxID).Visible=True End Sub Private SubmnuDel_Click() Dim i As Integer If【 】Then MsgBox "菜单项已全部被删除" Else Unload mnuDyn(InxID) InxId=InxId-1 End If End Sub


请帮忙给出正确答案和分析,谢谢!

参考答案

正确答案:Load InxId<1
本题考查动态菜单的应用,InxId表示动态菜单项的索引,每增加一个菜单项,InxId加一,并用Load方法将菜单显示出来。而在删除菜单项时,首先判断是否有相应的动态菜单项可以删除,即当InxId的值大于等于1时,才可以使用Unload方法删除最后一个增加的菜单项。

考点:菜单,主菜