[VBA]飞狐老师请进

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

雪山飞狐老师，我看了半天帮助，一点都没有头绪，你能否给点个例子。就把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

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

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

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

我的图是

1hohwzuo1sy.jpg

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

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

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

这样做，是可以了，但是我在程序里加了如下的代码
Private Sub oDoc_ObjectModified(ByVal Object As Object)
MsgBox "改变"
End Sub
看不到“改变“这个对话框的出现。

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

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

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

谢谢老师。