我的推荐：在VB.NET中寻找App

2024-07-10 13:04:41

字体：大中小

来源：转载

供稿：网友

摘要

使用过visual basic 6的开发人员几乎都使用过app这个对象，它的功能强大人所共知，那么visual basic .net中是否也有类似的对象呢？下面将会进一步说明。

--------------------------------------------------------------------------------

目录

1. app简介

2. 在vb.net寻找类似功能

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 中的vb6.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"

此时在工程列表的引用中就会出现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中了。

--------------------------------------------------------------------------------

作者：孟庆臣