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中如何实现逐行读入文本文件?
VB6.0可以用一次读取文本文件全部文本内容，然后使用Split函数来实现一行一行提取文本框行内容。Split函数，返回一个下标从零开始的一维数组，它包含指定数目的子字符串。以下代码是可以提取文本文件任何一行内容的：Private Sub Command1_Click() Dim strWj As String Dim strj() As String Dim...
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 分别提取字符串中的中文和英文
一个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怎样将保存的txt文件给数组赋值,并显示在text控件里?代码怎么写...
回答：留个Q我传你个代码
vb6.0 textbox 如何让文字一个一个显示
可以用定时器Timer控件啊，设置循环时间间隔，比如300毫秒，定义一个字符串变量存储要输出的内容，然后，当开始执行定时器时候，每次用substring取字符串变量的前N位，N=1、2、3、4、5、6，N依次递增，知道N等于字符串变量长度的时候停止定时器，就好了。
VB如何对textbox的每一行进行操作,读取写入等,还有可以改变某些字的颜...
然后你可以对选中的这部分字符进行修改，删除，字体颜色等设置。如：RichTextBox.SelStart = 0 RichTextBox.SelLength = 50 RichTextBox.SelFontSize = 12 RichTextBox.SelColor = &H80000005 要精确定位到某一行需要借助API函数，你可以搜索一下相关的代码示例，很多。
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 = ...
VB6.0 怎样使多个textbox有顺序的输入
先将除text1以外的其他textbox的enable设置为false，然后再逐个对textbox的keypress事件进行处理，将相应的textbox的enable设置为true
怎么在VB中的TXTBOX在程序运行后加载文章!!
VB中的文本框,当MultiLine属性为 True时,最大也只支持32K长的文本,楼主你的有100多K,用那个是没用的(超出部分会被舍掉)建议楼主用RichTextBox来做(Microsoft Rich TextBox Control 6.0)在窗体上添加一个RichTextBox,一个Text1,两个命令按钮 '设置ScrollBars属性为2(垂直滚动条)Private Sub ...
急用,vb6.0编程中获取一个电脑里的文件的路径名,将它让在text中,在不...
新建工程，在窗体上添加一个DRIVELISTBOX，一个DIRLISTBOX，一个FILELISTBOX，一个COMM按钮，一个TEXTBOX。写入代码：Dim path As String Private Sub Drive1_Change()'当选择一个新驱动器时,将驱动器列表中选中的当前驱动器,赋给目录列表的路径 Dir1.path = Drive1.Drive End Sub Private Sub Dir...
