如何在窗口中显示一文本文件？

Question

如果显示到textbox中，假如textbox名为text1，文本文件为c:\myfile.txttext1.text=LoadTextFile("c:\myfile.txt")Public Function LoadTextFile(sFile As String) As String
        
        Dim sContent As String, One_Line As String
        Dim iFileNum As Integer
        
        sContent = ""
        iFileNum = FreeFile
        Open sFile For Input As #iFileNum
        Do While Not EOF(iFileNum)
            Line Input #iFileNum, One_Line
            sContent = sContent & One_Line & vbCrLf
        Loop
        Close #iFileNum
        LoadTextFile = sContentEnd Function

Answer 1

private sub cmdfileopen_click()
dim linesfromfile,nextline as string
open "c:\myfile.txt" for input as #1
do until eof(1)
line input #1,nextline
linesfromfile = linesfromfile + nextline + chr(13) + chr(10)
loop
close #1
text1.text = linesfromfile
end sub