推 quanyong:可是DLL專案我沒看到表單..只看到輸入程式碼的頁面 04/25 20:07
→ quanyong:我要怎麼加入MSCOMM控制項到表單 04/25 20:08
推 fumizuki:那用 CreateObject那行試試看吧 04/25 20:27
推 quanyong:程式一開始加上 CreateObject那一行的測試結果是 05/02 15:01
→ quanyong:編輯錯誤 必須是識別項 05/02 15:02
要加入啊，不然 vb怎麼知道 MSComm1 是什麼東西
不過，MSComm的類型是控制項，是要掛在表單上的，
不知道 ActiveX DLL 可不可以這樣子用@@
如果設定加入MSComm，測試不行的話，程式開始加上這一行：
Set MSComm1 = CreateObject("MSCommLib.MSComm")
VB6範例：
Sub Open()
'如果加入使用元件不行再試試看下面這一行
'Set MSComm1 = CreateObject("MSCommLib.MSComm")
'其他必要的程式碼自己再加上去
If Not (MSComm1.PortOpen) Then
MSComm1.PortOpen = True '開啟串列連接埠
End If
End Sub
Sub Close()
If MSComm1.PortOpen Then
MSComm1.PortOpen = False '關閉串列連接埠
End If
End Sub
Function GetData()
GetData = MSComm1.Input
End Function
網頁端範例：
Set myobj = Server.CreateObject("MyProject.MyClass") '建立物件
myobj.Open() '開啟連接埠
Response.Write(myobj.GetData()) '取得資料
myobj.Close() '關閉連接埠
Set myobj = Nothing '釋放物件
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 60.248.175.60