怎么用VB编写一个让文本框里面的内容,每一行开头都加空格?

来源:百度知道 编辑:UC知道 时间:2024/03/28 21:07:11
如输入
A
A
A
按键后变成
A
A
A
晕!空格被百度隐藏了下面用" "代替空格
A
A
A
变成
" "A
" "A
" "A

VB文本框中的换行是两个字符chr(13) & chr(10),编程读取其中的每一个字符,直到有换行的时候,在后边加数需要的空格数量的可以了。

下面的程序我已经调试通过(窗体中放置一个文本框和一个命令按钮):

Private Sub Command1_Click()
Dim CR As String, Strout As String, Tmp As String, I As Long
Tmp = Text1.Text
If Len(Tmp) < 2 Then Exit Sub
Strout = Space(2)
CR = Chr(13) & Chr(10)
Do While Len(Tmp) <> 0
I = InStr(Tmp, CR)
If I <> 0 Then
Strout = Strout & Left(Tmp, I + 1) & Space(2)
Tmp = Mid(Tmp, I + 2)
Else
Exit Do
End If
Loop
Strout = Strout & Tmp
Text1 = Strout
End Sub

你在button_onClick的事件下写,
" "+this.text1.text
这就行了

不明白你什么意思.
是print出来的吗? 是那就后面加分号 print;
要不然就关注下右边的属性设置,和那个八成有关.

private sub CmdSpc_click()
text1.text= " " & text1.text
end sub