不同的容器里实现 RadioButton的单选

请教一个各位牛人一个问题,如图:    (问题解决,见后面的解决方案~~)


怎么在不同的winform容器(GroupBox)里实现 RadioButton (如图中两个“详细照会”)的单选,请各位牛人给出实现的思路,不甚感谢。

GroupBox() 送り状情報1,送り状情報2......是动态生成的。

以下是具体的生成代码:

 

     Private   Sub  InitProcess()

        
If  (m_DataVale  Is   Nothing Then
            
Me .Visible  =   False
            
Return
        
End   If
        
If  m_DataVale.Rows.Count  <   1   Then
            
Me .Visible  =   False
            
Return
        
End   If

        
Dim  intDataCount  As   Integer   =  m_DataVale.Rows.Count

        
Dim  intGroupX  As   Integer   =   8
        
Dim  intGroupY  As   Integer   =   5
        
Dim  intGroupHeight  As   Integer   =   170
        
Dim  intGroupWidth  As   Integer   =  GroupBox1.Width  -   17
        
Dim  group(intDataCount)  As  System.Windows.Forms.GroupBox

        
' 詳細照会
         Dim  RB_INFO(intDataCount)  As  System.Windows.Forms.RadioButton
        
' 送付先変更
         Dim  LB_ARR_FIXED_TITLE(intDataCount)  As  System.Windows.Forms.Label
        
Dim  LB_ARR_FIXED(intDataCount)  As  System.Windows.Forms.Label
        
' 問番
         Dim  LB_CO_DELIVERY_NO_TITLE(intDataCount)  As  System.Windows.Forms.Label
        
Dim  LB_CO_DELIVERY_NO(intDataCount)  As  System.Windows.Forms.Label
        
' 発送ロット
         Dim  LB_HASSOU_LOT_TITLE(intDataCount)  As  System.Windows.Forms.Label
        
Dim  LB_HASSOU_LOT(intDataCount)  As  System.Windows.Forms.Label
        
' 発送管理No
         Dim  LB_LOT_SEQ_TITLE(intDataCount)  As  System.Windows.Forms.Label
        
Dim  LB_LOT_SEQ(intDataCount)  As  System.Windows.Forms.Label
        
' 発送日
         Dim  LB_SENDDATE_TITLE(intDataCount)  As  System.Windows.Forms.Label
        
Dim  LB_SENDDATE(intDataCount)  As  System.Windows.Forms.Label
        
' 送り状定義
         Dim  LB_LABEL_DEF_NM_TITLE(intDataCount)  As  System.Windows.Forms.Label
        
Dim  LB_LABEL_DEF_NM(intDataCount)  As  System.Windows.Forms.Label
        
' 最新配送状況
         Dim  LB_STATS_TITLE(intDataCount)  As  System.Windows.Forms.Label
        
Dim  LB_STATS(intDataCount)  As  System.Windows.Forms.Label
        
' メモ()
         Dim  LB_TB_MEMO(intDataCount)  As  System.Windows.Forms.Label
        
Dim  TB_MEMO(intDataCount)  As  System.Windows.Forms.TextBox

        
Dim  i  As   Integer
        
For  i  =   0   To  intDataCount  -   1
            
' 送り状情報 連番
            group(i)  =   New  System.Windows.Forms.GroupBox
            group(i).Text 
=   " 送り状情報 "   &  i  +   1
            group(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))
            group(i).Height 
=  intGroupHeight
            group(i).Width 
=  intGroupWidth
            group(i).Location 
=   New  System.Drawing.Point(intGroupX, ( 1   +  i)  *  intGroupY  +  intGroupHeight  *  i)

            
' 詳細照会
            RB_INFO(i)  =   New  System.Windows.Forms.RadioButton
            RB_INFO(i).Text 
=   " 詳細照会 "
            RB_INFO(i).Location 
=   New  System.Drawing.Point( 10 15 )
            RB_INFO(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))
            
' 送付先変更
            LB_ARR_FIXED_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_ARR_FIXED_TITLE(i).Text 
=   " 送付先変更 "
            LB_ARR_FIXED_TITLE(i).Location 
=   New  System.Drawing.Point( 10 40 )
            LB_ARR_FIXED_TITLE(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_ARR_FIXED_TITLE(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleCenter
            LB_ARR_FIXED_TITLE(i).BackColor 
=  System.Drawing.SystemColors.Control
            LB_ARR_FIXED_TITLE(i).Size 
=   New  System.Drawing.Size( 102 23 )
            LB_ARR_FIXED_TITLE(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))

            LB_ARR_FIXED(i) 
=   New  System.Windows.Forms.Label
            LB_ARR_FIXED(i).Text 
=   " "
            LB_ARR_FIXED(i).Location 
=   New  System.Drawing.Point( 112 40 )
            LB_ARR_FIXED(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_ARR_FIXED(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleLeft
            LB_ARR_FIXED(i).BackColor 
=  System.Drawing.Color.FromArgb( CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 192 Byte ),  Integer ))
            LB_ARR_FIXED(i).Size 
=   New  System.Drawing.Size( 30 23 )
            LB_ARR_FIXED(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))
            LB_ARR_FIXED(i).Text 
