修改textbox中指定行的字符

Private Sub Command1_Click()
Dim s() As String
s = Split(Text1.Text, vbCrLf)
t = 3 '这里可以随便改为你需要替换的行数
If UBound(s) < t - 1 Then
MsgBox "文本框没有这么多行"
Exit Sub
End If
Text1.Text = Replace(Text1.Text, s(t - 1), "aabbcc") '替换
End Sub

Private Sub Form_Load()
For i = 10 To 19 '向文本文件添加简单的文本例子
Text1.Text = Text1.Text & "第" & i & "行,文本框文本示例" & vbCrLf
Next
End Sub

本文链接：http://lxkj.vip/?id=77