點(diǎn)擊菜單:項(xiàng)目=》添加引用 彈出窗口后選擇“COM”項(xiàng),然后找到你要加載的控件。
創(chuàng)新互聯(lián)是一家專業(yè)從事網(wǎng)站建設(shè)、網(wǎng)絡(luò)營銷、微信平臺(tái)小程序開發(fā)、網(wǎng)站運(yùn)營為一體的建站企業(yè);在網(wǎng)站建設(shè)告別千篇一律,告別似曾相識(shí),這一次我們重新定義網(wǎng)站建設(shè),讓您的網(wǎng)站別具一格。響應(yīng)式網(wǎng)站,實(shí)現(xiàn)全網(wǎng)營銷!一站適應(yīng)多終端,一樣的建站,不一樣的體驗(yàn)!
記得先調(diào)用CMD使用 regsvr32 注冊你準(zhǔn)備加載的控件哈。
可以將Form1里的串口公開,然后在Form2里添加對(duì)DataReceived事件的處理
Form1.Designer.cs中將
private System.IO.Ports.SerialPort port;改為
publice System.IO.Ports.SerialPort port;
然后在Form2里加上
Form1.port.DataReceived += new System.IO.Ports.SerialDataReceivedEventHandler(port_DataReceived);
最后在
void port_DataReceived(object sender, System.IO.Ports.SerialDataReceivedEventArgs e)
{
在這里進(jìn)行處理就可以了;
}
這個(gè)是C#的,VB的你自己轉(zhuǎn)一下
Private WithEvents NewTextBox As TextBox
'通過使用WithEvents關(guān)鍵字聲明一個(gè)對(duì)象變量為新的命令按鈕
Private Sub Command1_Click()
If NewTextBox Is Nothing Then
Set NewTextBox = Controls.Add("VB.TextBox", "cmdNew", Form1)
NewTextBox.Move 200, 200
NewTextBox.Width = Form1.Width - 450
NewTextBox.Height = Form1.Height - 1400
NewTextBox.Visible = True
End If
End Sub
Private Sub Command2_Click()
If NewTextBox Is Nothing Then
Exit Sub
Else
Controls.Remove NewTextBox
Set NewTextBox = Nothing
End If
End Sub
.net中不用mscomm 而改用 searport
AxMSComm1.Input 只能一次,會(huì)把輸入緩沖區(qū)的內(nèi)容全都讀出來并清空
如果沒有產(chǎn)生Oncomm事件,你可以把輸入經(jīng)部區(qū)的大小改一下改成1就行了
工具箱右鍵單擊——選擇項(xiàng)……——選擇.net組件或com組件——點(diǎn)擊“瀏覽”選擇控件dll文件,然后工具箱中就會(huì)出現(xiàn)新加的控件
直接發(fā)數(shù)字1。
一般可以直接發(fā)10進(jìn)制的數(shù)字,當(dāng)然要轉(zhuǎn)換,比如16進(jìn)制的21,你可以直接發(fā)33