=  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 送付先変更 " ))

            
' 問番
            LB_CO_DELIVERY_NO_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_CO_DELIVERY_NO_TITLE(i).Text 
=   " 問番 "
            LB_CO_DELIVERY_NO_TITLE(i).Location 
=   New  System.Drawing.Point( 10 64 )
            LB_CO_DELIVERY_NO_TITLE(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_CO_DELIVERY_NO_TITLE(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleCenter
            LB_CO_DELIVERY_NO_TITLE(i).BackColor 
=  System.Drawing.SystemColors.Control
            LB_CO_DELIVERY_NO_TITLE(i).Size 
=   New  System.Drawing.Size( 102 23 )
            LB_CO_DELIVERY_NO_TITLE(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))

            LB_CO_DELIVERY_NO(i) 
=   New  System.Windows.Forms.Label
            LB_CO_DELIVERY_NO(i).Location 
=   New  System.Drawing.Point( 112 64 )
            LB_CO_DELIVERY_NO(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_CO_DELIVERY_NO(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleLeft
            LB_CO_DELIVERY_NO(i).BackColor 
=  System.Drawing.Color.FromArgb( CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 192 Byte ),  Integer ))
            LB_CO_DELIVERY_NO(i).Size 
=   New  System.Drawing.Size( 128 23 )
            LB_CO_DELIVERY_NO(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))
            LB_CO_DELIVERY_NO(i).Text 
=  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 問番 " ))
            
' 発送ロット
            LB_HASSOU_LOT_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_HASSOU_LOT_TITLE(i).Text 
=   " 発送ロット "
            LB_HASSOU_LOT_TITLE(i).Location 
=   New  System.Drawing.Point( 248 64 )
            LB_HASSOU_LOT_TITLE(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_HASSOU_LOT_TITLE(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleCenter
            LB_HASSOU_LOT_TITLE(i).BackColor 
=  System.Drawing.SystemColors.Control
            LB_HASSOU_LOT_TITLE(i).Size 
=   New  System.Drawing.Size( 102 23 )
            LB_HASSOU_LOT_TITLE(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))

            LB_HASSOU_LOT(i) 
=   New  System.Windows.Forms.Label
            LB_HASSOU_LOT(i).Location 
=   New  System.Drawing.Point( 350 64 )
            LB_HASSOU_LOT(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_HASSOU_LOT(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleLeft
            LB_HASSOU_LOT(i).BackColor 
=  System.Drawing.Color.FromArgb( CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 192 Byte ),  Integer ))
            LB_HASSOU_LOT(i).Size 
=   New  System.Drawing.Size( 108 23 )
            LB_HASSOU_LOT(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))
            LB_HASSOU_LOT(i).Text 
=  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 発送ロット " ))
            
' 発送管理No
            LB_LOT_SEQ_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_LOT_SEQ_TITLE(i).Text 
=   " 発送管理No "
            LB_LOT_SEQ_TITLE(i).Location 
=   New  System.Drawing.Point( 464 64 )
            LB_LOT_SEQ_TITLE(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_LOT_SEQ_TITLE(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleCenter
            LB_LOT_SEQ_TITLE(i).BackColor 
=  System.Drawing.SystemColors.Control
            LB_LOT_SEQ_TITLE(i).Size 
=   New  System.Drawing.Size( 111 23 )
            LB_LOT_SEQ_TITLE(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))

            LB_LOT_SEQ(i) 
=   New  System.Windows.Forms.Label
            LB_LOT_SEQ(i).Text 
=   " H2232+5645 "
            LB_LOT_SEQ(i).Location 
=   New  System.Drawing.Point( 575 64 )
            LB_LOT_SEQ(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_LOT_SEQ(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleLeft
            LB_LOT_SEQ(i).BackColor 
=  System.Drawing.Color.FromArgb( CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 192 Byte ),  Integer ))
            LB_LOT_SEQ(i).Size 
=   New  System.Drawing.Size( 128 23 )
            LB_LOT_SEQ(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))
            LB_LOT_SEQ(i).Text 
=  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 発送管理No " ))
            
' 発送日
            LB_SENDDATE_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_SENDDATE_TITLE(i).Text 
=   " 発送日 "
            LB_SENDDATE_TITLE(i).Location 
=   New  System.Drawing.Point( 708 64 )
            LB_SENDDATE_TITLE(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_SENDDATE_TITLE(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleCenter
            LB_SENDDATE_TITLE(i).BackColor 
=  System.Drawing.SystemColors.Control
            LB_SENDDATE_TITLE(i).Size 
=   New  System.Drawing.Size( 102 23 )
            LB_SENDDATE_TITLE(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))

            LB_SENDDATE(i) 
=   New  System.Windows.Forms.Label
            LB_SENDDATE(i).Location 
=   New  System.Drawing.Point( 810 64 )
            LB_SENDDATE(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_SENDDATE(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleLeft
            LB_SENDDATE(i).BackColor 
=  System.Drawing.Color.FromArgb( CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 192 Byte ),  Integer ))
            LB_SENDDATE(i).Size 
=   New  System.Drawing.Size( 100 23 )
            LB_SENDDATE(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))
            LB_SENDDATE(i).Text 
