VB6.0实现逐行读取textbox中文本

用VB6.0如何读取text1中每行的内容并每行内容都与text2中内容（就一行）共同逐行显示在text3中

举报该问题

第1个回答推荐于2016-07-16

Private Sub Command2_Click()
Dim str() As String
str = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(str)
Text3.Text = Text3.Text & str(i) & Text2.Text & vbCrLf
Next
End Sub本回答被提问者采纳

第2个回答 2012-08-14

楼上正解

相似回答

VB6.0实现逐行读取textbox中文本答：Private Sub Command2_Click()Dim str() As String str = Split(Text1.Text, vbCrLf)For i = 0 To UBound(str)Text3.Text = Text3.Text & str(i) & Text2.Text & vbCrLf Next End Sub

vb6.0中依次显示文字答：Private Sub Form_Load()Timer1.Interval = 500Timer1.Enabled = TrueLabel1.Caption = "程序设计很有趣"End SubPrivate Sub Timer1_Timer()Static n As Integer, s As Strings = Label1.CaptionIf n < Len(s) Then n = n + 1 Else n = 1Text1.Text = Left(s, n)Text1.SelStart ...

vb6.0 分别提取字符串中的中文和英文答：一个textbox两个listbox一个button Private Sub Command1_Click()List1.Clear List2.Clear Dim i As Integer Dim s As String 'vb使用unicode ，一个字符英文和中文都用两个字节表示，低位字节在前，高位字节在后 '英文和中文用高字节是否大于大于零进行区分,For i = 1 To LenB(Text1.Text)...

vb6.0读取文本框数据并排序计算代码?答：TextBox1.Text = ""i = 0 Do While Not EOF(1)Line Input #1, Zfc i = i + 1 Fhz(i) = LTrim(Zfc)TextBox1.Text = TextBox1.Text & Fhz(i) & vbCrLf Loop Close #1 Zgs = i Set Dic = CreateObject("Scripting.Dictionary")ReDim Sjb(Zgs, 5)For i = 1 To Zgs Zbb = ...

大家正在搜

python如何逐行读取文件 textbox文本框控件 c逐行读取文件 getline读取文件 shell逐行读取 linux逐行读取输入 textbox opacity bat读取文件 js读取本地文件

vb6.0如何用代码实现读取access中的数据内容并显示在...

如何用VB6.0获取一个txt文件的所有文本，并显示在tex...

VB6.0编程题目修饰文本框中的显示文本

VB6.0TextBox输入问题

跪求各位vb高手，在vb6.0中如何读取excel中的数据，...

VB6.0如何通过一个按钮将某文本框中的文本添加到内部并保存...

VB6.0的最简单的把文本框里的文字更新到数据库里，

vb6.0 中想实现 “文本框”的内容，匹配listview...