Richtext怎么选中文字保存

lsh6688 2010-05-19 08:57:11
Richtext怎么选中文字保存
我想选中richtext一段文字 手动的
然后点菜的保存
保存到一个指定的文件
但是我每次保存的东西文件里只有上次的 没有新保存的内容 我想让他们每次都保存到那个文件 追加到原来的文件尾部
我的代码
Private Sub mnusave_Click()
On Error Resume Next

Open App.Path & "\mysave.rtf" For Append As #1
Write #1, rtffile.SelText
Close 1

End Sub
谢谢 具体啊
...全文
100 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
lsh6688 2010-05-20
  • 打赏
  • 举报
回复
大哥那个shared 是什么作用?
lsh6688 2010-05-20
  • 打赏
  • 举报
回复
大哥 小弟太感激了 呵呵
有时间多多请教要和你
SYSSZ 2010-05-19
  • 打赏
  • 举报
回复
Private Sub mnusave_Click()


Open App.Path & "\mysave.rtf" For Append Shared As #1
Write #1, rtffile.SelText
Close #1

End Sub

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