ch.bas

来自「财务管理系统！ 经过本人操作可以使用！」· BAS 代码 · 共 14 行

Attribute VB_Name = "Module2"
Public Sub Chc(Cont As Control, Color1 As Integer, Color2 As Integer, Color3 As Integer)
  If Val(Cont.Tag) = Color1 Then
      Cont.Tag = Color2
    ElseIf Val(Cont.Tag) = Color2 Then
      Cont.Tag = Color3
     ElseIf Val(Cont.Tag) = Color3 Then
      Cont.Tag = Color1
     Else
      Cont.Tag = Color1
  End If
    Cont.ForeColor = QBColor(Cont.Tag)
End Sub