客户要求写一个ActiveX.dll模块,但里面要加一些控件如MSComm,
在ActiveXdll的VB工程里加了一个窗体,在Class1里的代码如下: Private Sub Class_Initialize()
Set objFrm = New Form1
Set MyCom = objFrm.MSComm1
End Sub Private Sub Class_Terminate()
Unload objFrm
Set MyCom = Nothing
Set objFrm = Nothing
End Sub Public Function OpenPort(ByVal Port as Integer ) As Boolean
With MyCom
.PortOpen = False
.CommPort = Port
.PortOpen = True
End With
End Function Public Function PortState(ByVal Port as Integer ) As Boolean
PortState = MyCom .PortOpen
End Function在VB的EXE工程中装载了DLL调用OpenPort方法后,再调用PortState方法,结果还是等于False
将Class里的代码全部复制到EXE工程里,没有任何问题,
请问各位有没有办法解决这个问题?
在ActiveXdll的VB工程里加了一个窗体,在Class1里的代码如下: Private Sub Class_Initialize()
Set objFrm = New Form1
Set MyCom = objFrm.MSComm1
End Sub Private Sub Class_Terminate()
Unload objFrm
Set MyCom = Nothing
Set objFrm = Nothing
End Sub Public Function OpenPort(ByVal Port as Integer ) As Boolean
With MyCom
.PortOpen = False
.CommPort = Port
.PortOpen = True
End With
End Function Public Function PortState(ByVal Port as Integer ) As Boolean
PortState = MyCom .PortOpen
End Function在VB的EXE工程中装载了DLL调用OpenPort方法后,再调用PortState方法,结果还是等于False
将Class里的代码全部复制到EXE工程里,没有任何问题,
请问各位有没有办法解决这个问题?
解决方案 »
- findnext的用法
- 如何增加菜单项啊.晕啊!!!!
- 谁能帮我解决???(高分奉送)
- 如何给一个变量赋空值NULL,请问那个函数可以做到?谢谢
- 如何根据datagrid选取的行从sql读取图片到image控件?求助
- 用vb修改本机的IP属性(急:高分求解)
- 如何实现象vb中的属性栏那样得到悬浮式工具栏?
- 那位兄弟用的98?请随便选一个键,导出。并把其内容贴上来
- 寒冬中跪求vb中要新创建一个当天日期的表,存储过程怎么写。
- 如何通过ASP的组件控制NT下的服务?
- sstab内部控件缩放,帮忙写个小函数
- win7 64位系统office 2010版本中Msflxgrd.ocx和MSWINSCK.oc控件加载成功但是无法使用
你是用.Net吗?VB6的话你这样实例化貌似不可。如果MyCom没有实例化,那对象空的肯定有问题了建议使用属性返回。