作者Cerberus1028 (凯洛)
看板Visual_Basic
标题Re: [VB6 ] 不好意思有点小问题请教大家
时间Mon May 3 19:39:21 2010
Dim f As String '档案名称
Private Sub btnClear_Click()
txtReceive.Text = Empty
End Sub
Private Sub btnExit_Click()
End
End Sub
Private Sub btnReceive_Click()
txtReceive = txtReceive & MSComm1.Input
End Sub
Private Sub btnSave_Click()
CommonDialog1.Filter = "TextFile(*.txt)|*.txt"
CommonDialog1.ShowSave '开启对话视窗
f = CommonDialog1.FileName '取得档名
txtFileName.Text = f
n = FreeFile() '档案编号
Open f For Append As #n '开启循序文字档案
s = txtReceive.Text 'RS232接收的内容
Print #n, s '添入内容
Close #n
MsgBox "存档成功!", vbInformation, "资料存档"
Call ShowData
End Sub
Private Sub btnSend_Click()
MSComm1.Output = txtSend.Text
End Sub
Private Sub Form_Load()
Call SetRS232 '设定RS232
End Sub
Private Sub SetRS232()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
End Sub
请问要怎麽改成ACCESS的格式吗
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.240.65.33