应用：My命名空间

应用：My命名空间

新概念

当你用VB6编写应用程序时，你曾用到VB的运行库，这其中包含一大批COM对象；以及所用Windows版本的Win32 API。最初版本的.NET Framework将这些的大部分内容集成到一个庞大的类库中，这就是我们熟悉的Base Class Library（BCL）。在BCL中有些类支持对系统底层的访问，有些类能让你方便地访问计算机硬件的信息，还有些类能让你在不同应用程序间进行网络通讯、加密数据以及访问注册表等等。如果你想作一个彻底的.NET开发者，你必须掌握BCL和它所提供的丰富的功能。如果对BCL缺乏足够的了解，开发者就会做出很多不必要的重复劳动，重新构建一些已经存在的类。有时.NET提供的某种功能“隐藏”得太深，或者相对于庞大的.NET
Framework显得太不起眼了。有很多人写文章讲述的用他们祖传的算法来实现的功能，其实可以用Framework中的某些类非常容易地实现，比如Path或PasswordDeriveByes。事实上，许多人都会告诉你学习.NET其实不是在学习Visual Basic或C#，而是在学习BCL。 但是，学习BCL也是一项巨大的挑战，因为它太庞大了。有些非常常用的类和那些几乎用不到的类混杂在一起。为了更容易找到那些框架中最常用的类，Visual Basic 2005现在提供一种“快捷方式”命名空间——My。你可以通过使用My轻松地访问计算机、应用程序以及用户信息，还能用它来访问窗体和Web服务。要注意的一点是My仅能在使用Visual Basic 2005进行开发时使用，在使用C#时是不能直接访问到My的。有必要提及My命名空间并不仅仅是一个快捷方式。有些情况下，My命名空间提供的类比你在BCL大量的命名空间中简单搜索得到的类功能更强大。比如说Folder对象提供更多属性，如Drive，该属性在System.IO.DirectoryInfo类中根本不存在。My还让微软思考将“计算机”、“应用程序”或“用户”看作完全的实体，并且自问 “对于一个‘计算机’你应当能做什么”这样的问题。思考的结果包括My.Computer.Network.Ping，这让你能用一行代码实现对网络计算机的Ping操作。你现在用的这项功能以前只有调用COM库，甚至Win32 API才能做到，而现在它能够在My中轻松地找到并使用。

My命名空间下面分成如下几个专区：

My对象模型

对象描述

正如你所见，My命名空间给你了一个便捷的方法，让你可以在日常开发中直接访问那些常用的功能。

深入代码

在这一节，我将通过一个简短的示例，带你深入认识My命名空间。这个例子在一定深度上探索了My里面的世界。这个程序有很多选项卡，每个选项卡注重My的一项主要功能。

My.Application 选项卡.

图像修改– 需要删除 My.Datasources –
这一部分已经去掉了

My.Application

第一个选项卡——My.Application上面有一个数据表格控件，它能显示My.Application对象的大部分属性值。控制这个数据表格控件的代码如下：

CLRVersionInUse已经去掉了（你能在M2 bits见到它，但已经被去掉了）

myAppDS.MyApplication.AddMyApplicationRow(“CLR Version In Use”,
_

   My.Application.CLRVersionInUse.Major.ToString() &
“.” &
_

My.Application.CLRVersionInUse.Minor.ToString() &
“.” &
_

My.Application.CLRVersionInUse.Revision.ToString()
& “.” &
_

My.Application.CLRVersionInUse.Build.ToString())

myAppDS.MyApplication.AddMyApplicationRow(“Command Line”,
_

   My.Application.CommandLine)

Dim cmds
As
String

For Each cmd
As
String In
My.Application.CommandLineArgs

   cmds &=
“, “ &
cmd

Next

myAppDS.MyApplication.AddMyApplicationRow(“Command Line Args”,
_

  
cmds)

myAppDS.MyApplication.AddMyApplicationRow(“Company Name”,
_

   My.Application.CompanyName)

myAppDS.MyApplication.AddMyApplicationRow(“Company Name”,
_

   My.Application.CompanyName)

myAppDS.MyApplication.AddMyApplicationRow(“Culture”,
_

   My.Application.Culture.CurrentCulture.ToString())

