VB程式傳信號給藍芽模組問題

s8803092000

看了範例程式後自己做了一次但是紅色那裏她說有錯
請問是哪裡錯了?我用範例給的程式是可以的

Private Sub Command11_Click()
    If MSComm1.PortOpen = True Then   ' turn off opened com port
        MSComm1.PortOpen = False
    End If
        MSComm1.Settings = "9600,N,8,1" 'COM Port Setting
        MSComm1.CommPort = Combo1.Text 'Set Port Number
        MSComm1.PortOpen = True 'Open com port
        Text1.Text = "通訊埠已開啟"
End Sub
控三乙Enable.frx (62 Bytes, 下載次數: 950)

2011-1-1 20:57 上傳

點擊文件名下載附件
我打的程式

Project1.vbp (695 Bytes, 下載次數: 1014)

2011-1-1 20:58 上傳

點擊文件名下載附件
我打的程式

Project1.vbw (60 Bytes, 下載次數: 1005)

2011-1-1 20:58 上傳

點擊文件名下載附件
我打的程式

SDJ2

回復 1# s8803092000


你未加入  MSCOMM32.OCX 元件