嵌套OCX的问题，VB6

[ccton]

OCX套了个自己做的OCX，结果呢，调用这个嵌套运行正常，但是退出程序时，警告：内存不能为written，这让我很困惑。

于是反复检查，没有发现什么我知道的问题。

于是，极简化之，做一个insideOcx, 一个outSideOcx调用之，然后在HTA里面调用outsideOcx

insideOcx里面放一个 Winsock控件，一个timer控件，代码如下：

Public ServerIP As String
Public ServerPort As Integer

Private Sub UserControl_Initialize()
    '
End Sub

Public Sub ConnectServer()
    Winsock1.RemoteHost = ServerIP
    Winsock1.RemotePort = ServerPort
    Winsock1.Connect    
End Sub

outsideOcx就是调用之，代码如下：

Public Property Let ServerIP(ByVal sIP As String)
    NestInside1.ServerIP = sIP
End Property

Public Property Let ServerPort(ByVal iPort As Integer)
    NestInside1.ServerPort = iPort
End Property


Public Sub Con()
    NestInside1.ConnectServer
End Sub

HTA嘛，就是html后缀改成hta，object写outsideOcx的classid, 不需要写什么代码。

打开HTA，关闭之，就会出现内存不能written警告。

[ccton]

不需要运行ocx里面的代码，啥都不需要，只要打开HTA加载了outsideOcx，关闭就肯定报错。 但是不嵌套，只加载insideOcx的话，关闭不会报错。 不管加载insideOcx还是outsideOcx，用JS去执行ocx的代码是没有问题的，就是关闭hta报错。

[ZHRXJR]

自己做的*.OCX与其他OCX的使用方法是一样的，你仅仅对你的OCX进行注册就可以了。