vb编程问题,在textbox中的某一行中添加文字

比如这样,我窗口中有一个textbox和一个按钮1.
我在textbox里面输入:
-------------------------
1
2
3
4
5
6
-------------------------
现在把光标停在了"3"的后面,然后点击一下按钮1,程序就在在"3"和"4"之间添加一行"12345678",变成这样:
-------------------------
1
2
3
12345678
4
5
6
------------------------
编译环境是visual basic6.0企业版,请问这要怎么实现?

举报该问题

第1个回答推荐于2016-02-26

Private Sub Command1_Click()
Text1.SelText = vbCrLf & "56789"
End Sub追问

我的意思是点击按钮后在光标的位置添加文字.原来的文字退一行,但是内容不发生变化.
可能我表述不太好......请继续指教!

追答

难道我的代码不能满足你要求？你试过了么？

追问

抱歉,是我的问题,因为按钮和textbox不是同一个窗口的好像这样写不行.
如果按钮和textbox不在同一窗口要怎么做.
已经提高分数了,请继续指教

追答

是同一个程序里的不同窗口？

追问

是的,谢谢你的耐心了....

追答

form2.Text1.SelText = vbCrLf & "56789" 加一个窗体名上去 textbox在哪个窗体上就加谁上去

本回答被提问者采纳

相似回答

vb中文本框怎样在不删除原有文本的情况下增加文本,比如说文本中有个...答：在VB文体框中也是一样 text1.text=text1.text & " 和你"（就是你要增加的文本）若要回车换行则再加vbcrlf，如 text1.text= text1.text & " 和你" & vbcrlf

vb中如何在文本框中加入文字?比如有若干个按钮,点击一个就向该文本框...答：你现在点击一个按钮,要使他变成"2135"则 TEXTBOX1.text="2"&TEXTBOX1.text 变为"1352"则 TEXTBOX1.text=TEXTBOX1.text&"2"要在其他文字添加则可以用mid等函数先分割TEXTBOX1.text,然后再把几部分连接起来其他一些函数也非常有用如replace TEXTBOX1.text=replace(TEXTBOX1.text,"1","2")...

VB6.0,怎么把文字插入TextBox的每行的一个位置,请给出代码,50分啊!!答：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 =...

vb问题 Richtextbox 如何增加内容答：楼上几位的方法都会使Richtextbox格式发生变化。我的做法是通过API来实现：一、把下面代码放入模块中：Option Explicit Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private...

大家正在搜

vb中如何读取textbox中某一行内容？

vb编程问题！如何在textbox中多行显示计算出来的问题？

求代码,VB在TextBox1中按行搜索TextBox2键入...

vb中如何读取textbox中指定的一行

VB编程调用TextBox中的数值的问题

vb中如何在textbox中追加文本阿？

vb怎么将textbox中的文本前加一段文字并写入txt文档...

VB 编程将txt 指定行数据显示在 textbox 中