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

最新推荐文章于 2019-06-20 20:24:25 发布
最新推荐文章于 2019-06-20 20:24:25 发布
阅读量344 收藏
点赞数
原文链接：http://www.cnblogs.com/tonybinlj/archive/2009/02/26/1398487.html
版权

请教一个各位牛人一个问题，如图：    （问题解决，见后面的解决方案~~）


怎么在不同的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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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( " ＭＳ ゴシック " ,  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

weixin_30563319
关注
java中radiobutton单选按钮_Android-RadioButton单选按钮控件详解
weixin_31310737的博客
02-27 988
RadioButton是单选按钮，允许用户在一个组中选择一个选项。同一组中的单选按钮有互斥效果。RadioButton的特点1.RadioButton是圆形单选框；2.RadioGroup是个可以容纳多个RadioButton的容器；3.在RadioGroup中的RadioButton控件可以有多个，但同时有且仅有一个可以被选中。示例Demo在布局文件中定义RadioGroup在RadioGrou...
RadioGroup与RadioButton详解
huahuahua333686的博客
08-17 2272
实现RadioButton由两部分组成,也就是RadioButton和RadioGroup配合使用.RadioGroup是单选组合框，可以容纳多个RadioButton的容器.在没有RadioGroup的情况下，RadioButton可以全部都选中；当多个RadioButton被RadioGroup包含的情况下，RadioButton只可以选择一个。并用setOnCheckedChangeList
扩展RadioButton，实现在不同容器中互斥选择
weixin_34273479的博客
06-06 509
扩展RadioButton，增加GroupName属性（默认为String.Empty)，如果GroupName相同，则不同容器中的RadioButton也可以互斥选择。代码如下： public class RadioButtonEx : RadioButton { private string _groupName = string.Empty; publi...
类型RadioButton的控件必须放在runat=server的容器里
shuangqin_huang的专栏
07-25 492
 今天，遇到了这个问题……第一次碰到啊……解决方法呢，就是，我的aspx页面里，radiobutton没放在容器 如form、table、panel  且 runat=server 里。在我添加了 后就Ok了。O(∩_∩)O哈哈~
<原创>获取窗口上RadioButton的Tag值
weixin_30824277的博客
04-02 387
private void button2_Click(object sender, EventArgs e) { CheckRadioButton(); } List<RadioButton> rList = new List<RadioButton>(); private void ...
Winform中实现多个RadioButton的单选和多选
热门推荐
weixin_39559414的博客
06-20 1万+
最近做ISP项目用到winfrom，记录一下一些控件的使用，方便后期使用查询。
GridView实现RadioButton单选效果
08-11
通过以上步骤，我们就可以在GridView中实现RadioButton的分行单选效果。这种实现方式使得用户在多个选项中选择时有清晰的视觉反馈，提高了用户体验。同时，通过适配器和事件监听的配合，我们可以灵活地控制每个项目...
Android RadioButton单选框的使用方法
09-05
在这个例子中，`RadioGroup`是所有RadioButton的容器，它的`orientation`属性设置为"vertical"，表示RadioButton将垂直排列。每个`RadioButton`都有一个独特的ID（`girl`和`boy`），`text`属性用于显示按钮上的文本...
RadioButton实现多行多列单选
12-28
`RadioButton`属于`RadioGroup`的一部分，`RadioGroup`是一个可以包含多个`RadioButton`的容器，它负责管理组内的单选行为。默认情况下，`RadioGroup`中的一个`RadioButton`可以被选中，而其他`RadioButton`则会被...
android 自定义单选按钮radioButton
10-29
RadioGroup是管理RadioButton的容器，它可以自动处理RadioButton之间的互斥关系： ```xml android:id="@+id/radio_group" android:layout_width="wrap_content" android:layout_height="wrap_content"> ...
WPF的Radiobutton使用
weixin_30896763的博客
12-19 1057
当界面上出现多组Radiobutton时，将所有的Radiobutton写在同一个Grid里面，导致系统认为所有的Radiobutton是同一组，造成选择混乱，解决的方法： 1.要为属于同个组的Radiobutton设置相同的GroupName，绑定同一个变量； 2.若没有为Radiobutton设置GroupName，则将属于同一组的Radiobutton放在一个容器中，如wrappanne...
PyGobject（十一）布局容器之Button篇——Gtk.RadioButton
Yu的专栏
07-26 2027
Gtk.RadioButton继承关系Gtk.RadioButton复选框。Gtk.RadioButton是Gtk.CheckButton的直接子类
vb.net UltraChart画柱状图
04-26 2335
Form2.Designer.vb文件 _ Partial Class Form2     Inherits System.Windows.Forms.Form     'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。     _     Protected Overrides Sub Dispose(ByVal disposin
RadioButton在数据列表中实现单选功能
weixin_33812433的博客
08-14 311
在服务器端动态生成的name总是不断变化，故需手动实现单选 ; 1 <html xmlns="http://www.w3.org/1999/xhtml"> 2 <head runat="server"> 3 <title></title> 4 <script src="../Scripts/jquery-...
RadioGroup实现多行单选框布局与问题解决
本文档主要介绍了如何在Android开发中使用`RadioGroup`实现单选框的多行排列。通常，`RadioGroup`用于管理一组相互排斥的单选按钮，但默认情况下，它们是按照水平方向排列的。然而，如果需要创建多行排列的单选框，...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值