Question

在VB中，如何在按下按钮后，读取INI或者TXT文件中的内容并显示在文本框中？

Answer 1

Private Sub Command1_Click()
Dim n As Object
Set n = CreateObject("Scripting.FileSystemObject").OpenTextFile(CommonDialog1.FileName, 1)
Text1.Text = n.ReadAll
n.Close
End Sub

Answer 2

Private Sub Command1_Click()
Open "d:\1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, a
b = b & a
Loop
Close
Text1 = b
End Sub