mirror of
https://github.com/jeremytammik/RevitSdkSamples.git
synced 2026-08-19 19:53:49 +00:00
81 lines
2.8 KiB
VB.net
81 lines
2.8 KiB
VB.net
'------------------------------------------------------------------------------
|
|
' <auto-generated>
|
|
' This code was generated by a tool.
|
|
' Runtime Version:2.0.50727.3603
|
|
'
|
|
' Changes to this file may cause incorrect behavior and will be lost if
|
|
' the code is regenerated.
|
|
' </auto-generated>
|
|
'------------------------------------------------------------------------------
|
|
|
|
Option Strict Off
|
|
Option Explicit On
|
|
|
|
|
|
|
|
'''
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Applications.ProgrammingModel.dll", "9.0.0.0"), _
|
|
Global.System.CLSCompliantAttribute(false)> _
|
|
Partial Public NotInheritable Class ThisApplication
|
|
Inherits Autodesk.Revit.UI.Macros.ApplicationEntryPoint
|
|
|
|
Public Event Startup As System.EventHandler
|
|
|
|
Public Event Shutdown As System.EventHandler
|
|
|
|
'''
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)> _
|
|
Private Sub OnStartup()
|
|
Globals.ThisApplication = Me
|
|
End Sub
|
|
|
|
'''
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)> _
|
|
Protected Overrides Sub FinishInitialization()
|
|
MyBase.FinishInitialization
|
|
Me.OnStartup
|
|
If (Not (Me.StartupEvent) Is Nothing) Then
|
|
RaiseEvent Startup(Me, System.EventArgs.Empty)
|
|
End If
|
|
End Sub
|
|
|
|
'''
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)> _
|
|
Protected Overrides Sub OnShutdown()
|
|
If (Not (Me.ShutdownEvent) Is Nothing) Then
|
|
RaiseEvent Shutdown(Me, System.EventArgs.Empty)
|
|
End If
|
|
MyBase.OnShutdown
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)> _
|
|
Protected Overrides ReadOnly Property PrimaryCookie() As String
|
|
Get
|
|
Return "ThisApplication"
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''
|
|
Partial Public NotInheritable Class Globals
|
|
|
|
Private Shared _ThisApplication As ThisApplication
|
|
|
|
Friend Shared Property ThisApplication() As ThisApplication
|
|
Get
|
|
Return _ThisApplication
|
|
End Get
|
|
Set
|
|
If (_ThisApplication Is Nothing) Then
|
|
_ThisApplication = value
|
|
Else
|
|
Throw New System.NotSupportedException
|
|
End If
|
|
End Set
|
|
End Property
|
|
End Class
|