你是要把連續(xù)多個空格,變換成只需要一個空格,那么:

創(chuàng)新互聯(lián)是一家專業(yè)提供克拉瑪依區(qū)企業(yè)網(wǎng)站建設(shè),專注與成都做網(wǎng)站、成都網(wǎng)站制作、H5響應式網(wǎng)站、小程序制作等業(yè)務(wù)。10年已為克拉瑪依區(qū)眾多企業(yè)、政府機構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)站設(shè)計公司優(yōu)惠進行中。
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一個空格,替換2個空格
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?=?"中華人民共和國adfjpwqetqadfwetqgasdfewgt"
Dim?tstr?As?String?=?""
Dim?i?As?Integer
For?i?=?0?To?str.Length?-?1
tstr?=?str.Substring(i,?1)??"?"?'每一個字符后面加空格。
Next
tstr?=?tstr.TrimEnd("?")?'移除最后一個空格
Textbox1.Text?=?tstr
textbox.text = "12345" " " "67890"
或者
textbox.text = "12345" space(1) "67890"
首先你的textbox有一個屬性得設(shè)置成多行、支持回車符才行
其次,換行符我記得直接用\n就行
n個空格你就寫個循環(huán)用,每次循環(huán)就加上" "就行。
自己做個試驗就行了:
Public?Class?Form1
'?在窗體上放個?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
運行起來,自己按鍵盤試試就知道了。
文章題目:vb.net空格鍵,vbs空格鍵
文章起源:http://chinadenli.net/article24/dsghcce.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供自適應網(wǎng)站、用戶體驗、搜索引擎優(yōu)化、靜態(tài)網(wǎng)站、企業(yè)建站、商城網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)