窗体中的按钮（CommandButton）的capition循环问题

lagssl

求助老师，在窗体中，命令按钮上的文字（caption），怎么做到循环？

就是点击一下由1变到2，再点击由2变到3，再点击一次又由3变到1，如此循环。

大灰狼1976

假设按钮CAPTION已设置为1或2或3
CommandButton1.Caption = Left(Split("1231", CommandButton1.Caption)(1), 1)

桑特容易额

1. Private Sub CommandButton1_Click()
   
2.     If CommandButton1.Caption = "1" Then
   
3.         CommandButton1.Caption = "2"
   
4.     ElseIf CommandButton1.Caption = "2" Then
   
5.         CommandButton1.Caption = "3"
   
6.     ElseIf CommandButton1.Caption = "3" Then
   
7.         CommandButton1.Caption = "1"
   
8.     Else
   
9.         CommandButton1.Caption = "1"
   
10.     End If
    
11. End Sub

复制代码

micch

1. Private Sub Label1_Click()
   
2. Label1.Caption = Label1.Caption Mod 3 + 1
   
3. End Sub

复制代码

xjl565135022

都会弄窗体了，没理由不会if呀

micch

lagssl

大灰狼1976 发表于 2024-11-21 13:34
假设按钮CAPTION已设置为1或2或3
CommandButton1.Caption = Left(Split("1231", CommandButton1.Caption)( ...

谢谢大灰狼版主，学习了！

ynzsvt

1. Private Sub CommandButton1_Click()
   
2. Dim Dic As Object, St$, AfLb$, Shp As Shape, Btn As Button
   
3. Set Dic = CreateObject("Scripting.Dictionary")
   
4. Dic("1") = "2": Dic("2") = "3": Dic("3") = "1"
   
5. St = CommandButton1.Caption
   
6. 
   
7. If Not Dic.Exists(St) Then CommandButton1.Caption = "1" Else CommandButton1.Caption = Dic(St)
   
8. End Sub

复制代码