请按一个按钮怎样实现两种情况

来源：百度知道 编辑：UC知道 时间：2024/05/26 07:31:19
VB中比如一个按钮在label中,按第一下出现第一个字,再按一下变第二个字!是否用到dim * as Integer的句式````请教各位师傅.这种句式的格式和定义是怎样做法!麻烦大家了!

Option Explicit
Dim flag As Boolean

Private Sub Command1_Click()
If flag Then
Label1.Caption = "OK"
Else
Label1.Caption = "NO"
End If
flag = Not flag
End Sub

如果是不使用记录变量的方法 则使用判断字符串的方法来变化

Private Sub Command1_Click()
Select Case Label1.Caption
Case "Label1"
Label1.Caption = "1"
Case "1"
Label1.Caption = "2"
Case "2"
Label1.Caption = "Label1"
End Select
End Sub

定义个全局变量即可,
Dim i%
Private Sub Command1_Click()
i=i+1
Select Case i
Case 1
Label1.Caption = "1"
Case 2
Label1.Caption = "2"
Case 3
Label1.Caption = "3"
End Select
End Sub

应该用static i as Integer来声明

Private Sub Form_Load()
Command1.Caption = &qu