我们编了一个程序主要是完成零件加工的，程序段如下
Private Sub Command4_Click()
GetParam
open_list
outport_bit 1, 1, 0
con_pmove 1, 2000
arc_final 1, 2, 1, 2000, 0, 1000
con_pmove 1, 2000
arc_final 1, 2, -1, 1000, 1000, 1000
con_pmove 2, 2000
arc_final 1, 2, 1, 0, 2000, 1000
con_pmove 2, 2000
arc_final 1, 2, -1, -1000, 1000, 1000
con_pmove 1, -2000
arc_final 1, 2, 1, -2000, 0, 1000
con_pmove 1, -2000
arc_final 1, 2, -1, -1000, -1000, 1000
con_pmove 2, -2000
arc_final 1, 2, 1, 0, -2000, 1000
con_pmove 2, -2000
arc_final 1, 2, -1, 1000, -1000, 1000
outport_bit 1, 1, 1
close_list
End Sub
想在没完成一段的后面加一个label4.caption="直线AB con_pmove 1, 2000 "主要是改变这个中的显示。但是编辑了只显示最后一个label4.caption的内容。我们改的程序如下：
Private Sub Command4_Click()
GetParam
open_list
outport_bit 1, 1, 0
con_pmove 1, 2000
label4.capition="直线AB con_pmove 1, 2000 "
arc_final 1, 2, 1, 2000, 0, 1000
label4.caption="圆弧BC arc_final 1, 2, 1, 2000, 0, 1000 "
con_pmove 1, 2000
label4.opition="直线AB con_pmove 1, 2000 "
arc_final 1, 2, -1, 1000, 1000, 1000
后面每段加工程序后接上相应的label4.caption
con_pmove 2, 2000
arc_final 1, 2, 1, 0, 2000, 1000
con_pmove 2, 2000
arc_final 1, 2, -1, -1000, 1000, 1000
con_pmove 1, -2000
arc_final 1, 2, 1, -2000, 0, 1000
con_pmove 1, -2000
arc_final 1, 2, -1, -1000, -1000, 1000
con_pmove 2, -2000
arc_final 1, 2, 1, 0, -2000, 1000
con_pmove 2, -2000
arc_final 1, 2, -1, 1000, -1000, 1000
outport_bit 1, 1, 1
close_list
End Sub
我们的零件图如下：[local]1[/local] 但是最后只显示最后一个label.caption的内容。如何实现每段的都显示？
大神指教啊。

[ 本帖最后由 枫叶魔君jay 于 2014-1-8 20:47 编辑 ]

啥子意思呀？传的图片挂了？

谢谢了哈，但是显示还是同一时间显示所有的，不会完成一条在显示

我们试过了，但是还是只显示最后一个。我们这个只是仿真，具体每道工序结束时间是不确定的

高手现在想用VB实现检测 多段连续加工程序中的每一条代码是否在运行，若在执行就利用label.caption=".....该段代码正在执行"例如
Private Sub Command4_Click()
GetParam
open_list
outport_bit 1, 1, 0
con_pmove 1, 2000
arc_final 1, 2, 1, 2000, 0, 1000
con_pmove 1, 2000
arc_final 1, 2, -1, 1000, 1000, 1000
con_pmove 2, 2000
arc_final 1, 2, 1, 0, 2000, 1000
con_pmove 2, 2000
arc_final 1, 2, -1, -1000, 1000, 1000
con_pmove 1, -2000
arc_final 1, 2, 1, -2000, 0, 1000
con_pmove 1, -2000
arc_final 1, 2, -1, -1000, -1000, 1000
con_pmove 2, -2000
arc_final 1, 2, 1, 0, -2000, 1000
con_pmove 2, -2000
arc_final 1, 2, -1, 1000, -1000, 1000
outport_bit 1, 1, 1
close_list
End Sub
现在要检测con_pmove 1, 2000这条是否运行，并返回label.caption="直线AB on_pmove 1, 2000"就是要让label控件显示 直线AB on_pmove 1, 2000
要检测arc_final 1, 2, 1, 2000, 0, 1000这条是否在运行，返回label.caption="圆弧BC arc_final 1, 2, 1, 2000, 0, 1000"
能帮忙解决吗？

非常感谢，这么辛苦的帮忙测试和解答。我们明天去测试一下