module1.bas

来自「上传的包含两个文件」· BAS 代码 · 共 14 行

Attribute VB_Name = "Module1"
Public filename As String
Public Sub openfile(ByVal f As String)
Open f For Input As #1
Do While Not EOF(1)
  Line Input #1, textline
  textout = textout + textline + Chr(13) + Chr(10)
  Loop
  Close #1
  Form2.Text1.Text = textout

End Sub