用滚动条控制一个文本框中字体的大小，结束程序运行再次运行时，文本框中内容及大小都是上次运行时的设置。

Question

如题所述

Answer 1

你保存了吗？

Answer 2

1 很简单追问

怎么做啊，请给出代码

追答

unload......
open "c:\1.txt" for input as #1
print #1,text1.fontsize
print #1,text1.text
close
end sub

load....
dim s as string
open "c:\1.txt" for output as #1
line input #1,s
text1.fontsize=cint(s)
line input #1,s
text1.text=s
close
end sub