会的进来帮帮忙,偶是新手

Question

Private Sub Command2_Click()
  Open App.Path & "\out050.txt" For Output As #1'打开文件
  Print #1, Text1.Text'把控件里的文本保存到文件
  Close #1'关闭文件
End SubPrivate Sub Command1_Click()
  Open App.Path & "\in050.txt" For Input As #1'打开文件
  Text1.FontSize = 14'设置控件内字体大小
  Text1.FontName = "宋体"'设置控件内这体
  Do While Not EOF(1)'打开文件，并把所有的文本读出至字符串whole
        Line Input #1, aspect$
        whole$ = whole$ & aspect$ + Chr$(13) + Chr$(10)
   Loop
   Text1.Text = whole$'显示文件内容至控件
   Close #1'关闭文件
End Sub