=  mdlFunction.FormatDataToYMD(mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 発送日 " )))
            
' 送り状定義
            LB_LABEL_DEF_NM_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_LABEL_DEF_NM_TITLE(i).Text 
=   " 送り状定義 "
            LB_LABEL_DEF_NM_TITLE(i).Location 
=   New  System.Drawing.Point( 10 88 )
            LB_LABEL_DEF_NM_TITLE(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_LABEL_DEF_NM_TITLE(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleCenter
            LB_LABEL_DEF_NM_TITLE(i).BackColor 
=  System.Drawing.SystemColors.Control
            LB_LABEL_DEF_NM_TITLE(i).Size 
=   New  System.Drawing.Size( 102 23 )
            LB_LABEL_DEF_NM_TITLE(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))

            LB_LABEL_DEF_NM(i) 
=   New  System.Windows.Forms.Label
            LB_LABEL_DEF_NM(i).Location 
=   New  System.Drawing.Point( 112 88 )
            LB_LABEL_DEF_NM(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_LABEL_DEF_NM(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleCenter
            LB_LABEL_DEF_NM(i).BackColor 
=  System.Drawing.Color.FromArgb( CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 192 Byte ),  Integer ))
            LB_LABEL_DEF_NM(i).Size 
=   New  System.Drawing.Size( 346 23 )
            LB_LABEL_DEF_NM(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))
            LB_LABEL_DEF_NM(i).Text 
=  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 送り状定義 " ))
            
' 最新配送状況 
            LB_STATS_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_STATS_TITLE(i).Text 
=   " 最新配送状況 "
            LB_STATS_TITLE(i).Location 
=   New  System.Drawing.Point( 464 88 )
            LB_STATS_TITLE(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_STATS_TITLE(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleCenter
            LB_STATS_TITLE(i).BackColor 
=  System.Drawing.SystemColors.Control
            LB_STATS_TITLE(i).Size 
=   New  System.Drawing.Size( 111 23 )
            LB_STATS_TITLE(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))

            LB_STATS(i) 
=   New  System.Windows.Forms.Label
            LB_STATS(i).Location 
=   New  System.Drawing.Point( 575 88 )
            LB_STATS(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_STATS(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleLeft
            LB_STATS(i).BackColor 
=  System.Drawing.Color.FromArgb( CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 192 Byte ),  Integer ))
            LB_STATS(i).Size 
=   New  System.Drawing.Size( 128 23 )
            LB_STATS(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))
            LB_STATS(i).Text 
=  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 最新配送状況 " ))
            
' メモ
            LB_TB_MEMO(i)  =   New  System.Windows.Forms.Label
            LB_TB_MEMO(i).Text 
=   " メモ "
            LB_TB_MEMO(i).Location 
=   New  System.Drawing.Point( 10 112 )
            LB_TB_MEMO(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_TB_MEMO(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleCenter
            LB_TB_MEMO(i).BackColor 
=  System.Drawing.SystemColors.Control
            LB_TB_MEMO(i).Size 
=   New  System.Drawing.Size( 102 23 )
            LB_TB_MEMO(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))

            TB_MEMO(i) 
=   New  System.Windows.Forms.TextBox
            TB_MEMO(i).Location 
=   New  System.Drawing.Point( 112 112 )
            TB_MEMO(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            TB_MEMO(i).TextAlign 
=  System.Windows.Forms.HorizontalAlignment.Left
            TB_MEMO(i).BackColor 
=  System.Drawing.Color.FromArgb( CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 192 Byte ),  Integer ))
            TB_MEMO(i).Size 
=   New  System.Drawing.Size( 800 46 )
            TB_MEMO(i).Multiline 
=   True
            TB_MEMO(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))
            TB_MEMO(i).Text 
=  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " メモ " ))

            group(i).Controls.Add(RB_INFO(i))
            group(i).Controls.Add(LB_ARR_FIXED_TITLE(i))
            group(i).Controls.Add(LB_ARR_FIXED(i))
            group(i).Controls.Add(LB_CO_DELIVERY_NO_TITLE(i))
            group(i).Controls.Add(LB_CO_DELIVERY_NO(i))
            group(i).Controls.Add(LB_HASSOU_LOT_TITLE(i))
            group(i).Controls.Add(LB_HASSOU_LOT(i))
            group(i).Controls.Add(LB_LOT_SEQ_TITLE(i))
            group(i).Controls.Add(LB_LOT_SEQ(i))
            group(i).Controls.Add(LB_SENDDATE_TITLE(i))
            group(i).Controls.Add(LB_SENDDATE(i))
            group(i).Controls.Add(LB_LABEL_DEF_NM_TITLE(i))
            group(i).Controls.Add(LB_LABEL_DEF_NM(i))
            group(i).Controls.Add(LB_STATS_TITLE(i))
            group(i).Controls.Add(LB_STATS(i))
            group(i).Controls.Add(LB_TB_MEMO(i))
            group(i).Controls.Add(TB_MEMO(i))
            GroupBox1.Controls.Add(group(i))
        
Next

        
If  ( 1   +  i)  *  intGroupY  +  intGroupHeight  *  i  >   Me .Height  Then
            GroupBox1.Height 
