Question

vb中如何使用一个变量改变一个shape控件的颜色

比如有三个按钮123，按下1之后shape1为蓝色，按2是黄色这样的（要用一个变量，如aa）

Answer 1

使用一个布尔型变量B，点击按钮后，根据B的值的不同，而执行不同代码 如下面所述

Dim B As Boolean

Private Sub Command1_Click()
If B = False Then
B = True
Shape1.FillColor = vbBlue
Else
B = False
Shape1.FillColor = vbRed
End If
End Sub

追问

那如果要用三个按钮来改变三种颜色呢？我想用的是一个byte型变量，值为1是红色，2是蓝色等等。

追答

值累加就可以了