VB动态添加执行代码完整版(三)

VB动态添加执行代码完整版(三)
2010年08月14日
　　我们演示一个函数,功能是让程序标题实现打字效果!
　　类模块提供一个强悍的延迟函数,既不会像Sleep哪样使线程暂停二卡卡,
　　也不会像Timer函数那样CPU使用率飙升到100%(会较大幅度飙升,但是不会在23:59:59这种临界时间延迟出错)
　　逐行脚本中使用ObjectTemplate.Delay 毫秒数 再函数中可以直接Delay
　　
　　为了节省CPU,于是就用了更强悍的方法:绑定过程给Timer控件!
　　Script文件夹下的Print.exc 是预处理和绑定
　　
　　用编译Script文件夹下的PrintCaption.vbs 运行DelayText过程可以实现Delay方法的延迟(即打字效果)
　　
　　然而Delay终究还是用了较多的CPU,为了使延迟起来没什么感觉,我们来看一个比牛C更牛的方法
　　绑定过程给Timer控件!
　　为了简洁 我把数组注释掉了,只用了一个Timer(先发下脚本的代码)
　　
　　这里包括了上面发的DelayText函数,不管那么多了(夜深了还有其他事要做)
　　输入Print或者Print.exc直接点加载 就看到效果了
　　
　　注:这里的按钮啊什么的文本都是再脚本里设置的 还有控件的大小位置 都可以设置
　　刚才 ComboBox的长度遮盖了 Sub复选框 主要是为了不影响 Function的说明
　　暂时就说这么多,置于更牛的功能(牛A),感染Exe啊什么卵都能做,就看你的脚本怎么写!!!!!!!!!!!!!!!!!!!!!!!