=  ( 1   +  i)  *  intGroupY  +  intGroupHeight  *  i
        
Else
            GroupBox1.Height 
=   Me .Height
        
End   If
        m_ArrRB_INFO 
=  RB_INFO
        m_ArrLB_ARR_FIXED 
=  LB_ARR_FIXED
        m_ArrLB_CO_DELIVERY_NO 
=  LB_CO_DELIVERY_NO
        m_ArrLB_HASSOU_LOT 
=  LB_HASSOU_LOT
        m_ArrLB_SENDDATE 
=  LB_SENDDATE
        m_ArrLB_LABEL_DEF_NM 
=  LB_LABEL_DEF_NM
        m_ArrLB_STATS 
=  LB_STATS
        m_ArrTB_MEMO 
=  TB_MEMO
    
End Sub

 

也希望DuDu 能原谅我这种提问的方式,不要删贴啊~~!谢谢!

 

解决后的代码:

Imports  BusinessSSP
Public   Class  GroupRepeate
    
Inherits  System.Windows.Forms.UserControl
    
Dim  m_DataVale  As  DataTable

    
Public   Property  DataVale()  As  DataTable
        
Get
            
Return  m_DataVale
        
End   Get
        
Set ( ByVal  Value  As  DataTable)
            m_DataVale 
=  Value
        
End   Set
    
End Property

    
Public   Shadows   Event  GotFocus( ByVal  sender  As   Object ByVal  e  As  System.EventArgs)

    
' Dim intDataCount As Integer
     ' Public Property DataCount() As Integer
     '     Get
     '         Return intDataCount
     '     End Get
     '     Set(ByVal Value As Integer)
     '         intDataCount = Value
     '     End Set
     ' End Property

    
' 詳細照会
     Private  m_ArrRB_INFO()  As  System.Windows.Forms.RadioButton
    
Public   Property  ArrRB_INFO()  As  System.Windows.Forms.RadioButton()
        
Get
            
Return  m_ArrRB_INFO
        
End   Get
        
Set ( ByVal  Value()  As  System.Windows.Forms.RadioButton)
            m_ArrRB_INFO 
=  Value
        
End   Set
    
End Property
    
' 送付先変更
     Private  m_ArrLB_ARR_FIXED()  As  System.Windows.Forms.Label
    
Public   Property  ArrLB_ARR_FIXED()  As  System.Windows.Forms.Label()
        
Get
            
Return  m_ArrLB_ARR_FIXED
        
End   Get
        
Set ( ByVal  Value()  As  System.Windows.Forms.Label)
            m_ArrLB_ARR_FIXED 
=  Value
        
End   Set
    
End Property
    
' 問番
     Private  m_ArrLB_CO_DELIVERY_NO()  As  System.Windows.Forms.Label
    
Public   Property  ArrLB_CO_DELIVERY_NO()  As  System.Windows.Forms.Label()
        
Get
            
Return  m_ArrLB_CO_DELIVERY_NO
        
End   Get
        
Set ( ByVal  Value()  As  System.Windows.Forms.Label)
            m_ArrLB_CO_DELIVERY_NO 
=  Value
        
End   Set
    
End Property
    
' 発送ロット
     Private  m_ArrLB_HASSOU_LOT()  As  System.Windows.Forms.Label
    
Public   Property  ArrLB_HASSOU_LOT()  As  System.Windows.Forms.Label()
        
Get
            
Return  m_ArrLB_HASSOU_LOT
        
End   Get
        
Set ( ByVal  Value()  As  System.Windows.Forms.Label)
            m_ArrLB_HASSOU_LOT 
=  Value
        
End   Set
    
End Property
    
' 発送管理No
     Private  m_ArrLB_LOT_SEQ()  As  System.Windows.Forms.Label
    
Public   Property  ArrLB_LOT_SEQ()  As  System.Windows.Forms.Label()
        
Get
            
Return  m_ArrLB_LOT_SEQ
        
End   Get
        
Set ( ByVal  Value()  As  System.Windows.Forms.Label)
            m_ArrLB_LOT_SEQ 
=  Value
        
End   Set
    
End Property
    
' 発送日
     Private  m_ArrLB_SENDDATE()  As  System.Windows.Forms.Label
    
Public   Property  ArrLB_SENDDATE()  As  System.Windows.Forms.Label()
        
Get
            
Return  m_ArrLB_SENDDATE
        
End   Get
        
Set ( ByVal  Value()  As  System.Windows.Forms.Label)
            m_ArrLB_SENDDATE 
=  Value
        
End   Set
    
End Property
    
' 送り状定義
     Private  m_ArrLB_LABEL_DEF_NM()  As  System.Windows.Forms.Label
    
Public   Property  ArrLB_LABEL_DEF_NM()  As  System.Windows.Forms.Label()
        
Get
            
Return  m_ArrLB_LABEL_DEF_NM
        
End   Get
        
Set ( ByVal  Value()  As  System.Windows.Forms.Label)
            m_ArrLB_LABEL_DEF_NM 
=  Value
        
End   Set
    
End Property

    
' 最新配送状況
     Private  m_ArrLB_STATS()  As  System.Windows.Forms.Label
    
Friend   WithEvents  GroupBox1  As  System.Windows.Forms.Panel
    
