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


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


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

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

    以下是具体的生成代码:

        Private Sub InitProcess()

            
    If (m_DataVale Is NothingThen
                
    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(128Byte))
                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(1015)
                RB_INFO(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))
                
    '送付先変更
                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(1040)
                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(10223)
                LB_ARR_FIXED_TITLE(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))

                LB_ARR_FIXED(i) 
    = New System.Windows.Forms.Label
                LB_ARR_FIXED(i).Text 
    = ""
                LB_ARR_FIXED(i).Location 
    = New System.Drawing.Point(11240)
                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(255Byte), Integer), CType(CType(255Byte), Integer), CType(CType(192Byte), Integer))
                LB_ARR_FIXED(i).Size 
    = New System.Drawing.Size(3023)
                LB_ARR_FIXED(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))
                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(1064)
                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(10223)
                LB_CO_DELIVERY_NO_TITLE(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))

                LB_CO_DELIVERY_NO(i) 
    = New System.Windows.Forms.Label
                LB_CO_DELIVERY_NO(i).Location 
    = New System.Drawing.Point(11264)
                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(255Byte), Integer), CType(CType(255Byte), Integer), CType(CType(192Byte), Integer))
                LB_CO_DELIVERY_NO(i).Size 
    = New System.Drawing.Size(12823)
                LB_CO_DELIVERY_NO(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))
                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(24864)
                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(10223)
                LB_HASSOU_LOT_TITLE(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))

                LB_HASSOU_LOT(i) 
    = New System.Windows.Forms.Label
                LB_HASSOU_LOT(i).Location 
    = New System.Drawing.Point(35064)
                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(255Byte), Integer), CType(CType(255Byte), Integer), CType(CType(192Byte), Integer))
                LB_HASSOU_LOT(i).Size 
    = New System.Drawing.Size(10823)
                LB_HASSOU_LOT(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))
                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(46464)
                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(11123)
                LB_LOT_SEQ_TITLE(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))

                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(57564)
                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(255Byte), Integer), CType(CType(255Byte), Integer), CType(CType(192Byte), Integer))
                LB_LOT_SEQ(i).Size 
    = New System.Drawing.Size(12823)
                LB_LOT_SEQ(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))
                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(70864)
                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(10223)
                LB_SENDDATE_TITLE(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))

                LB_SENDDATE(i) 
    = New System.Windows.Forms.Label
                LB_SENDDATE(i).Location 
    = New System.Drawing.Point(81064)
                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(255Byte), Integer), CType(CType(255Byte), Integer), CType(CType(192Byte), Integer))
                LB_SENDDATE(i).Size 
    = New System.Drawing.Size(10023)
                LB_SENDDATE(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))
                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(1088)
                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(10223)
                LB_LABEL_DEF_NM_TITLE(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))

                LB_LABEL_DEF_NM(i) 
    = New System.Windows.Forms.Label
                LB_LABEL_DEF_NM(i).Location 
    = New System.Drawing.Point(11288)
                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(255Byte), Integer), CType(CType(255Byte), Integer), CType(CType(192Byte), Integer))
                LB_LABEL_DEF_NM(i).Size 
    = New System.Drawing.Size(34623)
                LB_LABEL_DEF_NM(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))
                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(46488)
                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(11123)
                LB_STATS_TITLE(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))

                LB_STATS(i) 
    = New System.Windows.Forms.Label
                LB_STATS(i).Location 
    = New System.Drawing.Point(57588)
                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(255Byte), Integer), CType(CType(255Byte), Integer), CType(CType(192Byte), Integer))
                LB_STATS(i).Size 
    = New System.Drawing.Size(12823)
                LB_STATS(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))
                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(10112)
                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(10223)
                LB_TB_MEMO(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))

                TB_MEMO(i) 
    = New System.Windows.Forms.TextBox
                TB_MEMO(i).Location 
    = New System.Drawing.Point(112112)
                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(255Byte), Integer), CType(CType(255Byte), Integer), CType(CType(192Byte), Integer))
                TB_MEMO(i).Size 
    = New System.Drawing.Size(80046)
                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(128Byte))
                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 ObjectByVal 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 NothingThen
                    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(00)
            
    Me.GroupBox1.Name = "GroupBox1"
            
    Me.GroupBox1.Size = New System.Drawing.Size(956355)
            
    Me.GroupBox1.TabIndex = 0
            
    '
            'GroupRepeate
            '
            Me.AutoScroll = True
            
    Me.Controls.Add(Me.GroupBox1)
            
    Me.Name = "GroupRepeate"
            
    Me.Size = New System.Drawing.Size(956355)
            
    Me.ResumeLayout(False)

        
    End Sub

    #End Region

        
    Private Sub GroupRepeate_Load(ByVal sender As ObjectByVal 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 NothingThen
                
    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(128Byte))
                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(128Byte))
                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(1040)
                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(10223)
                LB_ARR_FIXED_TITLE(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))

                LB_ARR_FIXED(i) 
    = New System.Windows.Forms.Label
                LB_ARR_FIXED(i).Text 
    = ""
                LB_ARR_FIXED(i).Location 
    = New System.Drawing.Point(11240)
                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(255Byte), Integer), CType(CType(255Byte), Integer), CType(CType(192Byte), Integer))
                LB_ARR_FIXED(i).Size 
    = New System.Drawing.Size(3023)
                LB_ARR_FIXED(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))
                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(1064)
                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(10223)
                LB_CO_DELIVERY_NO_TITLE(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))

                LB_CO_DELIVERY_NO(i) 
    = New System.Windows.Forms.Label
                LB_CO_DELIVERY_NO(i).Location 
    = New System.Drawing.Point(11264)
                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(255Byte), Integer), CType(CType(255Byte), Integer), CType(CType(192Byte), Integer))
                LB_CO_DELIVERY_NO(i).Size 
    = New System.Drawing.Size(12823)
                LB_CO_DELIVERY_NO(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))
                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(24864)
                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(10223)
                LB_HASSOU_LOT_TITLE(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))

                LB_HASSOU_LOT(i) 
    = New System.Windows.Forms.Label
                LB_HASSOU_LOT(i).Location 
    = New System.Drawing.Point(35064)
                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(255Byte), Integer), CType(CType(255Byte), Integer), CType(CType(192Byte), Integer))
                LB_HASSOU_LOT(i).Size 
    = New System.Drawing.Size(10823)
                LB_HASSOU_LOT(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))
                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(46464)
                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(11123)
                LB_LOT_SEQ_TITLE(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))

                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(57564)
                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(255Byte), Integer), CType(CType(255Byte), Integer), CType(CType(192Byte), Integer))
                LB_LOT_SEQ(i).Size 
    = New System.Drawing.Size(12823)
                LB_LOT_SEQ(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))
                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(70864)
                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(10223)
                LB_SENDDATE_TITLE(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))

                LB_SENDDATE(i) 
    = New System.Windows.Forms.Label
                LB_SENDDATE(i).Location 
    = New System.Drawing.Point(81064)
                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(255Byte), Integer), CType(CType(255Byte), Integer), CType(CType(192Byte), Integer))
                LB_SENDDATE(i).Size 
    = New System.Drawing.Size(10023)
                LB_SENDDATE(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))
                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(1088)
                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(10223)
                LB_LABEL_DEF_NM_TITLE(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))

                LB_LABEL_DEF_NM(i) 
    = New System.Windows.Forms.Label
                LB_LABEL_DEF_NM(i).Location 
    = New System.Drawing.Point(11288)
                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(255Byte), Integer), CType(CType(255Byte), Integer), CType(CType(192Byte), Integer))
                LB_LABEL_DEF_NM(i).Size 
    = New System.Drawing.Size(34623)
                LB_LABEL_DEF_NM(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))
                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(46488)
                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(11123)
                LB_STATS_TITLE(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))

                LB_STATS(i) 
    = New System.Windows.Forms.Label
                LB_STATS(i).Location 
    = New System.Drawing.Point(57588)
                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(255Byte), Integer), CType(CType(255Byte), Integer), CType(CType(192Byte), Integer))
                LB_STATS(i).Size 
    = New System.Drawing.Size(12823)
                LB_STATS(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))
                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(10112)
                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(10223)
                LB_TB_MEMO(i).Font 
    = New System.Drawing.Font("MS ゴシック"11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128Byte))

                TB_MEMO(i) 
    = New System.Windows.Forms.TextBox
                TB_MEMO(i).Location 
    = New System.Drawing.Point(112112)
                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(255Byte), Integer), CType(CType(255Byte), Integer), CType(CType(192Byte), Integer))
                TB_MEMO(i).Size 
    = New System.Drawing.Size(80046)
                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(128Byte))
                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(9302)
            GroupRepeate1.Name 
    = "GroupRepeate1"
            GroupRepeate1.Size 
    = New System.Drawing.Size(956351)
            GroupRepeate1.DataVale 
    = dtTable
            
    Me.Controls.Add(GroupRepeate1)
  • 相关阅读:
    Codeforces 1166 D. Cute Sequences 构造
    ZOJ 4103 浙江省第16届大学生程序设计竞赛 D题 Traveler 构造
    ZOJ 4100 浙江省第16届大学生程序设计竞赛 A题 Vertices in the Pocket 线段树+并查集
    若干结论和定理(持续更新)
    三类经典贪心问题
    2018 ICPC Asia Xuzhou Regional M. Rikka with Illuminations
    Educational Codeforces Round 99
    2018 CCPC-Final K
    2020浙江省赛 Huge Clouds
    BZOJ1030 文本生成器(AC自动机+DP)
  • 原文地址:https://www.cnblogs.com/tonybinlj/p/1398487.html
Copyright © 2020-2023  润新知