Question

vb.net 问题

REM 按钮下的事件显示出本人想要的TextBox1.Text
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Temp As String = TextBox1.Text
While InStr(1, Temp, Space(2), CompareMethod.Binary) > 0
Temp = Replace(Temp, Space(2), Space(1))
End While
TextBox1.Text = Temp
End Sub

REM 我在文本框“TextBox1”上，连续按2个空格没反应。当我连续按3个空格，有反应了，但是“TextBox1.Text”异常了
Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim Temp As String = TextBox1.Text
While InStr(1, Temp, Space(2), CompareMethod.Binary) > 0
Temp = Replace(Temp, Space(2), Space(1))
End While
TextBox1.Text = Temp
End Sub

REM 不知道为什么？希望高手解释一下我错在哪里？

Answer 1

VB.NET2005或以上版本
Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim Temp As String = TextBox1.Text
While InStr(1, Temp, Space(2), CompareMethod.Binary) > 0
Temp = Replace(Temp, Space(2), Space(1))
End While
TextBox1.Text = Temp
My.Computer.Keyboard.SendKeys("{end}", True)
End Sub

追问

我目的是要【TextBox1.Text】不允许出现连续的空格。加了
My.Computer.Keyboard.SendKeys("{end}", True)
结果是“不允许超过3个空格”。加了这句代码，有个严重的问题。那就是我没法在【TextBox1.Text】的中间输入字符，每次输入都会自动跳到字符串末尾。

追答

InStr(1, Temp, Space(2), CompareMethod.Binary) > 0 就是有2个以上的空格才处理空格呀!
你要是说【TextBox1.Text】不允许出现连续的空格也是非常简单
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim a As Integer = InStr(TextBox1.Text, " ")
If a > 0 Then
TextBox1.Text = System.Text.RegularExpressions.Regex.Replace(TextBox1.Text, " {2,}", " ")
TextBox1.SelectionStart = a
End If
End Sub

追问

你这个代码可以解决所有问题。谢谢你了！
我会单击“选为满意回答”。你的代码中
" {2,}"
代表是什么意思？我是自学 VB.Net 的我没见过这样的格式。你可以细说一下吗？

追答

严格的讲程序是这样的
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim a As Integer = InStr(TextBox1.Text, " ")
If a > 0 Then
TextBox1.Text = Regex.Replace(TextBox1.Text, " {2,}", " ")
TextBox1.SelectionStart = a
End If
End Sub
End Class

Imports System.Text.RegularExpressions 表示你可以引用VB.NET正则表达式
Regex 是正则表达式的标志，Regex.Replace就是利用正则表达式进行字符串的替换
" {2,}"实际上是 空格{2,} 表示发现等于或大于两个空格的字符串时，如1{2,4}表示发现2到4个由1组成的字符串时
使用VB.NET正则表达式可以使字符串处理程序简短1/3-2/3，但复杂的正则表达式如果设计时有疏漏，问题也是蛮大的，建议是依自己的水平由浅入深的使用，只是用肯定没问题的
VB.NET正则表达式的介绍及简单实例在我的空间文章中有介绍