·真是见鬼了！调试状态下正常，编译之后发现新修改的代码未生效！

[gase]

我使用vb6英文版，我感觉好像和我修改了我封装的控件的接口（事件）有关。

快帮帮我吧。我都快被气死了……

[gase]

这些办法都试过了。
现在还没解决，但是有点头绪了。
似乎和版本兼容性有关。就是那个不兼容、工程兼容和二进制兼容。

大家再帮我想想吧。

[islkeng]

先把工程改为不兼容，编译，再改为二进制兼容，编译，应该没有问题！！

[gase]

不行啊，工程名，类名也都改过了。还是不行。

[clear_zero]

你放几个msgbox进取

不兼容生成，然后考到相应路径下，注册，然后建议一个新工程，添加你刚刚生成的类，看看

[belldandy11]

UP

[chenhui530]

把代码贴上来看看
或者你编译成P代码试下

[云路]

在别的机子上试试.

[迈克揉索芙特]

输出目标的路径不是原来的了，检查一下。

[zq972]

保持用ctrl+s存盘的好习惯

[yachong]

把以前编译的所有东西全部删除，重新编译看看

[zq972]

想起来了，看看是否有控件过期了

[chenhui530]

把代码贴出来
光说没用的

[gase]

现在不需要和原来控件保持兼容，只需要控件事件能正常工作就行了。

DLL工程中：自定义控件中的相关代码：
事件定义代码：
现在定义为：（为避免兼容性问题，我增加了一个事件，实际上一个就够了）
Public Event RunAct(ByRef Cancel As Boolean)
Public Event HYAct(ByRef Cancel As Boolean)
原来定义为：
Public Event RunAct(ByRef Cancel As Boolean)

引发事件的相关代码：
Private Sub txtInput_DblClick()
If TableName <> "" And grd.TextMatrix(9, Col) <> "" Then
Dim strCode As String, strName As String, strDate As String, strDate2 As String, Record As ListItem
Select Case UCase(Trim(grd.TextMatrix(9, Col)))
Case "DATE"
If GetDate(strDate) Then txtInput.Text = strDate
Case Else
Dim Cancel As Boolean
'MsgBox "txtInput_DblClick Before RaiseEvent RunAct(Cancel)"
RaiseEvent HYAct(Cancel)
'MsgBox "txtInput_DblClick After RaiseEvent RunAct(Cancel)"
'DoEvents
If Not Cancel Then
'一些默认处理代码
End If
End Select
End If
End Sub

Exe工程中某窗体：引用控件的事件代码：
Private Sub grd_HYAct(Index As Integer, Cancel As Boolean)
MsgBox "grd_RunAct" & Index
End Sub

我把代码贴出来了，请各位高手帮忙看看，万分感激！

[gase]

也试过了。
我放几个msgbox到控件里，产生事件的前后，还有事件处理过程里面，结果调试状态下正常，依次出现，功能好用。编译之后，只出现事件发生前的msgbox，然后便非法操作了。

谢谢大家的提醒，等解决了问题我再结分。继续等待最佳答案。