VB6.0,怎么把文字插入TextBox的每行的一个位置,请给出代码,50分啊!!

Question

公用对话框也行啊,代码
两位,不行呢,根本就不是在每一行的最前面插入的啊!
我要的是,鼠标在哪一行,就在哪一行的最前面插入我想要插入的字符,谢谢>..

Answer 1

Private Sub Command2_Click()
Dim oCtl As Control
Dim s As String
Dim v As Variant
Dim sIn As String
Dim sTemp As String
Dim i As Long

sIn = "oo" '要插入的文字
For Each oCtl In Me.Controls
If TypeName(oCtl) = "TextBox" Then
'oCtl.Text = "test"
s = oCtl.Text
v = Split(s, vbCrLf, , vbBinaryCompare)
For i = LBound(v) To UBound(v)
If Len(v(i)) > 3 Then
sTemp = v(i)
v(i) = Left(sTemp, 3) & sIn & Right(sTemp, Len(sTemp) - 3)
End If
Next
sTemp = ""
For i = LBound(v) To UBound(v)
sTemp = sTemp & v(i) & vbCrLf
Next
If Len(sTemp) > 2 Then
sTemp = Left(sTemp, Len(sTemp) - 2)
End If
oCtl.Text = sTemp
End If
Next
End Sub

Answer 2

我改了一下

可以在最前面插入~~

Private Sub Command1_Click()
Dim oCtl As Control
Dim s As String
Dim v As Variant
Dim sIn As String
Dim sTemp As String
Dim i As Long

sIn = "要插入的文字" '要插入的文字
For Each oCtl In Me.Controls
If TypeName(oCtl) = "TextBox" Then
'oCtl.Text = "test"
s = oCtl.Text
v = Split(s, vbCrLf, , vbBinaryCompare)
For i = LBound(v) To UBound(v)
If Len(v(i)) > 0 Then
sTemp = v(i)
v(i) = Left(sTemp, 0) & sIn & Right(sTemp, Len(sTemp) - 0)
End If
Next
sTemp = ""
For i = LBound(v) To UBound(v)
sTemp = sTemp & v(i) & vbCrLf
Next
If Len(sTemp) > 0 Then
sTemp = Left(sTemp, Len(sTemp) - 0)
End If
oCtl.Text = sTemp
End If
Next
End Sub

Answer 3

汗
简单的写了下
Private Sub Command2_Click()
On Error Resume Next
Text3.SelStart = InStrRev(Text3.Text, vbCrLf, Text3.SelStart) + 1
Text3.SelLength = 0
Text3.SelText = "haha"
End Sub)本回答被提问者采纳

Answer 4

简单办法：
slist = Split(Text1.Text, vbCrLf)
acount = UBound(slist)
For i = 0 To acount
If Len(Trim(slist(i))) = 5 Then
Text1.Text = Replace(Text1.Text, slist(i), "云F" & slist(i))
End If
Next i

Answer 5

说详细点