VB6 -使结果编号i成为序列
VB6 -使结果编号i成为序列
提问于 2016-06-21 08:37:48
你好，我有这个VB6代码
Public Sub ShowOperations()
Dim Drw As Drawing
Set Drw = App.ActiveDrawing
Dim Ops As Operations
Set Ops = Drw.Operations
Dim Op As Operation
For Each Op In Ops
For Each SubOp In Op.SubOperations
Debug.Print Op.Number & "-" & Op.SubOperations.Count
Next SubOp
Next Op
End Sub在操作中可以有更多的子操作。但我的结果是这样
1-1
2-2
2-2
3-1
4-3
4-3
4-3
5-1正如你所看到的操作2，它显示给我总共2次操作.但我需要的是
1-1
2-1
2-2
3-1
4-1
4-2
4-3
5-1有人能帮忙吗..。
谢谢
回答 1
Stack Overflow用户
回答已采纳
发布于 2016-06-21 08:47:11
只需添加一个SubOp计数器：
Dim nSubOp As Long '<--| declare a SubOp counter
For Each Op In Ops
nSubOp = 0 '<--| initialize SubOp counter
For Each SubOp In Op.SubOperations
nSubOp = nSubOp + 1 '<--| update SubOp counter
Debug.Print Op.Number & "-" & nSubOp
Next SubOp
Next Op页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/37939417
复制相关文章
相似问题
腾讯云开发者
