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