.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
线缆管道截面图(设计)--应CSDN一个帖子而做

作者:未知 来源:月光软件站 加入时间: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()




相关文章

相关软件