tfod2000 发表于 2004-11-19 14:50:00

[VBA]飞狐老师请进

雪山飞狐老师，我看了半天帮助，一点都没有头绪，你能否给点个例子。就把vba的这个事件用vb做一个例子。


Private Sub AcadDocument_ObjectModified(ByVal Object As Object)


End Sub


在这里先谢过了。

雪山飞狐_lzh 发表于 2004-11-19 14:55:00

Private WithEvents oDoc As AcadDocument


Private Sub oDoc_ObjectModified(ByVal Object As Object)


End Sub<BR>

tfod2000 发表于 2004-11-19 15:10:00

这些代码放到程序中去提示错误 您再看看吧。

tfod2000 发表于 2004-11-19 15:11:00

我的图是

雪山飞狐_lzh 发表于 2004-11-19 15:15:00

在类模块或窗体模块里面做事件

tfod2000 发表于 2004-11-19 15:30:00

这样做，是可以了，但是我在程序里加了如下的代码


Private Sub oDoc_ObjectModified(ByVal Object As Object)


        MsgBox "改变"<BR>End Sub


看不到“改变“这个对话框的出现。

雪山飞狐_lzh 发表于 2004-11-19 15:32:00

你要在Load事件或其他代码里使oDoc实例化！

tfod2000 发表于 2004-11-19 18:29:00

谢谢老师。
页: [1]
查看完整版本: [VBA]飞狐老师请进