打字测试问题，如何改单个文字的背景色？

[lihato]

打字测试问题，如何改单个文字的背景色？
各位大虾，各位前辈，最近不弟相写一个打字练习程序，就是哪种上面一行原文，下跟着打，如果打字的正确，正确的一种颜色，打字错误时，错误的字一种颜色的那一种.现在小弟想不通的是如何改变每个字的背景色，望各位大虾以及美梅指教。

[用户 昵称]

用richedit

[impeng]

如果是这样的话，设前景色应该比较好1

pDC->SetTextColor(RGB(1,1,1));
pDC->TextOut(...);

[everandforever]

自画窗口,在ONPAINT()里面调用CDC::SETBKCOLOR()

[lihato]

richedit 哪一个属性可以实现？可以说的详细就点码？

[shanyourouqing]

两 个 richtextbox 控制一个源rhtxtSource一个目标rhtxtInput
下面的事件

Private Sub rhtxtInput_Change()
If Not bIfDel Then
iTypeInLen = Len(rhtxtInput.Text)
For i = iTypeInLenLast To iTypeInLen - 1
rhtxtInput.SelStart = i
rhtxtInput.SelLength = 1
strCurrent = rhtxtInput.SelText
rhtxtSource.SelStart = i
rhtxtSource.SelLength = 1
If rhtxtSource.SelText = strCurrent Then
rhtxtSource.SelColor = &HFF0000
iRightNum = iRightNum + 1
Else
rhtxtSource.SelColor = RGB(255, 0, 0)
iWrongNum = iWrongNum + 1
End If
Next i
rhtxtInput.SelStart = iTypeInLen + 1
iTypeInLenLast = iTypeInLen
Else
bIfDel = False
If (iWrongNum + iRightNum) = 0 Then
Exit Sub
End If
rhtxtSource.SelStart = Len(rhtxtInput.Text)
rhtxtSource.SelLength = 1
If rhtxtSource.SelColor = RGB(255, 0, 0) Then
iWrongNum = iWrongNum - 1
rhtxtSource.SelColor = RGB(0, 0, 0)
Else
iRightNum = iRightNum - 1
rhtxtSource.SelColor = RGB(0, 0, 0)
End If
iTypeInLenLast = Len(rhtxtInput.Text)
End If
txtRightNum = iRightNum
txtWrongNum = iWrongNum
If (iRightNum + iWrongNum) = 0 Then
txtRightRatio.Text = 0
Else
txtRightRatio.Text = Format(iRightNum / (iRightNum + iWrongNum) * 100, "00.00")
End If
If (iTmrNum = 0) Then
txtSpeed.Text = 0
Else
txtSpeed.Text = Format((iRightNum + iWrongNum) / (iTmrNum * 5 / 60), "00.00")
End If
End Sub

Private Sub rhtxtInput_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 8 Then
bIfDel = True
End If
If KeyCode >= 37 And KeyCode <= 40 Then
KeyCode = 0
End If
' If KeyCode = 13 Then
' KeyCode = 0
'End If
If Shift = 2 And KeyCode = 86 Then
KeyCode = 0
End If
If KeyCode = 46 Then
KeyCode = 0
End If
End Sub

自已试试吧