Public   Property  ArrLB_STATS()  As  System.Windows.Forms.Label()
        
Get
            
Return  m_ArrLB_STATS
        
End   Get
        
Set ( ByVal  Value()  As  System.Windows.Forms.Label)
            m_ArrLB_STATS 
=  Value
        
End   Set
    
End Property
    
' メモ()
     Private  m_ArrTB_MEMO()  As  System.Windows.Forms.TextBox
    
Public   Property  ArrTB_MEMO()  As  System.Windows.Forms.TextBox()
        
Get
            
Return  m_ArrTB_MEMO
        
End   Get
        
Set ( ByVal  Value()  As  System.Windows.Forms.TextBox)
            m_ArrTB_MEMO 
=  Value
        
End   Set
    
End Property


#Region  " Windows フォーム デザイナで生成されたコード "

    
Public   Sub   New ()
        
MyBase .New()

        
'  この呼び出しは Windows フォーム デザイナで必要です。
        InitializeComponent()

        
'  InitializeComponent() 呼び出しの後に初期化を追加します。

    
End Sub

    
' UserControl はコンポーネント一覧を消去するために dispose をオーバーライドします。
     Protected   Overloads   Overrides   Sub  Dispose( ByVal  disposing  As   Boolean )
        
If  disposing  Then
            
If   Not  (components  Is   Nothing Then
                components.Dispose()
            
End   If
        
End   If
        
MyBase .Dispose(disposing)
    
End Sub

    
'  Windows フォーム デザイナで必要です。
     Private  components  As  System.ComponentModel.IContainer

    
'  メモ : 以下のプロシージャは、Windows フォーム デザイナで必要です。
     ' Windows フォーム デザイナを使って変更してください。  
     '  コード エディタを使って変更しないでください。
     < System.Diagnostics.DebuggerStepThrough() >   Private   Sub  InitializeComponent()
        
Me .GroupBox1  =   New  System.Windows.Forms.Panel
        
Me .SuspendLayout()
        
'
         ' GroupBox1
         '
         Me .GroupBox1.Location  =   New  System.Drawing.Point( 0 0 )
        
Me .GroupBox1.Name  =   " GroupBox1 "
        
Me .GroupBox1.Size  =   New  System.Drawing.Size( 956 355 )
        
Me .GroupBox1.TabIndex  =   0
        
'
         ' GroupRepeate
         '
         Me .AutoScroll  =   True
        
Me .Controls.Add( Me .GroupBox1)
        
Me .Name  =   " GroupRepeate "
        
Me .Size  =   New  System.Drawing.Size( 956 355 )
        
Me .ResumeLayout( False )

    
End Sub

#End Region

    
Private   Sub  GroupRepeate_Load( ByVal  sender  As   Object ByVal  e  As  System.EventArgs)  Handles   MyBase .Load
        GroupBox1.Width 
=   Me .Width  -   17
        InitProcess()
    
End Sub


    
' ************************************************************
     ' 関数名         : GroupRepeate.InitProcess
     ' 機能説明       : 送り状情報 連番                
     ' 入力値         : 無し
     ' 出力値         : 無し
     ' 戻り値         : 
     ' その他         : 
     ' 作成者        : 童斌
     ' 作成日付       : 2009/02/25
     ' ***********************************************************
     Private   Sub  InitProcess()

        
If  (m_DataVale  Is   Nothing Then
            
Me .Visible  =   False
            
Return
        
End   If
        
If  m_DataVale.Rows.Count  <   1   Then
            
Me .Visible  =   False
            
Return
        
End   If

        
Dim  intDataCount  As   Integer   =  m_DataVale.Rows.Count

        
Dim  intGroupX  As   Integer   =   8
        
Dim  intGroupY  As   Integer   =   5
        
Dim  intGroupHeight  As   Integer   =   170
        
Dim  intGroupWidth  As   Integer   =  GroupBox1.Width  -   17
        
Dim  group(intDataCount)  As  System.Windows.Forms.GroupBox

        
' 詳細照会
         Dim  RB_INFO(intDataCount)  As  System.Windows.Forms.RadioButton

        
Dim intGroupRBX As Integer = 15
        Dim intGroupRBY As Integer = 15

        
' 送付先変更
         Dim  LB_ARR_FIXED_TITLE(intDataCount)  As  System.Windows.Forms.Label
        
Dim  LB_ARR_FIXED(intDataCount)  As  System.Windows.Forms.Label
        
' 問番
         Dim  LB_CO_DELIVERY_NO_TITLE(intDataCount)  As  System.Windows.Forms.Label
        
Dim  LB_CO_DELIVERY_NO(intDataCount)  As  System.Windows.Forms.Label
        
' 発送ロット
         Dim  LB_HASSOU_LOT_TITLE(intDataCount)  As  System.Windows.Forms.Label
        
Dim  LB_HASSOU_LOT(intDataCount)  As  System.Windows.Forms.Label
        
' 発送管理No
         Dim  LB_LOT_SEQ_TITLE(intDataCount)  As  System.Windows.Forms.Label
        
Dim  LB_LOT_SEQ(intDataCount)  As  System.Windows.Forms.Label
        
' 発送日
         Dim  LB_SENDDATE_TITLE(intDataCount)  As  System.Windows.Forms.Label
        
Dim  LB_SENDDATE(intDataCount)  As  System.Windows.Forms.Label
        
' 送り状定義
         Dim  LB_LABEL_DEF_NM_TITLE(intDataCount)  As  System.Windows.Forms.Label
        
Dim  LB_LABEL_DEF_NM(intDataCount)  As  System.Windows.Forms.Label
        
' 最新配送状況
         Dim  LB_STATS_TITLE(intDataCount)  As  System.Windows.Forms.Label
        
Dim  LB_STATS(intDataCount)  As  System.Windows.Forms.Label
        
' メモ()
         Dim  LB_TB_MEMO(intDataCount)  As  System.Windows.Forms.Label
        
Dim  TB_MEMO(intDataCount)  As  System.Windows.Forms.TextBox

        
Dim  i  As   Integer
        
For  i  =   0   To  intDataCount  -   1
            
' 送り状情報 連番
            group(i)  =   New  System.Windows.Forms.GroupBox
            group(i).Text 
=   " 送り状情報 "   &  i  +   1
            group(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))
            group(i).Height 
=  intGroupHeight
            group(i).Width 
=  intGroupWidth
            group(i).Location 
=   New  System.Drawing.Point(intGroupX, ( 1   +  i)  *  intGroupY  +  intGroupHeight  *  i)

            
' 詳細照会
            RB_INFO(i)  =   New  System.Windows.Forms.RadioButton
            RB_INFO(i).Text 
=   " 詳細照会 "
           
 RB_INFO(i).Location = New System.Drawing.Point(intGroupRBX, group(i).Location.Y + intGroupRBY)
            RB_INFO(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))
            RB_INFO(i).Name 
