CorelDRAWX4的VBA插件开发(二十)创建进度条来显示程序运行进度

很多时候我们的程序在运行过程中是无法看到运行进度的,尤其是在我们开启了禁止渲染效果之后,程序运行的速度会有很大的提升,但是完全禁止的页面会让使用者产生不可掌控的感觉,于是进度条的显示就是非常有必要的,而在这里,我不准备把CDR原本的状态栏介绍给大家使用,因为它原本的进状态栏是用来显示CDR原本的功能,所以我们在交叉使用的时候会失灵,所以在这里我们需要另建一个窗体模块来进行进度的显示.(下面是做一个一健全部转位图功能的进度条)

我们先新建一个名为"jinDu"的窗体,然后把窗体的caption标题改成"进度条",然后再在里面拉出两个"框架",外面的框架Frame1的caption改成0%,里面的小框架Frame2的caption留空,然后把背景颜色backcolor改成蓝色.

上图中可以看到我们把模态关闭了,在这个情况下使用模态会阻止后面程序的运行,所以改成了非模态. 还有 startUpPosition的值我设置成了0-手动,这样子就可以自行设置窗口弹出的左上角的位置,也就是left和top的值就有了作用

上代码:

Sub 第一个插件()
    jinDu.Show
    Dim zongshu As Integer: zongshu = CorelDRAW.ActiveSelectionRange.Count
    Dim wancheng As Integer: wancheng = 1
    For Each Item In CorelDRAW.ActiveSelectionRange
        Item.ConvertToBitmapEx cdrCMYKColorImage, False, False, 600, cdrNormalAntiAliasing, True, False, 95
        baifenbi = wancheng / zongshu
        jinDu.Caption = Int(baifenbi * 100) & "%"
        jinDu.Frame1.Caption = baifenbi * 100 & "%"
        jinDu.Frame2.Width = 174 * baifenbi
        wancheng = wancheng + 1
    Next Item
    Unload jinDu
    
End Sub

接下来看一下效果如何

大致讲一下代码
第一行,就把名为jinDu 窗口显示出来,第二行设置一个总数,数为选择的对象的总量,第三行是当前的运行的次数,然后就是循环体了,循环体内部第一行是转位图,第二行是设置了一个百分数,用来计算当前进度条的位置
第三行改变窗口标题数字, 用了一个int函数用来把小数转化成整数
第四行更改第一个框架的标题
第五行把那个蓝色的色块的宽度拉长
第六行让运行次数+1
最后就是关闭关前的弹窗