谁可以告诉我~

Kangaroo2003 2003-09-14 09:34:35
谁能告诉我~
Private Sub cmd1_Click()
no = Text1.Text
na = Text2.Text
Write #2, no, na
Close #2
End Sub
Private Sub Form_Load()
Open "c:\a.txt" For Output As #2
End Sub
出什么毛病了~
...全文
74 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
goodname008 2003-09-14
  • 打赏
  • 举报
回复
' 换行得加vbcrlf

Option Explicit

Private Sub cmd1_Click()
Dim no As String, na As String
no = Text1.Text
na = Text2.Text
Open "C:\a.txt" For Output As #2
Print #2, no & vbCrLf & na
Close #2
End Sub
lxqlogo0 2003-09-14
  • 打赏
  • 举报
回复
直接在command1_Click里写
Private Sub cmd1_Click()
no = Text1.Text
na = Text2.Text
Open "C:\a.txt" For Output As #1
Print #1, no & na
Close #1
End Sub
capricciososoft 2003-09-14
  • 打赏
  • 举报
回复
去掉Form的Load事件中的代码,然后这样写:
Private Sub cmd1_Click()
no = Text1.Text
na = Text2.Text
Open "C:\a.txt" For Output As #1
Print #1, no+na
Close #1
End Sub

1,485

社区成员

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

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