在VB里怎么样把出错信息记录到windows的事件查看器里面？？

Question

在VB里怎么样把出错信息记录到windows的事件查看器里面？怎么把出错信息记录到WINDOWS的信息管理目录里(也就是管理工具--计算机管理--消息).

Answer 1

App.LogMode
App.LogEvent看看MSDN的解释:
LogMode 属性返回一个值，该值决定怎样（通过 LogEvent 方法）记入日志。在运行时只读。语法object.LogMode = mode部分 描述 
object 对象表达式，其值是“应用于”列表中的对象。 
mode Long。它决定了记入日志的办法，如下列“设置值”中所示。 
设置值mode 的设置值是：常数 值 描述 
vbLogAuto 0 如果在 Windows 95 上运行，则该选项就把日志消息记入到LogPath 属性所指定的文件中。如果在 Windows NT 上运行，则日志消息将连同应用程序都被记入到 NT 应用程序 Event Log 中。"VBRunTime"当作应用程序源and App.Title appearing in the description使用。 
VbLogOff 1 关闭所有记入日志。来自 UI 分路及 LogEvent 方法中的消息都被忽略并抛弃。 
VbLogToFile 2 强制记入日志到文件中。如果在 LogPath 中未出现有效文件名，则忽略记入日志，并将属性设置为 vbLogOff。 
VbLogToNT 3 强制记入到 NT 事件日志中。如果不是在 Windows NT 上运行，或者事件日志无效，则忽略记入日志，并将属性设置为 vbLogOff。 
VbLogOverwrite 0x10 指示每次启动应用程序时，应该重新创建日志文件。这个值可与使用 OR 操作符的其它模式选项结合使用。记入日志的缺省动作将追加到现有文件中。在 NT 事件记入日志的情况下，该标记没有任何意义。 
VbLogThreadID 0x20 指示在窗体 "[T:0nnn]" 中，当前线程 ID 被考虑到消息中。这个值可以与使用 OR 操作符的其它模式选项结合使用。缺省动作表明，仅当应用程序是多线程时（要么明确标记为线程安全的，要么作为不明确的多线程应用程序— 比如一个其实例属性设置为 Single-Use、多线程的本地服务器来实现），才显示线程 ID。