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

类别:.NET开发 点击:0 评论:0 推荐:

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

本文地址:http://com.8s8s.com/it/it42999.htm