Question

在VB文本控件中，想按下键盘B 让他显示为红色字样的恭喜，按下空格键时让他显示为绿色字样的 发财

按下键盘上的0 1 2 3 4 5 6 7 8 9显示为绿色的10- 11- 2- 3- 4- 5- 6- 7- 8- 9-
按下小键盘上的0 1 2 3 4 5 6 7 8 9显示为红色的10+ 11+ 2+ 3+ 4+ 5+ 6+ 7+ 8+ 9+

Answer 1

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 98 Then
Me.ForeColor = vbRed
Print "恭森扰樱喜"此丛李明;
ElseIf KeyAscii = 32 Then
Me.ForeColor = vbGreen
Print "发财"
End If
End Sub

追问

不行呀，提示错误。是在Text1里

追答

Private Sub Text1_KeyPress(KeyAscii As Integer)
Text1.Locked = True
If KeyAscii = 98 Then
Text1.ForeColor = vbRed
Text1.Text = "恭喜"
ElseIf KeyAscii = 32 Then
Text1.ForeColor = vbGreen
Text1.Text = "发财"
End If
End Sub
你看这样行吗

追问

谢谢，可以了，不过不能在text1里进行重复的动作，就是说我按两下B 他不会输出两个恭喜。
也不能用退格键。删除。
按下键盘上的0 1 2 3 4 5 6 7 8 9显示为绿色的10- 11- 2- 3- 4- 5- 6- 7- 8- 9-
按下小键盘上的0 1 2 3 4 5 6 7 8 9显示为红色的10+ 11+ 2+ 3+ 4+ 5+ 6+ 7+ 8+ 9+
再问下这个怎么写？？

QQ75339444