[讨论]VB.Net的事件处理

雪山飞狐_lzh

原理，在VBA的窗体激活事件中改变USERS系统变量，VB.Net接收该事件将文档级事件处理激活到当前文档

总觉得不太妥当，有好点的办法么？

VB.Net － Module mTlsCad代码

2. Private WithEvents pACadApp As AcadApplication = Application.AcadApplication
3. Private WithEvents pACadDoc As AcadDocument = pACadApp.ActiveDocument
4. Private Sub pACadApp_SysVarChanged(ByVal SysvarName As String, ByVal newVal As Object) Handles pACadApp.SysVarChanged
5. If SysvarName.ToUpper = "*USERS5" Then pACadDoc = pACadApp.ActiveDocument
6. End Sub
8. Private Sub pACadDoc_BeginDoubleClick(ByVal PickPoint As Object) Handles pACadDoc.BeginDoubleClick
9. Dim ss As AcadSelectionSet
10. ss = pACadDoc.PickfirstSelectionSet
11. If ss.Count = 0 Then
12. Exit Sub
13. ElseIf ss.Count = 1 Then
14. Select Case ss.Item(0).EntityName
15. Case "AcDbBlockReference"
16. If ss.Item(0).HasAttributes Then
17. pACadDoc.SendCommand("_.eattedit" & vbCr & vbCr & vbCr)
18. End If
19. Case "AcDbText", "AcDbMText"
20. pACadDoc.SendCommand("_.ddedit" & vbCr & vbCr)
21. Case Else
22. pACadDoc.SendCommand("_.properties" & vbCr)
23. End Select
24. Else
25. pACadDoc.SendCommand("_.properties" & vbCr)
26. End If
28. End Sub

Private WithEvents pACadApp As AcadApplication = Application.AcadApplication Private WithEvents pACadDoc As AcadDocument = pACadApp.ActiveDocument Private Sub pACadApp_SysVarChanged(ByVal SysvarName As String, ByVal newVal As Object) Handles pACadApp.SysVarChanged If SysvarName.ToUpper = "*USERS5" Then pACadDoc = pACadApp.ActiveDocument End Sub Private Sub pACadDoc_BeginDoubleClick(ByVal PickPoint As Object) Handles pACadDoc.BeginDoubleClick Dim ss As AcadSelectionSet ss = pACadDoc.PickfirstSelectionSet If ss.Count = 0 Then Exit Sub ElseIf ss.Count = 1 Then Select Case ss.Item(0).EntityName Case "AcDbBlockReference" If ss.Item(0).HasAttributes Then pACadDoc.SendCommand("_.eattedit" & vbCr & vbCr & vbCr) End If Case "AcDbText", "AcDbMText" pACadDoc.SendCommand("_.ddedit" & vbCr & vbCr) Case Else pACadDoc.SendCommand("_.properties" & vbCr) End Select Else pACadDoc.SendCommand("_.properties" & vbCr) End If End Sub

VBA － ThisDrawing代码

2. Private Sub AcadDocument_Activate()
3. Dim pUser As String
4. pUser = ThisDrawing.GetVariable("USERS5")
5. ThisDrawing.SetVariable "USERS5", str(Now)
6. ThisDrawing.SetVariable "USERS5", pUser
7. End Sub

Private Sub AcadDocument_Activate() Dim pUser As String pUser = ThisDrawing.GetVariable("USERS5") ThisDrawing.SetVariable "USERS5", str(Now) ThisDrawing.SetVariable "USERS5", pUser End Sub