18 WithEvents 模拟 Appliction

PI ProcessBook应用程序本身并没有相关联的代码窗口，我们利用WithEvents定义一个对象
同过该对象变量来应用事件
不过 实践里 从来没有用过 呵呵

基本上就是

Dim WithEvents pbx As Application

set pbx＝PBObjLib.Application

之后 你可以看见 pbx有很多事件

例如打开pb  关上pb  新建pb 等等

例子就不举了 变颜色的例子  不是我想要的