新手求教感激感激！！谢谢谢谢

#2

wds12018-05-03 21:53

Private Sub Text1_Change()
If Option1.Value = True Then
   Select Case Val(Text1.Text)
   Case 12, 34, 24, 45, 30, 38, 44, 21
     Text1.BackColor = vbRed
   Case Else
     Text1.BackColor = vbWhite
   End Select
End If
If Option2.Value = True Then
   Select Case Val(Text1.Text)
   Case 46, 12, 34, 39, 36, 25, 39, 20
     Text1.BackColor = vbRed
   Case Else
     Text1.BackColor = vbWhite
   End Select
End If
End Sub

#3

vbsamdu5182018-05-03 22:44

回复 2楼 wds1

我刚刚测试了，好像不行不是我希望的那样，，，，1、我的是复选 2. 我要的是相同的数字用红色字体表示

[此贴子已经被作者于2018-5-3 23:26编辑过]

#4

wds12018-05-04 09:25

增加2个check控件、1个RichTextBox控件，实现的是与1或者与2中有相同的就红色

Private Sub RichTextBox1_Change()
If Check1.Value = 1 Then
   Select Case Right(RichTextBox1.Text, 2)
   Case 12, 34, 24, 45, 30, 38, 44, 21
     RichTextBox1.SelStart = Len(RichTextBox1.Text) - 2
     RichTextBox1.SelLength = 2
     RichTextBox1.SelColor = vbRed
     RichTextBox1.SelStart = Len(RichTextBox1.Text)
   Case Else
     RichTextBox1.SelColor = vbBlack
   End Select
End If
If Check2.Value = 1 Then
   Select Case Right(RichTextBox1.Text, 2)
   Case 46, 12, 34, 39, 36, 25, 39, 20
     RichTextBox1.SelStart = Len(RichTextBox1.Text) - 2
     RichTextBox1.SelLength = 2
     RichTextBox1.SelColor = vbRed
     RichTextBox1.SelStart = Len(RichTextBox1.Text)
   Case Else
     RichTextBox1.SelColor = vbBlack
   End Select
End If
End Sub

[此贴子已经被作者于2018-5-4 09:29编辑过]

新手求教 感激感激！！谢谢谢谢