获取执行代码所处环境的信息

Private Class appInformation
_
Public ReadOnly Property Name() As String
Get
Return System.AppDomain.CurrentDomain.SetupInformation.ApplicationName
End Get
End Property

_
Public ReadOnly Property Path() As String
Get
Return System.AppDomain.CurrentDomain.SetupInformation.ApplicationBase
End Get
End Property

_
Public ReadOnly Property Config() As String
Get
Return System.AppDomain.CurrentDomain.SetupInformation.ConfigurationFile
End Get
End Property

_
Public ReadOnly Property entryPoint() As String
Get
Return System.Reflection.Assembly.GetEntryAssembly.EntryPoint.ToString
End Get
End Property

Public Shared Shadows Function ToString() As String
Dim mInfo As New appInformation
Dim b As New System.Text.StringBuilder
b.Append(New String("*"c, 80))
b.Append(System.Environment.NewLine)
b.AppendFormat("** 程序名称 :{0}", mInfo.Name)
b.Append(System.Environment.NewLine)
b.AppendFormat("** 程序目录 :{0}", mInfo.Path)
b.Append(System.Environment.NewLine)
b.AppendFormat("** 配置文件 :{0}", mInfo.Config)
b.Append(System.Environment.NewLine)
b.AppendFormat("** 程序入口 :{0}", mInfo.entryPoint)
b.Append(System.Environment.NewLine)
b.Append(New String("*"c, 80))
Return b.ToString
End Function
End Class
End Class
End Namespace

应用



Dim MethodTest As New LzmTW.uReflection.CurrentMethodInfo
Public Sub Load(ByVal mainform As System.Windows.Forms.Form) Implements LzmTW.AddIns.Base.IPackage.Load
MethodTest.Input(System.Reflection.MethodBase.GetCurrentMethod)
MethodTest.CheckRuntime = True
MethodTest.Start()

gMainForm = CType(mainform, LzmTW.ApplicationBase.MainForm)
Initialize()

MethodTest.Stop()
Console.WriteLine(MethodTest.ToString)
Console.WriteLine()
End Sub

Private Sub OnUILoad(ByVal sender As Object, ByVal e As EventArgs)
MethodTest.Input(New System.Diagnostics.StackFrame)
MethodTest.Start()

gMenuFactory.GetMenuItem(MENU_UNLOAD).Enabled = True
gMenuFactory.GetMenuItem(MENU_LOAD).Enabled = False
gUI.Initialize()

MethodTest.Stop()
Console.WriteLine(MethodTest.ToString)
Console.WriteLine()
End Sub

输出结果:


********************************************************************************
** 程序名称 :MyComputer.vshost.exe
** 程序目录 :G:\Documents and Settings\LzmTW\My Documents\Visual Studio 2005\Projects\MyComputer\MyComputer\bin\Debug\
** 配置文件 :G:\Documents and Settings\LzmTW\My Documents\Visual Studio 2005\Projects\MyComputer\MyComputer\bin\Debug\MyComputer.vshost.exe.config
** 程序入口 :Void Main(System.String[])
********************************************************************************
** 程序集名称 :ComputerAddIns
** 程序集版本 :1.0.0.0
** 类名 :ComputerAddIns.wmiQueryApplication
** 方法名 :Void Load(System.Windows.Forms.Form)

** 测试用时 :00:00:00.0488375
** 测试时间 :2006-8-17 0:03:08
********************************************************************************

********************************************************************************
** 程序名称 :MyComputer.vshost.exe
** 程序目录 :G:\Documents and Settings\LzmTW\My Documents\Visual Studio 2005\Projects\MyComputer\MyComputer\bin\Debug\
** 配置文件 :G:\Documents and Settings\LzmTW\My Documents\Visual Studio 2005\Projects\MyComputer\MyComputer\bin\Debug\MyComputer.vshost.exe.config
** 程序入口 :Void Main(System.String[])
********************************************************************************
** 程序集名称 :ComputerAddIns
** 程序集版本 :1.0.0.0
** 类名 :ComputerAddIns.wmiQueryApplication
** 方法名 :Void OnUILoad(System.Object, System.EventArgs)

** 测试用时 :00:00:01.3316949
** 测试时间 :2006-8-17 0:03:12
********************************************************************************

查看本文来源