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

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 SubPrivate 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 IfEnd Sub

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