為什么增加的回答這么久還沒顯示。
十多年的崗巴網(wǎng)站建設(shè)經(jīng)驗(yàn),針對設(shè)計(jì)、前端、開發(fā)、售后、文案、推廣等六對一服務(wù),響應(yīng)快,48小時(shí)及時(shí)工作處理。網(wǎng)絡(luò)營銷推廣的優(yōu)勢是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同,自動(dòng)調(diào)整崗巴建站的顯示方式,使網(wǎng)站能夠適用不同顯示終端,在瀏覽器中調(diào)整網(wǎng)站的寬度,無論在任何一種瀏覽器上瀏覽網(wǎng)站,都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì),從而大程度地提升瀏覽體驗(yàn)。創(chuàng)新互聯(lián)從事“崗巴網(wǎng)站設(shè)計(jì)”,“崗巴網(wǎng)站推廣”以來,每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。
我想知道你為什么要枚舉這些方法,是需要打印出來還是只是為了查看和調(diào)用?
1,如果只是為了查看和調(diào)用的話,不需要用代碼就能知道了。
打開VS,視圖-》對象瀏覽器。然后開了后,點(diǎn)瀏覽右邊的“。。?!保_了后。選COM活頁,再在里面選ThunderAgent 1.0 Type Library。再點(diǎn)添加。
添加好之后。在左邊的瀏覽窗口內(nèi)就有了,展開THUNDERAGENTLib下面有幾個(gè)類和接口,展開類就有方法了。
2,如果是需要用代碼枚舉并打印。網(wǎng)上有相關(guān)的代碼,C#寫的。我就不帖了。自己搜一下。改成vb.net相信應(yīng)該不會(huì)太難。
祝你好運(yùn)。
VB 只能做 ActiveX 控件或者 ActiveX DLL,普通的 COM 組件不行。
你只要在建立工程的時(shí)候選擇建立 ActiveX 控件或者 ActiveX DLL 就可以了,然后自己寫一個(gè)函數(shù)編譯即可。
我想了兩種思路,winform沒有findControl,只有個(gè)this.Controls.Contains("textBox1"),因此除了遍歷沒辦法了。。。
思路1:遍歷Controls,具體你自己完善下,
if(this.Controls.Count0)
{
foreach(Control c in this.Controls)
if(c.GetTepy==Tepyof(TextBox))
string str += ((TextBox)c).Text;
}
'vb.net的串口接收數(shù)據(jù)要用到委托
Delegate Sub SetTextCallback(ByVal InputString As String) '聲明一個(gè)委派類,并聲明符合函數(shù)參數(shù)有一個(gè),而其型態(tài)是字符串
Private Sub ShowString(ByVal comData As String)
txt_Re.Text = comData '將收到的數(shù)據(jù)入接收文字框中--- txt_Re.Text 是接收用的文本框
txt_Re.SelectionStart = txt_Re.Text.Length
txt_Re.ScrollToCaret()
End Sub
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived‘自動(dòng)接收事件
Dim inData As String = SerialPort1.ReadExisting
Dim d As New SetTextCallback(AddressOf ShowString)
Invoke(d, inData)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '發(fā)送指令
SerialPort1.Write("123")
End Sub
如提示,請注冊你調(diào)用的外部控件。 注冊win+R, 寫入regsvr32 "帶完整路徑的文件",回車