线缆管道截面图(设计）－－应CSDN一个帖子而做

'==图片说明==:
' 这是线缆管道截面图，我们经常看到城市街道两边管道施工的情景，指的就是这个图。
' 灰色背景为管道，白色为管孔，黄色为子管。也就是在管孔里伸入子管。
'
'==实现功能==:
' 根据管道数据表记录，直观显示管道内管孔和子管的分布情况。
' 可以是函数实现，或者是简单易用的控件实现。在VBA/VB下使用。

CSDN帖子的链接：http://community.csdn.net/Expert/topic/3514/3514915.xml?temp=.6472742

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

用一个控件实现了该功能：

控件源码下载地址：http://www.sky-walker.com.cn/yefan/SourceCode/YFConduit.rar

效果图：

上述效果图的输入参数：

Dim lngSubNum(0 To 5) As Long
Dim strBadFlag(0 To 4) As String

'0～5管孔中子管的个数

lngSubNum(0) = 3
lngSubNum(1) = 2
lngSubNum(2) = 4
lngSubNum(3) = 5
lngSubNum(4) = 7
lngSubNum(5) = 12

'0～5管孔中坏子管标识 前三位为管孔号 后三位为子管号
strBadFlag(0) = "000001"
strBadFlag(1) = "002000"
strBadFlag(2) = "003002"
strBadFlag(3) = "002002"
strBadFlag(4) = "005004"

YFConduit1.Rows = 2'2行
YFConduit1.Cols = 3 '3列

' 子管数 坏管个数 坏管号
YFConduit1.SetConduitValue lngSubNum, 5, strBadFlag()