作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: ListBox里面显示的资料有办法直接显示在网页上吗
时间Wed Apr 25 13:00:24 2007
要加入啊，不然 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
1F：推 quanyong:可是DLL专案我没看到表单..只看到输入程式码的页面 04/25 20:07
2F：→ quanyong:我要怎麽加入MSCOMM控制项到表单 04/25 20:08
3F：推 fumizuki:那用 CreateObject那行试试看吧 04/25 20:27
4F：推 quanyong:程式一开始加上 CreateObject那一行的测试结果是 05/02 15:01
5F：→ quanyong:编辑错误 必须是识别项 05/02 15:02