不同的容器里实现 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()

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)