向Visual Basic程序员介绍My命名空间（一）_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

向Visual Basic程序员介绍My命名空间（一）

作者：闵涛文章来源：闵涛的学习笔记点击数：1963 更新时间：2009/4/23 18:59:10

Excerpted from “Microsoft Visual Basic Programmer’s Introduction to Whidbey” by Sean Campbell, Scott Swigart, Kris Horrocks, Derek Hatchard, and Peter Bernhardt.

应用：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.Application

包含了当前运行应用程序的信息，如标题、当前路径和版本等。它还能访问环境变量，可以让你轻松地书写本地应用程序日志或自定义日志等。

My.Computer

提供应用程序所运行的本地计算机硬件或系统底层的信息。比如注册表、打印机、键盘、现实器等。这些都是你能通过该类访问到的对象。

My.User

包含当前用户的信息，包括用户显示名称、域名称，组群名称等。

My.WebServices

它允许你轻松地访问已经在项目中添加了Web引用的Web服务。

My.Forms

一个当前项目中存在的窗体的集合。你可以通过它显示、隐藏这些窗体而不需要在代码中显式创建他们的对象。（译注：这太棒了，VB6程序员的福音）

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

深入代码

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

图1

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

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

属性/方法描述

CommandLine

返回完整的命令行——exe加上所有参数。

CommandLineArgs

返回一个包含所有命令行参数的集合。

CompanyName

返回在AssemblyInfo.vb中指定的CompanyName信息。

Culture

返回一个culture对象，通过它你可以确定当前应用程序所在的文化设置。

Description

返回在AssemblyInfo.vb中指定的应用程序描述信息。