画个命令按钮 Private Sub Command1_Click() Open "(这里写盘符)" For input As #1 Do While Not EOF(1) Input #1, s text1.text=text1.text+s Loop close #1 好久没用了,没记错的话就是这样~!!!
程序大致应该是这样的,希望对你有帮助 private sub form_click() open "你的TXT文件的目录"for output as #1 print#1.text1. close#1 end sub
第2个回答 2010-03-09
Private Sub Command1_Click() dim s as string Open "这里写盘符和文件名[如: c:\1.txt]" For input As #1 Do While Not EOF(1) Input #1, s text1.text=text1.text+s Loop close #1 end sub