线缆管道截面图(设计)--应CSDN一个帖子而做
2007-10-27 12:03
253 查看
2004年11月07日 13:03:00
'==图片说明==:
' 这是线缆管道截面图,我们经常看到城市街道两边管道施工的情景,指的就是这个图。
' 灰色背景为管道,白色为管孔,黄色为子管。也就是在管孔里伸入子管。
'
'==实现功能==:
' 根据管道数据表记录,直观显示管道内管孔和子管的分布情况。
' 可以是函数实现,或者是简单易用的控件实现。在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()
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=170991
'==图片说明==:
' 这是线缆管道截面图,我们经常看到城市街道两边管道施工的情景,指的就是这个图。
' 灰色背景为管道,白色为管孔,黄色为子管。也就是在管孔里伸入子管。
'
'==实现功能==:
' 根据管道数据表记录,直观显示管道内管孔和子管的分布情况。
' 可以是函数实现,或者是简单易用的控件实现。在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()
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=170991
相关文章推荐
- 线缆管道截面图(设计)--应CSDN一个帖子而做
- 线缆管道截面图(设计)--应CSDN一个帖子而做
- CSDN上的一个帖子,“李维的经典话语”。
- 分析一下CSDN论坛中一个比较字段值保留最大并删除其它的帖子
- 整理的一个csdn的帖子,关于C++中的对齐的
- IDE使用问题:vc2003中类型无法转到声明和定义,按F12提示未定义的符号(CSDN一个帖子)
- BBS 设计思路系列 ---- 网友提供的一个用户在CSDN的总分算法
- J2ee学习流程--在CSDN的一个帖子上看见的,留在这里
- 转一个csdn看到的帖子:而立之年的程序猿失业了 [问题点数:0分,结帖人jinxingfeng_cn]
- J2ee学习流程--在CSDN的一个帖子上看见的,留在这里
- BBS 设计思路系列 ---- 网友提供的一个用户在CSDN的总分算法
- BBS 设计思路系列 ---- 普通网友如何投诉一个帖子??
- csdn一个有关影像处理问题帖子的解答
- group by 的妙用 ---- CSDN上一个帖子对我的启发
- 在设计时提供一个截面,使得可以编辑大多数集合类型
- 在CSDN论坛上看到一个数据库帖子,觉得挺有意思的,特转过来跟大家分享
- BBS 设计思路系列 ---- 普通网友如何投诉一个帖子??
- 我在csdn得分最多的一个帖子:用6行代码写一个将小写金额转成大写的函数
- CSDN上一个非常搞笑的帖子内容---一个让我瞠目结舌的电脑高手
- csdn里面的一个帖子关于sql