【MS VBA V8i】承接上次的问题:标注程序没有显示BUG却无法正常运行

【MS VBA】编写的程序在最后运行时一直提示错误,请老师帮我看下是哪里的问题。 - ◆ 二次开发(MicroStation编程, ProjectWise编程等) - Bentley 中国优先社区 - Bentley Communities https://communities.bentley.com/communities/other_communities/chinafirst/f/microstation-projectwise/159156/ms-vba

老师好,上面的链接就是我上次问的程序。我按照您的指导,重新逐行编程并运行,也改写了以前程序的结构(更简洁),但运行后仍是不能得到我想要的结果。

问题描述:

1.程序可以运行,但是没有想要的成果出现。

2.如果程序正常运行,得到的结果应该如下图。

3.下附我的程序,请各位老师帮我看看。

tumingtest2.mvba

Parents
  • 看起来您还是没有学习VBA代码的跟踪调试技术呀。如下图所示,我将断点设置到了Call IPrimitiveCommandEvents_Dynamics(Point, View, msdDrawingModeNormal)这一行,因为动态不容易调试,所以,我们只调试最终用户确定了点的这个调用。

    执行你的程序,等到在这一行断下来后,执行Step Into,就能进入IPrimitiveCommandEvents_Dynamics,我对txtStr(0)和txtStr(1)添加了frmtuming后才能取得值,否则在这里就卡死了。

    现在的问题时,在箭头所示行又卡死了。不知道你的这个frmtuming.TxtScale.Text中应该输入什么内容。



  • 是的,虽然说在《学习MS VBA》一书中多次看到跟踪调试技术,但是具体怎么使用真的是一头雾水。

    frmtuming是窗体的名称,而frmtuming.txttitle.text是用户输入的标题文字,如例子中的《剖面1-1》

    txtwidth取的值是frmtuming.txtTScale.text,就是窗体中的字宽倍数

Reply Children