轉信站: GIBBS!news2.ncku!ccnews.ncku!news.ccns.ncku!news.mksh.phc!news.nsysu!Sp
Origin: mobbs.stut.edu.tw

我的程式你參考看看...在textbox輸入字元後-->按鈕一---->再按按鍵二
---->接收到第二個textbox


Private Sub Command1_Click()
MSComm1.Output = Trim(Text1.Text)   '''把text1.text丟給通訊峊output
End Sub

Private Sub Command2_Click()
Dim buffer$                         '''定義buffer這是字串
buffer = Trim(MSComm1.Input)        '''把input丟給buffer
If Len(buffer) = 0 Then             '''Len是字串的字元
    Text2.Text = mpty               '''假如buffer=0然後text2.text=空白
Else
    Text2.Text = buffer             '''否則text2.text就是buffer的內容
End If

End Sub

Private Sub Command3_Click()
MSComm1.PortOpen = False            '''port關閉
End

End Sub

Private Sub Form_Load()
MSComm1.PortOpen = True             '''port開啟
End Sub
--
    ◣ ███ ███ ☆  Post by sochin                                       
  ◢█ ▉▉█ █▇█ ★  From    10.1.66.157                                  
◥█◤    ﹉  ﹍   ﹋    月光海洋BBS 《mobbs.stut.edu.tw》 163.26.220.130