希米日志

主页
目录
闲谈 代码 笔记 软件 分享
归档 留言 友人 关于

【VB】导出文本
61 0

程序代码

  1. Private Sub Command1_Click() '以(覆盖)模式导出text
  2.     Open App.Path & "\123.txt" For Output As #1
  3.     Print #1, Text1.Text
  4.     Close #1
  5. End Sub
  6. Private Sub Command2_Click()'以(追加)模式导出text
  7.     Open App.Path & "\123.txt" For Append As #1
  8.     Print #1, Text1.Text
  9.     Close #1
  10. End Sub
  11. Private Sub Command3_Click()'导出list
  12.     Dim a As Integer
  13.     Dim b As String
  14.     For a = 0 To List1.ListCount - 1
  15.         b = b & List1.List(a) & vbCrLf
  16.     Next a
  17.     '-------------------------------------------整理文本
  18.     Open App.Path & "\123.txt" For Output As #1
  19.     Print #1, b
  20.     Close #1
  21.     '-------------------------------------------正式导出
  22. End Sub

   2016-11-08 18:19:00
二维码

 评论: 0

正在加载验证码......

请先完成验证

目 录

主页
评论