作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

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

相关软件：