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

显示全部楼层 · 2009-7-2 17:34:24

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

千问 · 2009-7-2 17:34:24

有两个方法，一个是用KeyPress事件，一个是用change事件。Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = Asc(" ") Then'当按下的是空格键时，让这次的输入失效KeyAscii = 0End IfEnd Sub但问题是，如果不是按空格键，而是粘贴，就无效了。用Change事件的代码如下Private Sub Text1_Change()tss = Text1.SelStarttStr = Text1.TextFor i = 1 To Len(tStr)If Mid(tStr, i, 1) = " " ThentStr = Left(tStr, i - 1) + Right(tStr, Len(tStr) - i)End IfNextText1.Text = tStrEnd Sub用这个方法，无论是粘贴还是输入，都会把空格去掉。

千问 · 2009-7-2 17:34:24

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