在VB.NET中尋找App (轉)

在VB.NET中尋找App (轉)[@more@]

:namespace prefix = o ns = "urn:schemas--com::office" /> 

 

摘要

使用過 6的開發人員幾乎都使用過App這個，它的功能強大人所共知，那麼Visual Basic中是否也有類似的物件呢？下面將會進一步說明。

 

目錄

1. App簡介

2. 在尋找類似功能

3. 簡單示例

4. 小結

 

1. App簡介

在Visual Basic 6中，App是一個全域性物件可以直接透過App關鍵字來訪問。App物件可以得到當前應用的標題、版本、路徑、名等資訊，同時可以用於判斷應用的前一個例項是否執行。App物件在VB.NET中已經不存在了，但是我們仍然能從VB.NET中使用其它的物件獲得App的相同功能。

 

2. 在VB.NET尋找類似功能

原Visual Basic 6 中App的Comments屬性類似Visual Basic .NET 中的System.Diagnostics.FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly.Location).Comments屬性

 

原Visual Basic 6 中App的CompanyName屬性類似Visual Basic .NET 中的System.Diagnostics.FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly.Location).CompanyName屬性

 

原Visual Basic 6 中App的EXEName屬性類似Visual Basic .NET 中的.GetEXEName屬性

 

原Visual Basic 6 中App的FileDescription屬性類似Visual Basic .NET 中的System.Diagnostics.FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly.Location).FileDescription屬性

 

原Visual Basic 6 中App的HelpFile屬性在Visual Basic .NET 中無類似屬性

 

原Visual Basic 6 中App的HInstance屬性類似Visual Basic .NET 中的VB6.GetHInstance屬性

 

原Visual Basic 6 中App的LegalCopyright屬性類似Visual Basic .NET 中的System.Diagnostics.FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly.Location).LegalCopyright屬性

 

原Visual Basic 6 中App的LegalTrademarks屬性類似Visual Basic .NET 中的System.Diagnostics.FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly.Location).LegalTrademarks屬性

 

原Visual Basic 6 中App的LogEvent方法在Visual Basic .NET 中無類似方法

 

原Visual Basic 6 中App的LogMode屬性在Visual Basic .NET 中無類似屬性

 

原Visual Basic 6 中App的LogPath屬性在Visual Basic .NET 中無類似屬性

 

原Visual Basic 6 中App的Major屬性類似Visual Basic .NET 中的System.Diagnostics.FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly.Location).FileMajorPart屬性

 

原Visual Basic 6 中App的Minor屬性類似Visual Basic .NET 中的System.Diagnostics.FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly.- Location).FileMinorPart屬性

 

原Visual Basic 6 中App的NonModalAllowed屬性在Visual Basic .NET 中無類似屬性

 

原Visual Basic 6 中App的OleRequestPendingMsgText屬性在Visual Basic .NET 中無類似屬性

 

原Visual Basic 6 中App的OleRequestPendingMsgTitle屬性在Visual Basic .NET 中無類似屬性

 

原Visual Basic 6 中App的OleRequestPendingTimeout屬性在Visual Basic .NET 中無類似屬性

 

原Visual Basic 6 中App的OleServerBusyMsgText屬性在Visual Basic .NET 中無類似屬性

 

原Visual Basic 6 中App的OleServerBusyMsgTitle屬性在Visual Basic .NET 中無類似屬性

 

原Visual Basic 6 中App的OleServerBusyRaiseError屬性在Visual Basic .NET 中無類似屬性

 

原Visual Basic 6 中App的OleServerBusyTimeout屬性在Visual Basic .NET 中無類似屬性

 

原Visual Basic 6 中App的Path屬性類似Visual Basic .NET 中的VB6.GetPath屬性

 

原Visual Basic 6 中App的PrevInstance屬性類似Visual Basic .NET 中的UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0

 

原Visual Basic 6 中App的ProductName屬性類似Visual Basic .NET 中的System.Diagnostics.FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly.Location).ProductName屬性

 

原Visual Basic 6 中App的RetainedProject屬性在Visual Basic .NET 中無類似屬性

 

原Visual Basic 6 中App的Revision屬性在Visual Basic .NET 中無類似屬性

 

原Visual Basic 6 中App的StartLogging方法在Visual Basic .NET 中無類似方法

 

原Visual Basic 6 中App的StartMode屬性在Visual Basic .NET 中無類似屬性

 

原Visual Basic 6 中App的TaskVisible屬性在Visual Basic .NET 中無類似屬性

 

原Visual Basic 6 中App的ThreadID屬性在Visual Basic .NET 中無類似屬性

 

原Visual Basic 6 中App的Title屬性類似Visual Basic .NET 中的System.Reflection.Assembly.GetExecutingAssembly.GetName.Name屬性

 

原Visual Basic 6 中App的UnattendedApp屬性在Visual Basic .NET 中無類似屬性

 

3. 簡單示例

這裡以得到當前應用的路徑為示例，首先要引用VisualBasic.Compatibility名稱空間，單擊主選單“工程”中的“引用”項，並選擇“Microsoft Visual Basic .NET Compatibility Runtime”

ectratio="t" v:ext="edit">

此時在工程列表的引用中就會出現Microsoft.VisualBasic.Compatibility名稱空間了

在新的控制檯工程中輸入程式碼

 

Imports Microsoft.VisualBasic.Compatibility

 

Module Module1

  Sub Main()

  Console.WriteLine(VB6.GetPath)

  End Sub

End Module

 

得到的結果仍然和使用VB6的App.path的結果是一樣的。

 

4. 小結

VB6的員有了這些和App類似的屬性或方法，就可以很輕鬆的應用在.NET中了。