=   " RB "   &  i
            
' 送付先変更
            LB_ARR_FIXED_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_ARR_FIXED_TITLE(i).Text 
=   " 送付先変更 "
            LB_ARR_FIXED_TITLE(i).Location 
=   New  System.Drawing.Point( 10 40 )
            LB_ARR_FIXED_TITLE(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_ARR_FIXED_TITLE(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleCenter
            LB_ARR_FIXED_TITLE(i).BackColor 
=  System.Drawing.SystemColors.Control
            LB_ARR_FIXED_TITLE(i).Size 
=   New  System.Drawing.Size( 102 23 )
            LB_ARR_FIXED_TITLE(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))

            LB_ARR_FIXED(i) 
=   New  System.Windows.Forms.Label
            LB_ARR_FIXED(i).Text 
=   " "
            LB_ARR_FIXED(i).Location 
=   New  System.Drawing.Point( 112 40 )
            LB_ARR_FIXED(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_ARR_FIXED(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleLeft
            LB_ARR_FIXED(i).BackColor 
=  System.Drawing.Color.FromArgb( CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 192 Byte ),  Integer ))
            LB_ARR_FIXED(i).Size 
=   New  System.Drawing.Size( 30 23 )
            LB_ARR_FIXED(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))
            LB_ARR_FIXED(i).Text 
=  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 送付先変更 " ))

            
' 問番
            LB_CO_DELIVERY_NO_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_CO_DELIVERY_NO_TITLE(i).Text 
=   " 問番 "
            LB_CO_DELIVERY_NO_TITLE(i).Location 
=   New  System.Drawing.Point( 10 64 )
            LB_CO_DELIVERY_NO_TITLE(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_CO_DELIVERY_NO_TITLE(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleCenter
            LB_CO_DELIVERY_NO_TITLE(i).BackColor 
=  System.Drawing.SystemColors.Control
            LB_CO_DELIVERY_NO_TITLE(i).Size 
=   New  System.Drawing.Size( 102 23 )
            LB_CO_DELIVERY_NO_TITLE(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))

            LB_CO_DELIVERY_NO(i) 
=   New  System.Windows.Forms.Label
            LB_CO_DELIVERY_NO(i).Location 
=   New  System.Drawing.Point( 112 64 )
            LB_CO_DELIVERY_NO(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_CO_DELIVERY_NO(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleLeft
            LB_CO_DELIVERY_NO(i).BackColor 
=  System.Drawing.Color.FromArgb( CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 192 Byte ),  Integer ))
            LB_CO_DELIVERY_NO(i).Size 
=   New  System.Drawing.Size( 128 23 )
            LB_CO_DELIVERY_NO(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))
            LB_CO_DELIVERY_NO(i).Text 
=  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 問番 " ))
            
' 発送ロット
            LB_HASSOU_LOT_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_HASSOU_LOT_TITLE(i).Text 
=   " 発送ロット "
            LB_HASSOU_LOT_TITLE(i).Location 
