请教一下怎么让VB读取文本文档内容并显示在TextBox控件上

程序所在目录有一个名叫"1.txt"的文本文档,内容格式为:
1、问题1,答案
2、问题2,答案
……以此类推
现在Form1上有Text1、Text2、Command1、Command2四个对象,怎样实现按下Command1,Text1显示文本文档中第一行的"1、问题1",再按一下显示下一行的相同格式的内容,按下Command2,Text2显示第一行的"答案",再按一下显示下一行的相同格式内容?求工程文件或者源代码!谢谢!

给个代码参考,是将文本全部读入的:

Private Sub Command1_Click()
    Dim strSj As String
    Dim s As String
    Open "c:\10.txt" For Input As #1
        Do Until EOF(1)
            Line Input #1, s
            strSj = strSj & s & vbCrLf
        Loop
    Close #1
    Text1 = strSj
    '设置Text的属性MultiLine为True
End Sub
温馨提示:内容为网友见解,仅供参考
第1个回答  2015-06-14
有偿帮你做需要吗

vb 怎样打开文件并把文件内容显示在文本框
1、添加必要的组件(文本框、按钮)2、设置属性:3、编写按钮的响应代码:代码如下:Private Sub Command1_Click() Dim a$ Text1.Text = "" Open "d:\\test.txt" For Input As #1 Do Input #1, a Text1.Text = Text1.Text & a & vbCrLf Loop Until EOF(1) C...

VB如何把文件内容显示在文本框中?
如果将 MultiLine 属性设置为 True,则可以在 TextBox 内用 Alignment 属性设置文本的对齐。如果 MultiLine 属性是 False,则 Alignment 属性不起作用。代码实例:Private Sub Command1_Click()Dim strj() As String ' 设置“CancelError”为 True CommonDialog1.CancelError = True On Error GoTo ErrH...

如何把txt文档中数据导入到 VB 的textbox中
首先你需要把文本框text1的Multiline属性设置为true,这样就可以换行了,点击按钮出现对话框,然后选择文件打开,读入它里边的内容Private Sub Command1_Click()With CommonDialog1 .DialogTitle = "打开".FileName = "" '打开当前工作路径 .MaxFileSize = 32767 '缓存区 .Filter = "文本文件 ...

vba (excel)怎么打开一个txt文件显示在textbox中,或者将textbox中内 ...
新建一个excel工作薄,打开VBA编辑器,插入一个用户窗体,在窗体中放一个textbox,两个commandbutton,然后打开窗体代码窗口粘贴以下代码 Private Sub CommandButton1_Click()'读入一个ANSI编码的文本文件,并显示在textbox中 With Application.FileDialog(msoFileDialogOpen)If .Show Then ipath = .SelectedItems...

vb6.0怎样将保存的txt文件给数组赋值,并显示在text控件里?代码怎么写...
回答:留个Q我传你个代码

VB打开4M的TXT文本 在TEXT控件显示出来
申请一个动态的字符串数组,在循环读取数据的时候,将每一行的数据存进数组中,最后再用join函数连接。文本中的内容本身就比较大,在循环中就是用 str =str & strline & vbcrlf 也会读的很慢,更何况你是RichTextBox1.Text = RichTextBox1.Text & strLine & Chr(10) & Chr(13)改动如下:data...

...复制关键字所在的整行。然后显示到textbox。
三个控件 text输入查询的关键字;list放置查询结果;command查询按钮 Dim str As String '定义 读取行变量 If Text1.Text = "" Then Exit Sub List1.Clear '清空文本框 Open "d:\\12.txt" For Input As #1 ' 打开文件。i = 1 Do While Not EOF(1) '逐行读取,在不超出已有行的条件下 Li...

vb读取txt文件并把内容显示在textbox控件中
Sub Command1_Click()Dim s As String Dim a As String Open "c:\\abc.txt" For Input As #1 If Not EOF(1) Then Input #1, s End If While Not EOF(1)s = s & vbCrLf Input #1, a s = s & a Wend Close #1 Text1.Text = s End Sub 是要把文本框内容存到文件还是 ...

如何在vb窗体上把word文件上内容显示在text上,并将在text上的资料编辑修...
引用Word、然后通过Word的Application在后台读取Range.text 然后显示在Text控件中。Text控件中的文本在Exe关闭前通过Word的Application对象写入Word文档。

如何用VB6.0获取一个txt文件的所有文本,并显示在text1,文本框里
先添加commondialog控件到窗体,改名称CDL1,加按钮Cmd1,文本框TexT1..Private Sub Cmd1_Click()Dim yy$, FF&(10)Text1 = ""CDL1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"CDL1.FileName = ""CDL1.ShowOpen On Error Resume Next If CDL1.FileName = "" Then Exit...

相似回答