标题:求一个简单的例子!
只看楼主
yanligangylg
Rank: 1
等 级:新手上路
帖 子:84
专家分:0
注 册:2007-10-28
 问题点数:0 回复次数:8 
求一个简单的例子!
我想知道怎么再VB中单击一个按钮时吧TEXT中的文本内容显示再我建立的1.txt中?
谢谢,只想学习
搜索更多相关主题的帖子: 例子 单击 TEXT 文本 按钮 
2007-12-02 23:19
XieLi
Rank: 1
等 级:新手上路
威 望:1
帖 子:762
专家分:0
注 册:2007-7-24
得分:0 
filename = 路径
        Open filename For Output As #1
        Print #1, Text1.Text
        Close #1

拥有蓝天的白云,拥有你的我.
2007-12-03 08:32
yanligangylg
Rank: 1
等 级:新手上路
帖 子:84
专家分:0
注 册:2007-10-28
得分:0 
非常感谢这位朋友

就是死也要拉着VB去死
2007-12-03 13:46
yanligangylg
Rank: 1
等 级:新手上路
帖 子:84
专家分:0
注 册:2007-10-28
得分:0 
回复 2# 的帖子
那当我单击一个写入按钮(按钮附带2楼代码)N此的时候 可以再每次写入的记录换行写入同一个文件呢?

就是死也要拉着VB去死
2007-12-03 17:03
yanligangylg
Rank: 1
等 级:新手上路
帖 子:84
专家分:0
注 册:2007-10-28
得分:0 
顶上来!

就是死也要拉着VB去死
2007-12-03 21:59
hnzz_wgf
Rank: 1
等 级:新手上路
帖 子:81
专家分:0
注 册:2007-11-21
得分:0 
FileName = 路径
   Open FileName For Append As #1
   Write #1, Text1
   Close #1
2007-12-04 10:05
XieLi
Rank: 1
等 级:新手上路
威 望:1
帖 子:762
专家分:0
注 册:2007-7-24
得分:0 
同意楼上

拥有蓝天的白云,拥有你的我.
2007-12-04 10:19
yanligangylg
Rank: 1
等 级:新手上路
帖 子:84
专家分:0
注 册:2007-10-28
得分:0 
回复2楼:问什么我再自己的机器上运行的时候可以,但是我再别的机器上运行的时候提示说文本已经打开...
“Open filename For Output As #1”为提示错误的地方
 我吧filename改为SS就不错了为什么?

就是死也要拉着VB去死
2007-12-04 12:37
心中有剑
Rank: 2
等 级:新手上路
威 望:5
帖 子:611
专家分:0
注 册:2007-5-18
得分:0 
别一直 #1了!  最好用 FreeFile  

Dim MyIndex, FileNumber
For MyIndex = 1 To 5   ' 循环五次。
   FileNumber = FreeFile   ' 取得未使用的文件号。
   Open "TEST" & MyIndex For Output As #FileNumber   ' 创建文件名。
   Write #FileNumber, "This is a sample."   ' 输出文本至文件中。
   Close #FileNumber   ' 关闭文件。
Next MyIndex

2007-12-04 13:18



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-189947-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024205 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved