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

我们演示一个函数,功能是让程序标题实现打字效果!

 

类模块提供一个强悍的延迟函数,既不会像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啊什么卵都能做,就看你的脚本怎么写!!!!!!!!!!!!!!!!!!!!!!!

你可能感兴趣的:(Visual,Basic)