请问xzlxzlxzl,该组代码只对一个框起作用,多几个框,对其它框就没有反应了?如:
Private Sub Text1_Click()
Dim a As Long
a = Text1.BackColor Xor &HCC10CC
'&HCC10CC可以变换为其他数字,只要在24位色范围内都行,及>&H0<&HFFFFFF
If Not (a > &H80000019 And a < &H80000000) Then a = a And &HFFFFFF
If a > 0 And a < 24 Then a = a Or &H80000000
Text1.BackColor = a
End Sub
Private Sub Text2_Click()
Dim a As Long
a = Text2.BackColor Xor &HCC10CC
'&HCC10CC可以变换为其他数字,只要在24位色范围内都行,及>&H0<&HFFFFFF
If Not (a > &H80000019 And a < &H80000000) Then a = a And &HFFFFFF
If a > 0 And a < 24 Then a = a Or &H80000000
Text2.BackColor = a
End Sub
Private Sub Text3_Change()
Dim a As Long
a = Text3.BackColor Xor &HCC10CC
'&HCC10CC可以变换为其他数字,只要在24位色范围内都行,及>&H0<&HFFFFFF
If Not (a > &H80000019 And a < &H80000000) Then a = a And &HFFFFFF
If a > 0 And a < 24 Then a = a Or &H80000000
Text3.BackColor = a
End Sub
Private Sub Text4_Change()
Dim a As Long
a = Text4.BackColor Xor &HCC10CC
'&HCC10CC可以变换为其他数字,只要在24位色范围内都行,及>&H0<&HFFFFFF
If Not (a > &H80000019 And a < &H80000000) Then a = a And &HFFFFFF
If a > 0 And a < 24 Then a = a Or &H80000000
Text4.BackColor = a
End Sub