不同的容器里实现 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("ＭＳゴシック", 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()

Dim intDataCount As Integer = m_DataVale.Rows.Count

'詳細照会
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

'詳細照会
            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))

'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

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

不同的容器里实现 RadioButton的单选相关推荐

WPF的ListBox中的RadioButton不能单选问题
WPF不知道是微软故意弄的还是真的匆忙的推出的产品,在实际开发过程中有很多小问题解决很麻烦. 今天主要说一下ListBox中使用RadioButton的时候里面的RadioButton不能单选!居然成 ...
RadioGroup和RadioButton，单选框(Android)
转载自:https://www.cnblogs.com/Im-Victor/p/6238437.html 仅仅是为了以后查找方便,又怕博主删掉原文.望见谅. 实现RadioButton由两部分组成,也 ...
图片在容器里垂直居中
在div-css布局运用中,如何让图片在容器里垂直居中是很多人询问的问题,这里收集了几个例子第一个例子 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTM ...
关于页面元素在父容器里水平居中、垂直居中的问题
2019独角兽企业重金招聘Python工程师标准>>> .container{margin-right: auto;/**容器水平居中*/margin-left: auto;widt ...
如何关闭docker容器里的进程
如何关闭docker容器里的进程 1.使用docker exec 容器名 ps -ef命令查看进程信息示例: 创建名为"redis"的容器,并在容器内部和宿主机中查看容器中的进程 ...
在容器里设置GOMAXPROCS的正确姿势
GOMAXPROCS 是 Go 提供的非常重要的一个环境变量.通过设定 GOMAXPROCS,用户可以调整调度器中 Processor(简称P)的数量.由于每个系统线程必须要绑定 P ,P 才能把 G ...
radiogroup多选_为何多组RadioGroup 里面的RadioButton 会出现多选状态？
为何同一组RadioGroup 里面的RadioButton 会出现多选状态? 最近在做一个项目,有两排RadioGroup,每一排radioGroup有五个radiobutton,我分别给每一个Ra ...
在docker容器里的Linux环境下,执行netstat命令显示 command not found
在docker容器里 root@38f61d87d288:/# netstat -ano | grep 80 bash: netstat: command not found 于是想安装 netsta ...
如何在Docker容器里开启fail2ban防止SSH暴力破解
一.前提介绍 Docker容器里开启了SSH服务,但是发现有大量的暴力破解进程,需要使用fail2ban防止SSH暴力破解,将攻击的IP拉黑. 二.原因分析但是直接安装fail2ban,和没有使用容 ...

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

不同的容器里实现 RadioButton的单选相关推荐

最新文章

热门文章