| 域名空间 下载中心 社区论坛 信息公告 MY小屋 |
![]() |
联系我们 设为首页 加入收藏 |
|
首页 | 新闻资讯 | 编程开发 | 网页设计 | 图形图象 | 网络媒体 | 网站模板 | 数 据 库 | 投稿 论坛 | 操作系统 | 系统优化 | 网络安全 | 黑客技术 | 硬件学堂 | 硬件报价 | 服 务 器 | 地图 专题 | 应用软件 | 聊天通讯 | Q Q 专栏 | 建站经验 | 在线工具 | 站长Club | 注 册 表 | 旧版 社会 | 游戏娱乐 | 设计欣赏 | 疑难解答 | 社区论坛 | 韩国素材 | 素材图库 | 广告服务 | 服务 |
| 新版上线![旧版] | |||||
注:打开慢时请稍等
保存列表框内容为文本文件http://www.iyit.net 日期:2006-5-22 17:17:16 来源:编程爱好者 点击: |
有时我们需要保存列表框的内容,如制作播放器的播放文件列表时就须这么做。解决思路可以是这样:利用文本框保存列表框的所有项目。这里以一个实例说明实现方法(要尝试本例,请按源吗添加若干控件,其中TextBox控件的Multiline属性设为True、ScrollBars属性设为2): Private Sub Form_Load() List1.Clear '清空列表框 Text1 = "" '清空文本框 End Sub '获取屏幕字体名称并添加到列表框(作用是让列表框有内容) Private Sub cmdFindFonts_Click() Dim fnt As Integer For fnt = 0 To Screen.FontCount - 1 List1.AddItem Screen.Fonts(fnt) Next fnt End Sub '将列表框的所有Item添加到文本框 Private Sub List1_Click() For Index = 0 To List1.ListCount - 1 Text1.Text = Text1.Text & List1.List(Index) & vbCrLf 'vbrLf的作用是换行 Next Index End Sub '保存 Private Sub cmdSave_Click CommonDialog1.Filter = "文本文档(*.txt)|*.txt|所有文件(*.*)|*.*" CommonDialog1.FilterIndex = 1 CommonDialog1.ShowSave F = CommonDialog1.FileName Open F For Output As #1 Print #1, Text1.Text Close #1 End Sub 这样,列表框的全部项目就可以保存下来了。 如果仅保存列表框的部分内容,可在List1的Click事件加入以下代码: Dim i As Integer i = i + List1.ListIndex Text1.Text = Text1.Text + List1.List(Index + i) + vbCrLf 本例在PWin98、VB6.0环境下调试通过。 编辑:黑鹰 [发送给好友] [打印本页] [关闭窗口] [返回顶部] 上一篇:Visual Basic 概述 下一篇:Visual Basic 5.0中实现视频画中画 转载请注明来源:www.iyit.net 特别声明: 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载,但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站,我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员,我们尽快予以更正。 |
| 相关文章 | ||||
| 友情链接 | ||||||
| 设置首 页 - 版权声明 - 广告服务 - 关于我们 - 联系我们 - 友情连接 |
| |||||||