Question

在VB6.0里，想用checkbox更换文本框里字的颜色，然后我就在checkbox的click中

在VB6.0里，想用checkbox更换文本框里字的颜色，然后我就在checkbox的click中输入了图中的代码，这样就可以点击check1，字体就变成了绿色，但是问题来了，我想变回原来的颜色怎么办？不要告诉我再写一段把字体变成黑色的代码，我想知道的是怎么去掉绿色，变成原来的颜色

Answer 1

Private Sub Check1_Click()

    Static chk_notfirst_click As Boolean

    Static chk_def_color As Long‘利用static静态变量把颜色存下来

    If Not chk_notfirst_click Then'‘在第一次点击时利用static静态变量把颜色存下来

        chk_def_color = Check1.ForeColor

        chk_notfirst_click = True

    End If

    

    If Check1.Value = 1 Then

        Check1.ForeColor = vbGreen'选中设为绿色

    End If

    If Check1.Value = 0 Then

        Check1.ForeColor = chk_def_color'取消选中设为原来保存下来的颜色值

    End If

End Sub

追问

新手表示已经看晕

还是没有实现我想要的。。比如说我现在有两个check，一个变绿一个变黄

那我选择变绿，再选择变黄，这时再把变黄的点没，会发现字体没有变成绿色的，而是黑色

Answer 2

Private Sub Check1_Click()
If Check1 Then
Text1.ForeColor = vbRed
Else
Text1.ForeColor = vbBlack '这个要用你原来的颜色
End If
End Sub