=   New  System.Drawing.Point( 248 64 )
            LB_HASSOU_LOT_TITLE(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_HASSOU_LOT_TITLE(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleCenter
            LB_HASSOU_LOT_TITLE(i).BackColor 
=  System.Drawing.SystemColors.Control
            LB_HASSOU_LOT_TITLE(i).Size 
=   New  System.Drawing.Size( 102 23 )
            LB_HASSOU_LOT_TITLE(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))

            LB_HASSOU_LOT(i) 
=   New  System.Windows.Forms.Label
            LB_HASSOU_LOT(i).Location 
=   New  System.Drawing.Point( 350 64 )
            LB_HASSOU_LOT(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_HASSOU_LOT(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleLeft
            LB_HASSOU_LOT(i).BackColor 
=  System.Drawing.Color.FromArgb( CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 192 Byte ),  Integer ))
            LB_HASSOU_LOT(i).Size 
=   New  System.Drawing.Size( 108 23 )
            LB_HASSOU_LOT(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))
            LB_HASSOU_LOT(i).Text 
=  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 発送ロット " ))
            
' 発送管理No
            LB_LOT_SEQ_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_LOT_SEQ_TITLE(i).Text 
=   " 発送管理No "
            LB_LOT_SEQ_TITLE(i).Location 
=   New  System.Drawing.Point( 464 64 )
            LB_LOT_SEQ_TITLE(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_LOT_SEQ_TITLE(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleCenter
            LB_LOT_SEQ_TITLE(i).BackColor 
=  System.Drawing.SystemColors.Control
            LB_LOT_SEQ_TITLE(i).Size 
=   New  System.Drawing.Size( 111 23 )
            LB_LOT_SEQ_TITLE(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))

            LB_LOT_SEQ(i) 
=   New  System.Windows.Forms.Label
            LB_LOT_SEQ(i).Text 
=   " H2232+5645 "
            LB_LOT_SEQ(i).Location 
=   New  System.Drawing.Point( 575 64 )
            LB_LOT_SEQ(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_LOT_SEQ(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleLeft
            LB_LOT_SEQ(i).BackColor 
=  System.Drawing.Color.FromArgb( CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 192 Byte ),  Integer ))
            LB_LOT_SEQ(i).Size 
=   New  System.Drawing.Size( 128 23 )
            LB_LOT_SEQ(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))
            LB_LOT_SEQ(i).Text 
=  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 発送管理No " ))
            
' 発送日
            LB_SENDDATE_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_SENDDATE_TITLE(i).Text 
=   " 発送日 "
            LB_SENDDATE_TITLE(i).Location 
=   New  System.Drawing.Point( 708 64 )
            LB_SENDDATE_TITLE(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_SENDDATE_TITLE(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleCenter
            LB_SENDDATE_TITLE(i).BackColor 
=  System.Drawing.SystemColors.Control
            LB_SENDDATE_TITLE(i).Size 
=   New  System.Drawing.Size( 102 23 )
            LB_SENDDATE_TITLE(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))

            LB_SENDDATE(i) 
=   New  System.Windows.Forms.Label
            LB_SENDDATE(i).Location 
=   New  System.Drawing.Point( 810 64 )
            LB_SENDDATE(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_SENDDATE(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleLeft
            LB_SENDDATE(i).BackColor 
=  System.Drawing.Color.FromArgb( CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 192 Byte ),  Integer ))
            LB_SENDDATE(i).Size 
=   New  System.Drawing.Size( 100 23 )
            LB_SENDDATE(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))
            LB_SENDDATE(i).Text 
=  mdlFunction.FormatDataToYMD(mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 発送日 " )))
            
' 送り状定義
            LB_LABEL_DEF_NM_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_LABEL_DEF_NM_TITLE(i).Text 
=   " 送り状定義 "
            LB_LABEL_DEF_NM_TITLE(i).Location 
=   New  System.Drawing.Point( 10 88 )
            LB_LABEL_DEF_NM_TITLE(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_LABEL_DEF_NM_TITLE(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleCenter
            LB_LABEL_DEF_NM_TITLE(i).BackColor 
=  System.Drawing.SystemColors.Control
            LB_LABEL_DEF_NM_TITLE(i).Size 
=   New  System.Drawing.Size( 102 23 )
            LB_LABEL_DEF_NM_TITLE(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))

            LB_LABEL_DEF_NM(i) 
=   New  System.Windows.Forms.Label
            LB_LABEL_DEF_NM(i).Location 
=   New  System.Drawing.Point( 112 88 )
            LB_LABEL_DEF_NM(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_LABEL_DEF_NM(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleCenter
            LB_LABEL_DEF_NM(i).BackColor 
=  System.Drawing.Color.FromArgb( CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 192 Byte ),  Integer ))
            LB_LABEL_DEF_NM(i).Size 
=   New  System.Drawing.Size( 346 23 )
            LB_LABEL_DEF_NM(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))
            LB_LABEL_DEF_NM(i).Text 
=  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 送り状定義 " ))
            
' 最新配送状況 
            LB_STATS_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_STATS_TITLE(i).Text 
=   " 最新配送状況 "
            LB_STATS_TITLE(i).Location 
=   New  System.Drawing.Point( 464 88 )
            LB_STATS_TITLE(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_STATS_TITLE(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleCenter
            LB_STATS_TITLE(i).BackColor 
=  System.Drawing.SystemColors.Control
            LB_STATS_TITLE(i).Size 
=   New  System.Drawing.Size( 111 23 )
            LB_STATS_TITLE(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))

            LB_STATS(i) 
=   New  System.Windows.Forms.Label
            LB_STATS(i).Location 
=   New  System.Drawing.Point( 575 88 )
            LB_STATS(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_STATS(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleLeft
            LB_STATS(i).BackColor 
=  System.Drawing.Color.FromArgb( CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 192 Byte ),  Integer ))
            LB_STATS(i).Size 
=   New  System.Drawing.Size( 128 23 )
            LB_STATS(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))
            LB_STATS(i).Text 
=  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 最新配送状況 " ))
            
' メモ
            LB_TB_MEMO(i)  =   New  System.Windows.Forms.Label
            LB_TB_MEMO(i).Text 
=   " メモ "
            LB_TB_MEMO(i).Location 
=   New  System.Drawing.Point( 10 112 )
            LB_TB_MEMO(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            LB_TB_MEMO(i).TextAlign 
=  System.Drawing.ContentAlignment.MiddleCenter
            LB_TB_MEMO(i).BackColor 
=  System.Drawing.SystemColors.Control
            LB_TB_MEMO(i).Size 
=   New  System.Drawing.Size( 102 23 )
            LB_TB_MEMO(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))

            TB_MEMO(i) 
=   New  System.Windows.Forms.TextBox
            TB_MEMO(i).Location 
=   New  System.Drawing.Point( 112 112 )
            TB_MEMO(i).BorderStyle 
=  System.Windows.Forms.BorderStyle.Fixed3D
            TB_MEMO(i).TextAlign 
=  System.Windows.Forms.HorizontalAlignment.Left
            TB_MEMO(i).BackColor 
=  System.Drawing.Color.FromArgb( CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 255 Byte ),  Integer ),  CType ( CType ( 192 Byte ),  Integer ))
            TB_MEMO(i).Size 
