7,788
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
szjhxu 2007-05-16
- 打赏
- 举报
Private Sub Command1_Click()
'在此添加相关串口设置的代码
a = MSComm1.Input
Open "c:\a.txt" For Output As #1
Print #1, a
Close #1
End Sub
'在此添加相关串口设置的代码
a = MSComm1.Input
Open "c:\a.txt" For Output As #1
Print #1, a
Close #1
End Sub
chenliang_kk 2007-05-16
- 打赏
- 举报
我现在也在做这方面的东西 想和你探讨一下 up！
Winters_lee 2007-05-16
- 打赏
- 举报
呵呵，那楼主快结贴吧！
kamuixiao 2007-05-16
- 打赏
- 举报
Private Sub Command1_Click()
a = Text1
Open "c:\a.txt" For Output As #1
Print #1, a
Close #1
End Sub
- -！呜~都自问自答了！
a = Text1
Open "c:\a.txt" For Output As #1
Print #1, a
Close #1
End Sub
- -！呜~都自问自答了！
