Visual Basic不同于Visual C#、Visual C++之处在于它更偏重于快速开发,更针对非专业开发人员和编程新手。Visual Basic 2005这次提供的“My”是一个极为出色的设计,可以帮助开发人员快速利用.NET Framework中的各种功能进行开发。说到My到底是什么,其实它就是一个工程相关的命名空间,其中的内容是由IDE帮助你组织的。
在My出现以前,.NET Framework已经具有强大而丰富的类库,学习这些类库算不上是一件轻松的事。许多VB或VC的开发者第一次接触到.NET开发时,总是习惯于自己实现或通过调用Windows API实现某些.NET早已准备好的功能。其原因就是.NET类库太庞大太分散了,许多常用的功能与那些不太常用的功能混在一起。比如,获得从当日零点开始的毫秒数的方法(经常被用来做随机数的种子)竟然与设置环境变量功能同在Environment类中,而不是“看上去像是”的System.Timers、TimeSpan或DateTime等命名空间或类型中。许多开发者对类库不熟悉,于是就一遍又一遍地重复开发.NET Framework的功能。Visual Basic Team为了解决这个问题,设计了My命名空间,它将.NET Framework中最常用的功能挑出来,然后按照最容易理解的逻辑结构存放在一起。当你深入My命名空间,你会发现那些功能就在你凭直觉就能想象到的路径中。
My命名空间在当前版本中主要包含My.Application、My.Computer、My.Resources、My.User、My.Forms和My.Webservices等六个主要部分。你可以输入My关键字找到他们,也可以导入My命名空间,其语法是:Imports 项目名称.My
My.Application
在My命名空间中的所有类或对象中,My.Application是与当前运行的应用程序有关的对象,本次首先来介绍My.Application。My.Application提供的功能非常丰富,比如当前应用程序的主线程、主窗口、版本或公司版权等信息、文化和语言设置、路径及命令行、事件日志甚至Splash Screen的信息。下面的表格列出了My.Application的全部功能。
My.Application 成员 描述
ApplicationContext 应用程序的上下文,包括主线程和主窗体的信息
AssemblyInfo 程序集信息,包括版本、版权、标题、产品名称和可执行名称等
ChangeCurrentCulture 改变应用程序当前文化设置,如货币和时间的格式
ChangeCurrentUICulture 改变应用程序当前的用户界面文化设置,如显示语言和用词
CommandLineArgs 一个只读集合,返回当前应用程序的命令行参数。这些参数已经分隔开,无须像原来那样手工分隔Command函数的值了。
CurrentCulture 返回当前的文化设置
CurrentDirectory 返回应用程序使用的当前目录
CurrentUICulture 返回当前的用户界面文化设置
Deployment 返回按照ClickOnce方法部署的应用程序的Deployment对象
DoEvents 执行储存在Windows消息队列中的所有Windows消息
Exit 退出应用程序
GetEnvironmentVariable 通过环境变量的名字获取环境变量的值
IsNetworkDeployed 返回一个值,指示当前应用程序是否采用了网络部署方式
Log 一个记录应用程序事件日志和异常的日志工具
MainForm 当前应用程序的主窗体
OpenForms 当前应用程序中所有已经打开窗体的集合,与VB6的Forms集合功能相同
Run 启动Visual Basic的启动/关闭应用程序模式
SplashScreen 返回当前应用程序作为Splash Screen的窗口
可以注意到,My.Application中的某些功能和Application对象是一样的,但是My.Application不仅仅能用于Windows Form的应用程序,许多功能在控制台应用程序照样能够使用。下面举几个简单的例子来使用My.Application:
1、显示一个简单的关于窗口。
With My.Application.AssemblyInfo
Dim msg As New System.Text.StringBuilder
msg.AppendLine("Protuct Name: " & .ProductName)
msg.AppendLine("Company Name: " & .CompanyName)
msg.AppendLine("Version: " & .Version.ToString)
msg.AppendLine("Description: " & .Description)
MsgBox(msg.ToString, MsgBoxStyle.Information, "About " & .Title)
End With
2、将当前打开的所有窗口的标题都改为环境变量%TITLE%的值
For Each f As Form In My.Application.OpenForms
f.Text = My.Application.GetEnvironmentVariable("TITLE")
DoEvents() '也可以写成My.Application.DoEvents()
Next