vb,如何用text控件显示txt文件,每单击一次按钮,在text控件中显示txt...

发布网友发布时间：2024-10-20 01:39

共2个回答

热心网友时间：2024-11-10 08:35

这个不难

正常的打开文件，然后单击事件中用line Input 读取文件一行，每读取一行文件指针就自动移到下一行。当然要用Eof 函数来判断文件已是否读到尾了。

比如在load 事件中打开文件，或在另一个按钮事件中打开文件

Dim fileNumber As Integer
Const Filename = "c:\123.txt" '文件名及地址自己改一下

Private Sub form_load()
    fileNumber = FreeFile
    Open Filename For Input As #fileNumber
End Sub
Private Sub Command1_Click()
If EOF(fileNumber) Then
    MsgBox "已到文件尾"
Else
    Dim strLine As String
    Line Input #fileNumber, strLine
    Text1.Text = strLine
End If
End Sub

热心网友时间：2024-11-10 08:37

两种方法：
方法一：
打开文件，单击一下，读一行，显示一行。
方法二：
打开文件，一次读入到数组。单击一下，显示一行。