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分割类型。你能编写程序控制使用或不同日志功能，还可以在运行时更改日志文件。

Figure 2图二

XML 日志输出

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

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

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

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

<未完待续>

上一页  [1] [2]