App 对象（针对 Visual Basic 6.0 用户）

Visual Basic 6.0 中有许多 App 对象属性，这些属性涉及 ActiveX 组件、OLE 自动化以及其他已过时并且不受 Visual Basic 2005 支持的技术。本主题后面部分的“App 对象属性等效项”表将介绍这些属性。

App 对象的代码更改

下面的代码示例演示 Visual Basic 6.0 和 Visual Basic 2005 就 App 对象的一些常见用法在编码方法上的不同之处。

显示应用程序版本号的代码更改

下面的示例演示如何检索应用程序版本号并显示在标签中。

	复制代码
' Visual Basic 6.0 Label1.Caption = "Version: " & App.Major & "." & App.Minor & "." _ & App.Revision

Visual Basic	复制代码
' Visual Basic 2005 Label1.Text = My.Application.Info.Version.ToString()

确定应用程序路径的代码更改

下面的示例演示如何通过检索应用程序的执行路径，来显示存储在应用程序文件夹中的图像文件。

	复制代码
' Visual Basic 6.0 Picture1.Picture = LoadPicture(App.Path & "\Logo.jpg")

Visual Basic	复制代码
' Visual Basic 2005 PictureBox1.Image = System.Drawing.Bitmap.FromFile( _ My.Application.Info.DirectoryPath & "\Logo.jpg")

防止运行另一个应用程序实例的代码更改

下面的示例演示如何实现单实例应用程序。

	复制代码
' Visual Basic 6.0 Private Sub Form_Load() If App.PrevInstance = True Then MsgBox("The application is already running!") End If End Sub

Visual Basic	复制代码
' Visual Basic 2005 ' Assumes that the Make Single Instance Application checkbox in the ' Project Designer has been checked. Private Sub MyApplication_StartupNextInstance(ByVal sender As Object, _ ByVal e As Microsoft.VisualBasic.ApplicationServices. _ StartupNextInstanceEventArgs) Handles Me.StartupNextInstance MsgBox("The application is already running!") End Sub

App 对象属性等效项

下表列出了 Visual Basic 6.0 App 对象的所有属性和方法及其 Visual Basic 2005 等效项。

Visual Basic 6.0	Visual Basic 2005 等效项
Comments	My.Application.Info.Description 属性
CompanyName	My.Application.Info.CompanyName 属性
EXEName	My.Application.Info.AssemblyName 属性
FileDescription	My.Application.Info.Title 属性
HelpFile	新的实现。使用 HelpProvider 组件。有关更多信息，请参见帮助支持（针对 Visual Basic 6.0 用户）。
HInstance	GetHINSTANCE
LegalCopyright	My.Application.Info.Copyright 属性
LegalTrademarks	My.Application.Info.Trademark 属性
LogEvent method	WriteEntry 方法（My.Application.Log 和 My.Log）
LogMode LogPath	新的实现。有关更多信息，请参见记录来自应用程序的信息。
Major	My.Application.Info.Version 属性 注意 Visual Basic 2005 中版本号的格式有所不同。有关更多信息，请参见版本编号（针对 Visual Basic 6.0 用户）。
Minor	My.Application.Info.Version 属性 注意 Visual Basic 2005 中版本号的格式有所不同。有关更多信息，请参见版本编号（针对 Visual Basic 6.0 用户）。
NonModalAllowed	新的实现。这是与 ActiveX .dll 文件相关的只读属性。公共语言运行库自动管理此行为。
OleRequestPendingMsgText OleRequestPendingMsgTitle OleRequestPendingTimeout OleServerBusyMsgText OleServerBusyMsgTitle OleServerBusyRaiseError OleServerBusyTimeout	无等效项。这些属性与 OLE 自动化相关，而 Visual Basic 2005 不支持 OLE 自动化。
Path	My.Application.Info.DirectoryPath 属性
PrevInstance	IsSingleInstance 注意 IsSingleInstance 属性是一个 Protected 属性。该属性只能通过在设计时选中或清除“项目管理器”中的“多个实例”复选框进行设置。
ProductName	My.Application.Info.ProductName 属性
RetainedProject	新的实现。Visual Basic 2005 不能在内存中保留项目。
Revision	My.Application.Info.Version 属性 注意 Visual Basic 2005 中版本号的格式有所不同。有关更多信息，请参见版本编号（针对 Visual Basic 6.0 用户）。
StartLogging method	新的实现。有关更多信息，请参见记录来自应用程序的信息。
StartMode	无等效项。此属性涉及创建 ActiveX 组件，而 Visual Basic 2005 不支持创建 ActiveX 组件。
TaskVisible	新的实现。若要创建不在“任务管理器”中显示的应用程序，请创建“Windows 服务”或“控制台应用程序”项目。
ThreadID	新的实现。该属性返回正在执行的线程的 ID；而 Visual Basic 2005 的线程模型发生了很大的变化。
Title	My.Application.Info.Title 属性
UnattendedApp	新的实现。对于 Visual Basic 2005 中的无人参与应用程序，可创建一个“控制台应用程序”项目。

升级说明

应用程序从 Visual Basic 6.0 升级时，只有 Major 和 Minor 属性被升级；而 Visual Basic 2005 将为 Revision 和 Build 属性赋予一个新值。

请参见

参考

My.Application 对象