为夕阳添一抹余晖——VB6封装Dll调试方法

山菊花

有人说，VB6早已下山，也有人仍感觉到它的温暖，这是因为各人所处位置不同，有人在山的这边，有人在山的那边。

想交流一下VB6封装心得，有点纠结，说吧，怕拖住您的脚步，耽误您使用更好的工具。不说吧，总有人卡在这里。
还是略略说一下调试。如何封装的帖子、好帖子实在太多了，就不说了。

VBA程序调试很简单。其实，VB6调试也不难，就一句话的事，在立即窗口中输入过程名并回车启动即可。

1、模块过程的调试。
用VB6封装程序，通常类模块只是起接口作用，主要过程都在模块中，调试时，打开立即窗口，输入过程名（如ChengxuA）并回车，即可启动程序。

2、类模块过程的调试。
附件中，类模块有一过程Main()，你不能直接在立即窗口中启动它。但可以在模块中插入一过程，引用类模块并执行其中过程：

Sub Test2()
    Dim cs As New Sjh.CeShi
    Call cs.Main
End Sub

在立即窗口中，调用Text2()即可调试Main()。

3、对工作表操作的调试。
不言而喻，对Excel对象操作的调试非常重要。其实，方法也很简单，先在Excel中打开工作簿，然后如下所示写好测试过程：

Sub Test3()
    '为测试做准备
    Dim xlApp As Excel.Application, wb As Excel.Workbook
    Set xlApp = GetObject(, "Excel.Application")
    For Each wb In xlApp.Workbooks
        If wb.Name = "测试数据.xlsm" Then Exit For
    Next
    If wb Is Nothing Then Exit Sub

    '对过程ChengxuB()测试开始
    Call ChengxuB(wb.Sheets(1))
End Sub

接下来，还是在立即窗口中启动Test3()即可。

4、逐语句调试。
与VBA调试程序一模一样，在过程适当地方按F9插入断点，启动程序后便可从这里开始，按F8逐语句调试。

shiruiqiang

老师，Set xlApp = GetObject(, "Excel.Application")是调用excel，但目前碰到很多只安装了wps，导致写的u程序程序(新建工作簿)的时候出错，如何判断？

feiyang8878

大神，能帮忙看看ADO怎样连接Dataverse数据吗，谢谢了

静听溪流

点赞  学习

gwjkkkkk

学习了。。。

cidanji

点赞版主

marchwen01

点赞版主。收藏。

※矾风※

好久之前学了下，网上各样都有，知识杂乱，但照着来又失败。如果大神能详细铺开来讲那不愧是顶贴。

zhaoxx

点赞，就是看不懂

山菊花

shiruiqiang 发表于 2024-1-7 11:14
老师，Set xlApp = GetObject(, "Excel.Application")是调用excel，但目前碰到很多只安装了wps，导致写的u ...

抱歉，我也不知道。我的电脑安装的是Excel。