私人的
潛水艇
command1_click()
這是為了將Text1的內容保存到自己的目錄中。
打開
App。小路
& amp
" \123.txt "
為
附加
如同
#1
打印
#1,
Text1(0)。文本
打印
#1,
Text1(1)。文本
打印
#1,
Text1(2)。文本
關閉
#1
結束
潛水艇
私人的
潛水艇
Form_Load()
暗淡的
我
如同
整數
打開
App。小路
& amp
" \123.txt "
為
投入
如同
#1
做
在…期間
不
EOF(1)
線條
投入
#1,
懸浮物
Text1(i)。文本
=
懸浮物
我
=
我
+
1
環
關閉
#1
結束
潛水艇