Private Sub Command1_Click()
Open "c:\ha.txt" For Output As #1
Print #1, Text1
close #1
end sub
给你讲一下 这个是最简单的方法 对于新手来说 变量 也就是1楼说得什么dim
是一个很复杂的问题 但是vb有个好处不声明变量 会自动给他一个“变体型变量”
废话了 ^_^ 这些我说的你动不动无所谓 初期 不要管变量
再说了 这个小程序 高手都不用变量的 但是用了变量自然有很多好处
比如后期更新程序比较简单 ………………等等
正题:open什么什么不是像英语中的打开什么什么一样简单 他是你看不见的 也就是说 可以说是后台的吧》》》 open后面根“”是文件路径
for………… 后面有3种 output input还有一种不重要 不用管output是说彻底把原来文本里面有的文字删除了 然后换成你text1的 input是把text1的写在原文字的后面 。 as必须的语句格式后面根你的路 也就是说 有一片沙漠 你要往外面运送东西
有99条路 #1 #2…… 看你用哪条了
现在 说 的一行语句总体 是打开“c盘的ha”用output的方式 在的1条路
懂???????
print#1 在第一条路里面写上text1的文字 这个简单
close#1 关闭#1 必须的语句
懂 不懂的问我 悄悄话 ………………………………
画面添加一个button1和一个text1
private sub command1_click()
Dim i As Integer
Open app.path "cc.txt" For Input As #1
Input text1.text
Close #1
end sub
'保存
open "file.txt" for output as #1
print 1,text1.text;
close #1
'Read
open "file.txt" for input as #2
get 2,text1.text;
close #2