=   New  System.Drawing.Size( 800 46 )
            TB_MEMO(i).Multiline 
=   True
            TB_MEMO(i).Font 
=   New  System.Drawing.Font( " MS ゴシック " 11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 Byte ))
            TB_MEMO(i).Text 
=  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " メモ " ))

           
 'group(i).Controls.Add(RB_INFO(i))
            group(i).Controls.Add(LB_ARR_FIXED_TITLE(i))
            group(i).Controls.Add(LB_ARR_FIXED(i))
            group(i).Controls.Add(LB_CO_DELIVERY_NO_TITLE(i))
            group(i).Controls.Add(LB_CO_DELIVERY_NO(i))
            group(i).Controls.Add(LB_HASSOU_LOT_TITLE(i))
            group(i).Controls.Add(LB_HASSOU_LOT(i))
            group(i).Controls.Add(LB_LOT_SEQ_TITLE(i))
            group(i).Controls.Add(LB_LOT_SEQ(i))
            group(i).Controls.Add(LB_SENDDATE_TITLE(i))
            group(i).Controls.Add(LB_SENDDATE(i))
            group(i).Controls.Add(LB_LABEL_DEF_NM_TITLE(i))
            group(i).Controls.Add(LB_LABEL_DEF_NM(i))
            group(i).Controls.Add(LB_STATS_TITLE(i))
            group(i).Controls.Add(LB_STATS(i))
            group(i).Controls.Add(LB_TB_MEMO(i))
            group(i).Controls.Add(TB_MEMO(i))
            GroupBox1.Controls.Add(RB_INFO(i))
            GroupBox1.Controls.Add(group(i))
        
Next

        
If  ( 1   +  i)  *  intGroupY  +  intGroupHeight  *  i  >   Me .Height  Then
            GroupBox1.Height 
=  ( 1   +  i)  *  intGroupY  +  intGroupHeight  *  i
        
Else
            GroupBox1.Height 
=   Me .Height
        
End   If
        m_ArrRB_INFO 
=  RB_INFO
        m_ArrLB_ARR_FIXED 
=  LB_ARR_FIXED
        m_ArrLB_CO_DELIVERY_NO 
=  LB_CO_DELIVERY_NO
        m_ArrLB_HASSOU_LOT 
=  LB_HASSOU_LOT
        m_ArrLB_SENDDATE 
=  LB_SENDDATE
        m_ArrLB_LABEL_DEF_NM 
=  LB_LABEL_DEF_NM
        m_ArrLB_STATS 
=  LB_STATS
        m_ArrTB_MEMO 
=  TB_MEMO
        m_ArrLB_LOT_SEQ 
=  LB_LOT_SEQ
    
End Sub

End Class

 

 调用该控件的代码:

         Dim  dtTable  As   New  DataTable
        ..
        
Dim  GroupRepeate1  As   New  UserControls.GroupRepeate
        GroupRepeate1.ArrLB_LOT_SEQ 
=   Nothing
        GroupRepeate1.AutoScroll 
=   True
        GroupRepeate1.DataVale 
=   Nothing
        GroupRepeate1.Location 
=   New  System.Drawing.Point( 9 302 )
        GroupRepeate1.Name 
=   " GroupRepeate1 "
        GroupRepeate1.Size 
=   New  System.Drawing.Size( 956 351 )
        GroupRepeate1.DataVale 
=  dtTable
        
Me .Controls.Add(GroupRepeate1)

 

 

 

 

转载于:https://www.cnblogs.com/tonybinlj/archive/2009/02/26/1398487.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值