VB程序中如和按空格键后不显示空格

真麻烦，其实两行代码就可以实现了

Private Sub Text1_Change()
Text1 = Replace(Text1, " ", "")
Text1.SelStart = Len(Text1)
End Sub

你是在哪个控件里输入空格？

有两个方法，一个是用KeyPress事件，一个是用change事件。

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc(" ") Then
'当按下的是空格键时，让这次的输入失效
KeyAscii = 0
End If
End Sub

但问题是，如果不是按空格键，而是粘贴，就无效了。

用Change事件的代码如下
Private Sub Text1_Change()
tss = Text1.SelStart
tStr = Text1.Text
For i = 1 To Len(tStr)
If Mid(tStr, i, 1) = " " Then
tStr = Left(tStr, i - 1) + Right(tStr, Len(tStr) - i)
End If
Next
Text1.Text = tStr
End Sub

用这个方法，无论是粘贴还是输入，都会把空格去掉。

Private Sub Text1_Change()
Text1.text = trim(Text1)
End Sub

OK了