End If End Sub
Private Sub Command2_Click() Command2.Caption = \返回\Command3.Caption = \联系管理员\Command4.Caption = \网点服务\Command1.Visible = False
If Command2.Caption = \返回\
Command2.Visible = True Command3.Visible = True Command4.Visible = True Label4.Visible = True Label5.Visible = True Label6.Visible = True End If End Sub
Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Command2.Caption = \返回\Command2.Visible = True Command3.Visible = True Command4.Visible = True Label4.Visible = True Label5.Visible = True Label6.Visible = True End If End Sub
Private Sub Command3_Click() Command2.Caption = \返回\Command3.Caption = \联系管理员\Command4.Caption = \网点服务\Command1.Visible = False End Sub
Private Sub Command4_Click()
21
Command2.Caption = \返回\Command3.Caption = \联系管理员\Command4.Caption = \网点服务\Command1.Visible = False End Sub
Private Sub Form_Load() Command2.Visible = False Command3.Visible = False Command4.Visible = False Label4.Visible = False Label5.Visible = False Label6.Visible = False End Sub
运行操作实施记录:
输入自行车IC卡号、自行车站点号、密码,如下图:
出现各类服务:
22
点击余额查询,出现如下界面:
界面有多种按钮,再等一下,出现余额查询界面,如下图:
23
点击“返回“按钮,又回到初始界面,如下图:
24
相关推荐: