'我用一个命令按钮来执行写入操作。 private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click '如果没有存在事件源的话就新建一个 if not eventlog.sourceexists("writetoevent") then eventlog.createeventsource("writetoevent", "application") 'application是表示放于应用程序事件中 end if eventlog1.source = "writetoevent" eventlog1.writeentry("在这里我执行一个写入测试。") '执行写入操作。 end sub
