例9-1]标签的显示和隐藏 例[9-1】标签的显示和隐藏一▣☒ Private Sub Hide ClickO 操作 显示 Label1.Visible False 隐藏 End Sub Private Sub Show ClickO 欢迎使用V6.可 Labell.Visible True End Sub
例[9-1] 标签的显示和隐藏 Private Sub Hide_Click() Label1.Visible = False End Sub Private Sub Show_Click() Label1.Visible = True End Sub
例9-2]设计一个应用程序，通过菜单完成两个整数的加减 运算。 Private Sub Add Click( Label1.Caption =" Label3.Caption Val(Text1.Text)+Val(Text2.Text) End Sub 例[9-2】整数加减运算 ▣☒ Private SubSub Click() 运算C)退出) 加法Ctr1+A Label1.Caption = 减法Ctrl+s Label3.Caption Val(Text1.Text)-Val(Text2.Text) End Sub Private Sub Exit Click( End 28 46 -18 End Sub
例[9-2] 设计一个应用程序，通过菜单完成两个整数的加减 运算。 Private Sub Add_Click() Label1.Caption ＝ ″＋″ Label3.Caption ＝ Val(Text1.Text) ＋ Val(Text2.Text) End Sub Private Sub Sub_Click() Label1.Caption ＝ ″－″ Label3.Caption ＝ Val(Text1.Text) － Val(Text2.Text) End Sub Private Sub Exit_Click() End End Sub
菜单的增减 Load菜单项控件数组ndex):从菜单控件数组中添加 一个新的菜单项。 UnLoad菜单项控件数组ndex):从菜单控件数组中删 除一个菜单项。 参见例9-3
菜单的增减 Load 菜单项控件数组(Index):从菜单控件数组中添加 一个新的菜单项。 UnLoad菜单项控件数组(Index):从菜单控件数组中删 除一个菜单项。 参见例9-3
例9-31在例9-2的代码基础上添加如下代码 Private Sub Form ClickO) If AppendCalNo =0 Then AppendCalNo =AppendCalNo +1 Load appendcal(AppendCalNo) appendcal((AppendCalNo),Caption="乘法y appendcal(AppendCalNo).Visible True AppendCalNo =AppendCalNo +1 Load appendcal(AppendCalNo) appendcal((AppendCalNo),Caption="除法” appendcal(AppendCalNo).Visible True End If End Sub (待续)
例[9-3] 在例9-2的代码基础上添加如下代码 Private Sub Form_Click() If AppendCalNo = 0 Then AppendCalNo = AppendCalNo + 1 Load appendcal(AppendCalNo) appendcal(AppendCalNo).Caption = "乘法" appendcal(AppendCalNo).Visible = True AppendCalNo = AppendCalNo + 1 Load appendcal(AppendCalNo) appendcal(AppendCalNo).Caption = "除法" appendcal(AppendCalNo).Visible = True End If End Sub （待续）
(接上页) Private Sub Form DblClick() Dim iAs Integer Do While AppendCalNo >0 Unload appendcal(AppendCalNo) AppendCalNo =AppendCalNo-1 Loop End Sub (待续)
（接上页） Private Sub Form_DblClick() Dim i As Integer Do While AppendCalNo > 0 Unload appendcal(AppendCalNo) AppendCalNo = AppendCalNo - 1 Loop End Sub （待续）