你是要把連續(xù)多個(gè)空格,變換成只需要一個(gè)空格,那么:
創(chuàng)新互聯(lián)是一家專業(yè)提供克拉瑪依區(qū)企業(yè)網(wǎng)站建設(shè),專注與成都做網(wǎng)站、成都網(wǎng)站制作、H5響應(yīng)式網(wǎng)站、小程序制作等業(yè)務(wù)。10年已為克拉瑪依區(qū)眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)站設(shè)計(jì)公司優(yōu)惠進(jìn)行中。
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一個(gè)空格,替換2個(gè)空格
loop
用API函數(shù),但是vb.net與vb6的API聲明不一樣的。代碼如下:
Public Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
Const KEYEVENTF_KEYUP = H2
Const VK_SPACE = H20
Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
keybd_event(VK_SPACE, 0, 0, 0)
keybd_event(VK_SPACE, 0, KEYEVENTF_KEYUP, 0)
End Sub
如有問題,消息問我。我通常不看回答后的舊貼。
Dim?str?As?String?=?"中華人民共和國(guó)adfjpwqetqadfwetqgasdfewgt"
Dim?tstr?As?String?=?""
Dim?i?As?Integer
For?i?=?0?To?str.Length?-?1
tstr?=?str.Substring(i,?1)??"?"?'每一個(gè)字符后面加空格。
Next
tstr?=?tstr.TrimEnd("?")?'移除最后一個(gè)空格
Textbox1.Text?=?tstr
textbox.text = "12345" " " "67890"
或者
textbox.text = "12345" space(1) "67890"
首先你的textbox有一個(gè)屬性得設(shè)置成多行、支持回車符才行
其次,換行符我記得直接用\n就行
n個(gè)空格你就寫個(gè)循環(huán)用,每次循環(huán)就加上" "就行。
自己做個(gè)試驗(yàn)就行了:
Public?Class?Form1
'?在窗體上放個(gè)?Label1
Private?Sub?Form1_KeyDown(ByVal?sender?As?Object,?ByVal?e?As?System.Windows.Forms.KeyEventArgs)?Handles?Me.KeyDown
Lable1.Text?=?"KeyCode=?"??e.KeyCode.ToString??vbCrLf
Lable1.Text?=?"KeyData=?"??e.KeyData.ToString??vbCrLf
Lable1.Text?=?"KeyValue=?"??e.KeyValue.ToString
End?Sub
End?Class
運(yùn)行起來,自己按鍵盤試試就知道了。