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

'==图片说明==:

' 这是线缆管道截面图，我们经常看到城市街道两边管道施工的情景，指的就是这个图。

' 灰色背景为管道，白色为管孔，黄色为子管。也就是在管孔里伸入子管。

'

'==实现功能==:

' 根据管道数据表记录，直观显示管道内管孔和子管的分布情况。

' 可以是函数实现，或者是简单易用的控件实现。在VBA/VB下使用。

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

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

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

控件源码下载地址：http://www.bjjr.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()