替换文本框中的字符？

Question

在vb6中我希望能够检测到用户何时按下空格键而不是放入空格中使用下划线符号。这是一种可能性还是我只是充满希望？我似乎无法弄清楚如何做到这一点，我试图摆弄关键按键的方法，但我不知道正确的代码来做到这一点。

Private Sub txtbarcode_KeyPress(KeyAscii As Integer)
 if keyascii = vbkeyspace then
 'replace space with underscore
 end if

end sub

Answer 1

这应该有效

Private Sub txtbarcode_KeyPress(KeyAscii As Integer)
 If KeyAscii = 32 Then
     'replace space with underscore
     KeyAscii = 95
 End If
End Sub