myAppDS.MyApplication.AddMyApplicationRow(“Description”,
_

   My.Application.Description)

myAppDS.MyApplication.AddMyApplicationRow(“Number of Procs”,
_

   My.Application.EnvironmentVariables.Item(“NUMBER_OF_PROCESSORS”).Value)

myAppDS.MyApplication.AddMyApplicationRow(“File Name”,
_

   My.Application.FileName)

myAppDS.MyApplication.AddMyApplicationRow(“Folder”,
_

   My.Application.Folder.ToString())

myAppDS.MyApplication.AddMyApplicationRow(“Legal Copyright”,
_

   My.Application.LegalCopyright)

myAppDS.MyApplication.AddMyApplicationRow(“Legal Trademark”,
_

   My.Application.LegalTrademark)

myAppDS.MyApplication.AddMyApplicationRow(“Event Log Name”,
_

   My.Application.Log.EventLogName)

myAppDS.MyApplication.AddMyApplicationRow(“Mouse Pointer”,
_

   My.Application.MousePointer.ToString)

myAppDS.MyApplication.AddMyApplicationRow(“Product Name”,
_

   My.Application.ProductName)

myAppDS.MyApplication.AddMyApplicationRow(“CUser Application Data
Path”, _

My.Application.SpecialFolders.CurrentUserApplicationData.ToString())

  
myAppDS.MyApplication.AddMyApplicationRow(“Title”,
_

My.Application.Title)

  
myAppDS.MyApplication.AddMyApplicationRow(“Version”,
_

My.Application.Version.Major & “.” & My.Application.Version.Minor &
“.” &
_

   My.Application.Version.Revision &
“.” & My.Application.Version.Build)

myAppDS.MyApplication.AddMyApplicationRow(“Working Folder”,
_           

   My.Application.WorkingFolder.ToString()

上面这段代码故意写得有些罗嗦。这段代码是在利用反射列举应用程序的属性。把他们都列在代码里是为了让你看得更清楚，并了解从一个特定的属性中可以得到什么。从属性中取得的每个数值都被放到一个类型化的数据集中。接着My.Applicaton选项卡中的一个数据表格控件绑定到这个数据集中的My.Application数据表。通过轻松访问My.Application对象的属性，你可以获取有关你的应用程序的大量信息。下表列出了My.Application对象的详细属性。

My.Application

属性/方法描述

My.Application在开发中的相关应用

My.Application提供了大量的功能，但是所用的代码要比用VB6或VB.NET少得多。下面我们看看如何使用My.Application。比如说我们要编写一段代码来写事件日志，现在只要下面这点代码就够了：

My.Application.Log.WriteEntry(“Application
Starting”, _
  
EventLogEntryType.Information,  1000)

上面的代码会在本地应用程序事件日志中写入一条记载。以前用VB.NET的时候如果你想写入事件日志需要写很多行代码。如果用VB6，你只能使用App对象提供的非常有限的日志功能，你不能指定事件ID，不能写入系统或安全日志，也不能创建你自定义的日志。

还有一个例子可以很明显地对比使用My前后所需代码用量的减少，那就是当你需要生成一个自定义日志，并希望写入一个文本文件的时候。

My.Application.Log.FileName = My.Application.Folder.ToString() & _

   “\logfile.txt”

My.Application.Log.FileType =
Monitoring.LogFileType.Xml

My.Application.Log.WriteEntry(“Application Starting”,
_

  
EventLogEntryType.Information, 1000)

使用这些代码，要写入的信息除了写进应用程序事件日志中意外，还被写到一个自定义的XML日志文件中去。你可以使用My.Application.Log的FileMaximumSize属性设置文件的最大尺寸。你可以指定一中日志文件的类型，可以是XML，也可以是用My.Application.Log.FileType属性指定的Tab分割类型。你能编写程序控制使用或不同日志功能，还可以在运行时更改日志文件。

XML 日志输出

My.Application还可以让你用一行代码直接访问很多应用程序级别的信息。下面有一些这方面的例子：

·用Folder属性快速确定你的应用程序所在文件夹。

·用MouseCursor快速设定一些默认的光标类型，如AppStaring,，Help等

·快速访问一些程序集的原数据，如产品名称，公司名称等。