'== Picture Description ==:' This is a cross-sectional view of cable pipeline, and we often see the scene of urban street lines, refers to this picture. The gray background is pipe, white for tube holes, yellow as a child. That is, in the tube holes into the tube. '' == Implementation function ==: 'According to the pipe data table record, the distribution of the tubular holes and tube pipes in the pipeline is recorded. 'Can be a function implementation, or an easy-to-use control implementation. Use under VBA / VB.
9cbs Post Link: http://community.9cbs.net/expert/topic/3514/3514915.xml? Temp = .6472742
------------------------------------
This feature is implemented with a control:
Control source code download address: http://www.sky-walker.com.cn/yefan/sourcecode/yfconduit.rar
Rendering:
The input parameters of the above renderings:
Dim lngsubnum (0 to 5) as long Dim strbadflag (0 to 4) AS STRING
The number of 0 ~ 5 tubular pores
LNGSUBNUM (0) = 3 LNGSubnum (1) = 2 LNGSUBNUM (2) = 4 LNGSUBNUM (3) = 5 LNGSubnum (4) = 7 LNGSubnum (5) = 12
'0 ~ 5 tube hole, the front three of the three bits of the tube hole, the three bits of the tubular number, three in the tube, strbadflag (0) = "002000" strbadflag (2) = "003002" strbadflag (3) = "002002" strbadflag (4) = "005004"
Yfconduit1.Rows = 2 '2 line Yfconduit1.cols = 3' 3 columns
Numbers of 'Sub Tubes Numbers Yfconduit1.SetconduitValue LNGSUBNUM, 5, STRBADFLAG ()
