请教一个各位牛人一个问题,如图: (问题解决,见后面的解决方案~~)
怎么在不同的winform容器(GroupBox)里实现 RadioButton (如图中两个“详细照会”)的单选,请各位牛人给出实现的思路,不甚感谢。
GroupBox() 送り状情報1,送り状情報2......是动态生成的。
以下是具体的生成代码:
Private Sub InitProcess()
If (m_DataVale Is Nothing) Then
Me.Visible = False
Return
End If
If m_DataVale.Rows.Count < 1 Then
Me.Visible = False
Return
End If
Dim intDataCount As Integer = m_DataVale.Rows.Count
Dim intGroupX As Integer = 8
Dim intGroupY As Integer = 5
Dim intGroupHeight As Integer = 170
Dim intGroupWidth As Integer = GroupBox1.Width - 17
Dim group(intDataCount) As System.Windows.Forms.GroupBox
'詳細照会
Dim RB_INFO(intDataCount) As System.Windows.Forms.RadioButton
'送付先変更
Dim LB_ARR_FIXED_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_ARR_FIXED(intDataCount) As System.Windows.Forms.Label
'問番
Dim LB_CO_DELIVERY_NO_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_CO_DELIVERY_NO(intDataCount) As System.Windows.Forms.Label
'発送ロット
Dim LB_HASSOU_LOT_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_HASSOU_LOT(intDataCount) As System.Windows.Forms.Label
'発送管理No
Dim LB_LOT_SEQ_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_LOT_SEQ(intDataCount) As System.Windows.Forms.Label
'発送日
Dim LB_SENDDATE_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_SENDDATE(intDataCount) As System.Windows.Forms.Label
'送り状定義
Dim LB_LABEL_DEF_NM_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_LABEL_DEF_NM(intDataCount) As System.Windows.Forms.Label
'最新配送状況
Dim LB_STATS_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_STATS(intDataCount) As System.Windows.Forms.Label
'メモ()
Dim LB_TB_MEMO(intDataCount) As System.Windows.Forms.Label
Dim TB_MEMO(intDataCount) As System.Windows.Forms.TextBox
Dim i As Integer
For i = 0 To intDataCount - 1
'送り状情報 連番
group(i) = New System.Windows.Forms.GroupBox
group(i).Text = "送り状情報" & i + 1
group(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
group(i).Height = intGroupHeight
group(i).Width = intGroupWidth
group(i).Location = New System.Drawing.Point(intGroupX, (1 + i) * intGroupY + intGroupHeight * i)
'詳細照会
RB_INFO(i) = New System.Windows.Forms.RadioButton
RB_INFO(i).Text = "詳細照会"
RB_INFO(i).Location = New System.Drawing.Point(10, 15)
RB_INFO(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
'送付先変更
LB_ARR_FIXED_TITLE(i) = New System.Windows.Forms.Label
LB_ARR_FIXED_TITLE(i).Text = "送付先変更"
LB_ARR_FIXED_TITLE(i).Location = New System.Drawing.Point(10, 40)
LB_ARR_FIXED_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_ARR_FIXED_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_ARR_FIXED_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_ARR_FIXED_TITLE(i).Size = New System.Drawing.Size(102, 23)
LB_ARR_FIXED_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_ARR_FIXED(i) = New System.Windows.Forms.Label
LB_ARR_FIXED(i).Text = "有"
LB_ARR_FIXED(i).Location = New System.Drawing.Point(112, 40)
LB_ARR_FIXED(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_ARR_FIXED(i).TextAlign = System.Drawing.ContentAlignment.MiddleLeft
LB_ARR_FIXED(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_ARR_FIXED(i).Size = New System.Drawing.Size(30, 23)
LB_ARR_FIXED(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_ARR_FIXED(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("送付先変更"))
'問番
LB_CO_DELIVERY_NO_TITLE(i) = New System.Windows.Forms.Label
LB_CO_DELIVERY_NO_TITLE(i).Text = "問番"
LB_CO_DELIVERY_NO_TITLE(i).Location = New System.Drawing.Point(10, 64)
LB_CO_DELIVERY_NO_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_CO_DELIVERY_NO_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_CO_DELIVERY_NO_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_CO_DELIVERY_NO_TITLE(i).Size = New System.Drawing.Size(102, 23)
LB_CO_DELIVERY_NO_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_CO_DELIVERY_NO(i) = New System.Windows.Forms.Label
LB_CO_DELIVERY_NO(i).Location = New System.Drawing.Point(112, 64)
LB_CO_DELIVERY_NO(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_CO_DELIVERY_NO(i).TextAlign = System.Drawing.ContentAlignment.MiddleLeft
LB_CO_DELIVERY_NO(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_CO_DELIVERY_NO(i).Size = New System.Drawing.Size(128, 23)
LB_CO_DELIVERY_NO(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_CO_DELIVERY_NO(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("問番"))
'発送ロット
LB_HASSOU_LOT_TITLE(i) = New System.Windows.Forms.Label
LB_HASSOU_LOT_TITLE(i).Text = "発送ロット"
LB_HASSOU_LOT_TITLE(i).Location = New System.Drawing.Point(248, 64)
LB_HASSOU_LOT_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_HASSOU_LOT_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_HASSOU_LOT_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_HASSOU_LOT_TITLE(i).Size = New System.Drawing.Size(102, 23)
LB_HASSOU_LOT_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_HASSOU_LOT(i) = New System.Windows.Forms.Label
LB_HASSOU_LOT(i).Location = New System.Drawing.Point(350, 64)
LB_HASSOU_LOT(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_HASSOU_LOT(i).TextAlign = System.Drawing.ContentAlignment.MiddleLeft
LB_HASSOU_LOT(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_HASSOU_LOT(i).Size = New System.Drawing.Size(108, 23)
LB_HASSOU_LOT(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_HASSOU_LOT(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("発送ロット"))
'発送管理No
LB_LOT_SEQ_TITLE(i) = New System.Windows.Forms.Label
LB_LOT_SEQ_TITLE(i).Text = "発送管理No"
LB_LOT_SEQ_TITLE(i).Location = New System.Drawing.Point(464, 64)
LB_LOT_SEQ_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_LOT_SEQ_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_LOT_SEQ_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_LOT_SEQ_TITLE(i).Size = New System.Drawing.Size(111, 23)
LB_LOT_SEQ_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_LOT_SEQ(i) = New System.Windows.Forms.Label
LB_LOT_SEQ(i).Text = "H2232+5645"
LB_LOT_SEQ(i).Location = New System.Drawing.Point(575, 64)
LB_LOT_SEQ(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_LOT_SEQ(i).TextAlign = System.Drawing.ContentAlignment.MiddleLeft
LB_LOT_SEQ(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_LOT_SEQ(i).Size = New System.Drawing.Size(128, 23)
LB_LOT_SEQ(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_LOT_SEQ(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("発送管理No"))
'発送日
LB_SENDDATE_TITLE(i) = New System.Windows.Forms.Label
LB_SENDDATE_TITLE(i).Text = "発送日"
LB_SENDDATE_TITLE(i).Location = New System.Drawing.Point(708, 64)
LB_SENDDATE_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_SENDDATE_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_SENDDATE_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_SENDDATE_TITLE(i).Size = New System.Drawing.Size(102, 23)
LB_SENDDATE_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_SENDDATE(i) = New System.Windows.Forms.Label
LB_SENDDATE(i).Location = New System.Drawing.Point(810, 64)
LB_SENDDATE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_SENDDATE(i).TextAlign = System.Drawing.ContentAlignment.MiddleLeft
LB_SENDDATE(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_SENDDATE(i).Size = New System.Drawing.Size(100, 23)
LB_SENDDATE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_SENDDATE(i).Text = mdlFunction.FormatDataToYMD(mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("発送日")))
'送り状定義
LB_LABEL_DEF_NM_TITLE(i) = New System.Windows.Forms.Label
LB_LABEL_DEF_NM_TITLE(i).Text = "送り状定義"
LB_LABEL_DEF_NM_TITLE(i).Location = New System.Drawing.Point(10, 88)
LB_LABEL_DEF_NM_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_LABEL_DEF_NM_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_LABEL_DEF_NM_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_LABEL_DEF_NM_TITLE(i).Size = New System.Drawing.Size(102, 23)
LB_LABEL_DEF_NM_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_LABEL_DEF_NM(i) = New System.Windows.Forms.Label
LB_LABEL_DEF_NM(i).Location = New System.Drawing.Point(112, 88)
LB_LABEL_DEF_NM(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_LABEL_DEF_NM(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_LABEL_DEF_NM(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_LABEL_DEF_NM(i).Size = New System.Drawing.Size(346, 23)
LB_LABEL_DEF_NM(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_LABEL_DEF_NM(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("送り状定義"))
'最新配送状況
LB_STATS_TITLE(i) = New System.Windows.Forms.Label
LB_STATS_TITLE(i).Text = "最新配送状況"
LB_STATS_TITLE(i).Location = New System.Drawing.Point(464, 88)
LB_STATS_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_STATS_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_STATS_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_STATS_TITLE(i).Size = New System.Drawing.Size(111, 23)
LB_STATS_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_STATS(i) = New System.Windows.Forms.Label
LB_STATS(i).Location = New System.Drawing.Point(575, 88)
LB_STATS(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_STATS(i).TextAlign = System.Drawing.ContentAlignment.MiddleLeft
LB_STATS(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_STATS(i).Size = New System.Drawing.Size(128, 23)
LB_STATS(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_STATS(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("最新配送状況"))
'メモ
LB_TB_MEMO(i) = New System.Windows.Forms.Label
LB_TB_MEMO(i).Text = "メモ"
LB_TB_MEMO(i).Location = New System.Drawing.Point(10, 112)
LB_TB_MEMO(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_TB_MEMO(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_TB_MEMO(i).BackColor = System.Drawing.SystemColors.Control
LB_TB_MEMO(i).Size = New System.Drawing.Size(102, 23)
LB_TB_MEMO(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
TB_MEMO(i) = New System.Windows.Forms.TextBox
TB_MEMO(i).Location = New System.Drawing.Point(112, 112)
TB_MEMO(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
TB_MEMO(i).TextAlign = System.Windows.Forms.HorizontalAlignment.Left
TB_MEMO(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
TB_MEMO(i).Size = New System.Drawing.Size(800, 46)
TB_MEMO(i).Multiline = True
TB_MEMO(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
TB_MEMO(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("メモ"))
group(i).Controls.Add(RB_INFO(i))
group(i).Controls.Add(LB_ARR_FIXED_TITLE(i))
group(i).Controls.Add(LB_ARR_FIXED(i))
group(i).Controls.Add(LB_CO_DELIVERY_NO_TITLE(i))
group(i).Controls.Add(LB_CO_DELIVERY_NO(i))
group(i).Controls.Add(LB_HASSOU_LOT_TITLE(i))
group(i).Controls.Add(LB_HASSOU_LOT(i))
group(i).Controls.Add(LB_LOT_SEQ_TITLE(i))
group(i).Controls.Add(LB_LOT_SEQ(i))
group(i).Controls.Add(LB_SENDDATE_TITLE(i))
group(i).Controls.Add(LB_SENDDATE(i))
group(i).Controls.Add(LB_LABEL_DEF_NM_TITLE(i))
group(i).Controls.Add(LB_LABEL_DEF_NM(i))
group(i).Controls.Add(LB_STATS_TITLE(i))
group(i).Controls.Add(LB_STATS(i))
group(i).Controls.Add(LB_TB_MEMO(i))
group(i).Controls.Add(TB_MEMO(i))
GroupBox1.Controls.Add(group(i))
Next
If (1 + i) * intGroupY + intGroupHeight * i > Me.Height Then
GroupBox1.Height = (1 + i) * intGroupY + intGroupHeight * i
Else
GroupBox1.Height = Me.Height
End If
m_ArrRB_INFO = RB_INFO
m_ArrLB_ARR_FIXED = LB_ARR_FIXED
m_ArrLB_CO_DELIVERY_NO = LB_CO_DELIVERY_NO
m_ArrLB_HASSOU_LOT = LB_HASSOU_LOT
m_ArrLB_SENDDATE = LB_SENDDATE
m_ArrLB_LABEL_DEF_NM = LB_LABEL_DEF_NM
m_ArrLB_STATS = LB_STATS
m_ArrTB_MEMO = TB_MEMO
End Sub
If (m_DataVale Is Nothing) Then
Me.Visible = False
Return
End If
If m_DataVale.Rows.Count < 1 Then
Me.Visible = False
Return
End If
Dim intDataCount As Integer = m_DataVale.Rows.Count
Dim intGroupX As Integer = 8
Dim intGroupY As Integer = 5
Dim intGroupHeight As Integer = 170
Dim intGroupWidth As Integer = GroupBox1.Width - 17
Dim group(intDataCount) As System.Windows.Forms.GroupBox
'詳細照会
Dim RB_INFO(intDataCount) As System.Windows.Forms.RadioButton
'送付先変更
Dim LB_ARR_FIXED_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_ARR_FIXED(intDataCount) As System.Windows.Forms.Label
'問番
Dim LB_CO_DELIVERY_NO_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_CO_DELIVERY_NO(intDataCount) As System.Windows.Forms.Label
'発送ロット
Dim LB_HASSOU_LOT_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_HASSOU_LOT(intDataCount) As System.Windows.Forms.Label
'発送管理No
Dim LB_LOT_SEQ_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_LOT_SEQ(intDataCount) As System.Windows.Forms.Label
'発送日
Dim LB_SENDDATE_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_SENDDATE(intDataCount) As System.Windows.Forms.Label
'送り状定義
Dim LB_LABEL_DEF_NM_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_LABEL_DEF_NM(intDataCount) As System.Windows.Forms.Label
'最新配送状況
Dim LB_STATS_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_STATS(intDataCount) As System.Windows.Forms.Label
'メモ()
Dim LB_TB_MEMO(intDataCount) As System.Windows.Forms.Label
Dim TB_MEMO(intDataCount) As System.Windows.Forms.TextBox
Dim i As Integer
For i = 0 To intDataCount - 1
'送り状情報 連番
group(i) = New System.Windows.Forms.GroupBox
group(i).Text = "送り状情報" & i + 1
group(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
group(i).Height = intGroupHeight
group(i).Width = intGroupWidth
group(i).Location = New System.Drawing.Point(intGroupX, (1 + i) * intGroupY + intGroupHeight * i)
'詳細照会
RB_INFO(i) = New System.Windows.Forms.RadioButton
RB_INFO(i).Text = "詳細照会"
RB_INFO(i).Location = New System.Drawing.Point(10, 15)
RB_INFO(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
'送付先変更
LB_ARR_FIXED_TITLE(i) = New System.Windows.Forms.Label
LB_ARR_FIXED_TITLE(i).Text = "送付先変更"
LB_ARR_FIXED_TITLE(i).Location = New System.Drawing.Point(10, 40)
LB_ARR_FIXED_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_ARR_FIXED_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_ARR_FIXED_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_ARR_FIXED_TITLE(i).Size = New System.Drawing.Size(102, 23)
LB_ARR_FIXED_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_ARR_FIXED(i) = New System.Windows.Forms.Label
LB_ARR_FIXED(i).Text = "有"
LB_ARR_FIXED(i).Location = New System.Drawing.Point(112, 40)
LB_ARR_FIXED(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_ARR_FIXED(i).TextAlign = System.Drawing.ContentAlignment.MiddleLeft
LB_ARR_FIXED(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_ARR_FIXED(i).Size = New System.Drawing.Size(30, 23)
LB_ARR_FIXED(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_ARR_FIXED(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("送付先変更"))
'問番
LB_CO_DELIVERY_NO_TITLE(i) = New System.Windows.Forms.Label
LB_CO_DELIVERY_NO_TITLE(i).Text = "問番"
LB_CO_DELIVERY_NO_TITLE(i).Location = New System.Drawing.Point(10, 64)
LB_CO_DELIVERY_NO_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_CO_DELIVERY_NO_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_CO_DELIVERY_NO_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_CO_DELIVERY_NO_TITLE(i).Size = New System.Drawing.Size(102, 23)
LB_CO_DELIVERY_NO_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_CO_DELIVERY_NO(i) = New System.Windows.Forms.Label
LB_CO_DELIVERY_NO(i).Location = New System.Drawing.Point(112, 64)
LB_CO_DELIVERY_NO(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_CO_DELIVERY_NO(i).TextAlign = System.Drawing.ContentAlignment.MiddleLeft
LB_CO_DELIVERY_NO(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_CO_DELIVERY_NO(i).Size = New System.Drawing.Size(128, 23)
LB_CO_DELIVERY_NO(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_CO_DELIVERY_NO(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("問番"))
'発送ロット
LB_HASSOU_LOT_TITLE(i) = New System.Windows.Forms.Label
LB_HASSOU_LOT_TITLE(i).Text = "発送ロット"
LB_HASSOU_LOT_TITLE(i).Location = New System.Drawing.Point(248, 64)
LB_HASSOU_LOT_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_HASSOU_LOT_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_HASSOU_LOT_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_HASSOU_LOT_TITLE(i).Size = New System.Drawing.Size(102, 23)
LB_HASSOU_LOT_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_HASSOU_LOT(i) = New System.Windows.Forms.Label
LB_HASSOU_LOT(i).Location = New System.Drawing.Point(350, 64)
LB_HASSOU_LOT(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_HASSOU_LOT(i).TextAlign = System.Drawing.ContentAlignment.MiddleLeft
LB_HASSOU_LOT(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_HASSOU_LOT(i).Size = New System.Drawing.Size(108, 23)
LB_HASSOU_LOT(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_HASSOU_LOT(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("発送ロット"))
'発送管理No
LB_LOT_SEQ_TITLE(i) = New System.Windows.Forms.Label
LB_LOT_SEQ_TITLE(i).Text = "発送管理No"
LB_LOT_SEQ_TITLE(i).Location = New System.Drawing.Point(464, 64)
LB_LOT_SEQ_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_LOT_SEQ_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_LOT_SEQ_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_LOT_SEQ_TITLE(i).Size = New System.Drawing.Size(111, 23)
LB_LOT_SEQ_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_LOT_SEQ(i) = New System.Windows.Forms.Label
LB_LOT_SEQ(i).Text = "H2232+5645"
LB_LOT_SEQ(i).Location = New System.Drawing.Point(575, 64)
LB_LOT_SEQ(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_LOT_SEQ(i).TextAlign = System.Drawing.ContentAlignment.MiddleLeft
LB_LOT_SEQ(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_LOT_SEQ(i).Size = New System.Drawing.Size(128, 23)
LB_LOT_SEQ(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_LOT_SEQ(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("発送管理No"))
'発送日
LB_SENDDATE_TITLE(i) = New System.Windows.Forms.Label
LB_SENDDATE_TITLE(i).Text = "発送日"
LB_SENDDATE_TITLE(i).Location = New System.Drawing.Point(708, 64)
LB_SENDDATE_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_SENDDATE_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_SENDDATE_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_SENDDATE_TITLE(i).Size = New System.Drawing.Size(102, 23)
LB_SENDDATE_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_SENDDATE(i) = New System.Windows.Forms.Label
LB_SENDDATE(i).Location = New System.Drawing.Point(810, 64)
LB_SENDDATE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_SENDDATE(i).TextAlign = System.Drawing.ContentAlignment.MiddleLeft
LB_SENDDATE(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_SENDDATE(i).Size = New System.Drawing.Size(100, 23)
LB_SENDDATE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_SENDDATE(i).Text = mdlFunction.FormatDataToYMD(mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("発送日")))
'送り状定義
LB_LABEL_DEF_NM_TITLE(i) = New System.Windows.Forms.Label
LB_LABEL_DEF_NM_TITLE(i).Text = "送り状定義"
LB_LABEL_DEF_NM_TITLE(i).Location = New System.Drawing.Point(10, 88)
LB_LABEL_DEF_NM_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_LABEL_DEF_NM_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_LABEL_DEF_NM_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_LABEL_DEF_NM_TITLE(i).Size = New System.Drawing.Size(102, 23)
LB_LABEL_DEF_NM_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_LABEL_DEF_NM(i) = New System.Windows.Forms.Label
LB_LABEL_DEF_NM(i).Location = New System.Drawing.Point(112, 88)
LB_LABEL_DEF_NM(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_LABEL_DEF_NM(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_LABEL_DEF_NM(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_LABEL_DEF_NM(i).Size = New System.Drawing.Size(346, 23)
LB_LABEL_DEF_NM(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_LABEL_DEF_NM(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("送り状定義"))
'最新配送状況
LB_STATS_TITLE(i) = New System.Windows.Forms.Label
LB_STATS_TITLE(i).Text = "最新配送状況"
LB_STATS_TITLE(i).Location = New System.Drawing.Point(464, 88)
LB_STATS_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_STATS_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_STATS_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_STATS_TITLE(i).Size = New System.Drawing.Size(111, 23)
LB_STATS_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_STATS(i) = New System.Windows.Forms.Label
LB_STATS(i).Location = New System.Drawing.Point(575, 88)
LB_STATS(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_STATS(i).TextAlign = System.Drawing.ContentAlignment.MiddleLeft
LB_STATS(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_STATS(i).Size = New System.Drawing.Size(128, 23)
LB_STATS(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_STATS(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("最新配送状況"))
'メモ
LB_TB_MEMO(i) = New System.Windows.Forms.Label
LB_TB_MEMO(i).Text = "メモ"
LB_TB_MEMO(i).Location = New System.Drawing.Point(10, 112)
LB_TB_MEMO(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_TB_MEMO(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_TB_MEMO(i).BackColor = System.Drawing.SystemColors.Control
LB_TB_MEMO(i).Size = New System.Drawing.Size(102, 23)
LB_TB_MEMO(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
TB_MEMO(i) = New System.Windows.Forms.TextBox
TB_MEMO(i).Location = New System.Drawing.Point(112, 112)
TB_MEMO(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
TB_MEMO(i).TextAlign = System.Windows.Forms.HorizontalAlignment.Left
TB_MEMO(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
TB_MEMO(i).Size = New System.Drawing.Size(800, 46)
TB_MEMO(i).Multiline = True
TB_MEMO(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
TB_MEMO(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("メモ"))
group(i).Controls.Add(RB_INFO(i))
group(i).Controls.Add(LB_ARR_FIXED_TITLE(i))
group(i).Controls.Add(LB_ARR_FIXED(i))
group(i).Controls.Add(LB_CO_DELIVERY_NO_TITLE(i))
group(i).Controls.Add(LB_CO_DELIVERY_NO(i))
group(i).Controls.Add(LB_HASSOU_LOT_TITLE(i))
group(i).Controls.Add(LB_HASSOU_LOT(i))
group(i).Controls.Add(LB_LOT_SEQ_TITLE(i))
group(i).Controls.Add(LB_LOT_SEQ(i))
group(i).Controls.Add(LB_SENDDATE_TITLE(i))
group(i).Controls.Add(LB_SENDDATE(i))
group(i).Controls.Add(LB_LABEL_DEF_NM_TITLE(i))
group(i).Controls.Add(LB_LABEL_DEF_NM(i))
group(i).Controls.Add(LB_STATS_TITLE(i))
group(i).Controls.Add(LB_STATS(i))
group(i).Controls.Add(LB_TB_MEMO(i))
group(i).Controls.Add(TB_MEMO(i))
GroupBox1.Controls.Add(group(i))
Next
If (1 + i) * intGroupY + intGroupHeight * i > Me.Height Then
GroupBox1.Height = (1 + i) * intGroupY + intGroupHeight * i
Else
GroupBox1.Height = Me.Height
End If
m_ArrRB_INFO = RB_INFO
m_ArrLB_ARR_FIXED = LB_ARR_FIXED
m_ArrLB_CO_DELIVERY_NO = LB_CO_DELIVERY_NO
m_ArrLB_HASSOU_LOT = LB_HASSOU_LOT
m_ArrLB_SENDDATE = LB_SENDDATE
m_ArrLB_LABEL_DEF_NM = LB_LABEL_DEF_NM
m_ArrLB_STATS = LB_STATS
m_ArrTB_MEMO = TB_MEMO
End Sub
也希望DuDu 能原谅我这种提问的方式,不要删贴啊~~!谢谢!
解决后的代码:
Imports BusinessSSP
Public Class GroupRepeate
Inherits System.Windows.Forms.UserControl
Dim m_DataVale As DataTable
Public Property DataVale() As DataTable
Get
Return m_DataVale
End Get
Set(ByVal Value As DataTable)
m_DataVale = Value
End Set
End Property
Public Shadows Event GotFocus(ByVal sender As Object, ByVal e As System.EventArgs)
'Dim intDataCount As Integer
'Public Property DataCount() As Integer
' Get
' Return intDataCount
' End Get
' Set(ByVal Value As Integer)
' intDataCount = Value
' End Set
'End Property
'詳細照会
Private m_ArrRB_INFO() As System.Windows.Forms.RadioButton
Public Property ArrRB_INFO() As System.Windows.Forms.RadioButton()
Get
Return m_ArrRB_INFO
End Get
Set(ByVal Value() As System.Windows.Forms.RadioButton)
m_ArrRB_INFO = Value
End Set
End Property
'送付先変更
Private m_ArrLB_ARR_FIXED() As System.Windows.Forms.Label
Public Property ArrLB_ARR_FIXED() As System.Windows.Forms.Label()
Get
Return m_ArrLB_ARR_FIXED
End Get
Set(ByVal Value() As System.Windows.Forms.Label)
m_ArrLB_ARR_FIXED = Value
End Set
End Property
'問番
Private m_ArrLB_CO_DELIVERY_NO() As System.Windows.Forms.Label
Public Property ArrLB_CO_DELIVERY_NO() As System.Windows.Forms.Label()
Get
Return m_ArrLB_CO_DELIVERY_NO
End Get
Set(ByVal Value() As System.Windows.Forms.Label)
m_ArrLB_CO_DELIVERY_NO = Value
End Set
End Property
'発送ロット
Private m_ArrLB_HASSOU_LOT() As System.Windows.Forms.Label
Public Property ArrLB_HASSOU_LOT() As System.Windows.Forms.Label()
Get
Return m_ArrLB_HASSOU_LOT
End Get
Set(ByVal Value() As System.Windows.Forms.Label)
m_ArrLB_HASSOU_LOT = Value
End Set
End Property
'発送管理No
Private m_ArrLB_LOT_SEQ() As System.Windows.Forms.Label
Public Property ArrLB_LOT_SEQ() As System.Windows.Forms.Label()
Get
Return m_ArrLB_LOT_SEQ
End Get
Set(ByVal Value() As System.Windows.Forms.Label)
m_ArrLB_LOT_SEQ = Value
End Set
End Property
'発送日
Private m_ArrLB_SENDDATE() As System.Windows.Forms.Label
Public Property ArrLB_SENDDATE() As System.Windows.Forms.Label()
Get
Return m_ArrLB_SENDDATE
End Get
Set(ByVal Value() As System.Windows.Forms.Label)
m_ArrLB_SENDDATE = Value
End Set
End Property
'送り状定義
Private m_ArrLB_LABEL_DEF_NM() As System.Windows.Forms.Label
Public Property ArrLB_LABEL_DEF_NM() As System.Windows.Forms.Label()
Get
Return m_ArrLB_LABEL_DEF_NM
End Get
Set(ByVal Value() As System.Windows.Forms.Label)
m_ArrLB_LABEL_DEF_NM = Value
End Set
End Property
'最新配送状況
Private m_ArrLB_STATS() As System.Windows.Forms.Label
Friend WithEvents GroupBox1 As System.Windows.Forms.Panel
Public Property ArrLB_STATS() As System.Windows.Forms.Label()
Get
Return m_ArrLB_STATS
End Get
Set(ByVal Value() As System.Windows.Forms.Label)
m_ArrLB_STATS = Value
End Set
End Property
'メモ()
Private m_ArrTB_MEMO() As System.Windows.Forms.TextBox
Public Property ArrTB_MEMO() As System.Windows.Forms.TextBox()
Get
Return m_ArrTB_MEMO
End Get
Set(ByVal Value() As System.Windows.Forms.TextBox)
m_ArrTB_MEMO = Value
End Set
End Property
#Region " Windows フォーム デザイナで生成されたコード "
Public Sub New()
MyBase.New()
' この呼び出しは Windows フォーム デザイナで必要です。
InitializeComponent()
' InitializeComponent() 呼び出しの後に初期化を追加します。
End Sub
'UserControl はコンポーネント一覧を消去するために dispose をオーバーライドします。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Windows フォーム デザイナで必要です。
Private components As System.ComponentModel.IContainer
' メモ : 以下のプロシージャは、Windows フォーム デザイナで必要です。
'Windows フォーム デザイナを使って変更してください。
' コード エディタを使って変更しないでください。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.GroupBox1 = New System.Windows.Forms.Panel
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(956, 355)
Me.GroupBox1.TabIndex = 0
'
'GroupRepeate
'
Me.AutoScroll = True
Me.Controls.Add(Me.GroupBox1)
Me.Name = "GroupRepeate"
Me.Size = New System.Drawing.Size(956, 355)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub GroupRepeate_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
GroupBox1.Width = Me.Width - 17
InitProcess()
End Sub
'************************************************************
'関数名 : GroupRepeate.InitProcess
'機能説明 : 送り状情報 連番
'入力値 : 無し
'出力値 : 無し
'戻り値 :
'その他 :
'作成者 : 童斌
'作成日付 : 2009/02/25
'***********************************************************
Private Sub InitProcess()
If (m_DataVale Is Nothing) Then
Me.Visible = False
Return
End If
If m_DataVale.Rows.Count < 1 Then
Me.Visible = False
Return
End If
Dim intDataCount As Integer = m_DataVale.Rows.Count
Dim intGroupX As Integer = 8
Dim intGroupY As Integer = 5
Dim intGroupHeight As Integer = 170
Dim intGroupWidth As Integer = GroupBox1.Width - 17
Dim group(intDataCount) As System.Windows.Forms.GroupBox
'詳細照会
Dim RB_INFO(intDataCount) As System.Windows.Forms.RadioButton
Dim intGroupRBX As Integer = 15
Dim intGroupRBY As Integer = 15
'送付先変更
Dim LB_ARR_FIXED_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_ARR_FIXED(intDataCount) As System.Windows.Forms.Label
'問番
Dim LB_CO_DELIVERY_NO_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_CO_DELIVERY_NO(intDataCount) As System.Windows.Forms.Label
'発送ロット
Dim LB_HASSOU_LOT_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_HASSOU_LOT(intDataCount) As System.Windows.Forms.Label
'発送管理No
Dim LB_LOT_SEQ_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_LOT_SEQ(intDataCount) As System.Windows.Forms.Label
'発送日
Dim LB_SENDDATE_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_SENDDATE(intDataCount) As System.Windows.Forms.Label
'送り状定義
Dim LB_LABEL_DEF_NM_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_LABEL_DEF_NM(intDataCount) As System.Windows.Forms.Label
'最新配送状況
Dim LB_STATS_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_STATS(intDataCount) As System.Windows.Forms.Label
'メモ()
Dim LB_TB_MEMO(intDataCount) As System.Windows.Forms.Label
Dim TB_MEMO(intDataCount) As System.Windows.Forms.TextBox
Dim i As Integer
For i = 0 To intDataCount - 1
'送り状情報 連番
group(i) = New System.Windows.Forms.GroupBox
group(i).Text = "送り状情報" & i + 1
group(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
group(i).Height = intGroupHeight
group(i).Width = intGroupWidth
group(i).Location = New System.Drawing.Point(intGroupX, (1 + i) * intGroupY + intGroupHeight * i)
'詳細照会
RB_INFO(i) = New System.Windows.Forms.RadioButton
RB_INFO(i).Text = "詳細照会"
RB_INFO(i).Location = New System.Drawing.Point(intGroupRBX, group(i).Location.Y + intGroupRBY)
RB_INFO(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
RB_INFO(i).Name = "RB" & i
'送付先変更
LB_ARR_FIXED_TITLE(i) = New System.Windows.Forms.Label
LB_ARR_FIXED_TITLE(i).Text = "送付先変更"
LB_ARR_FIXED_TITLE(i).Location = New System.Drawing.Point(10, 40)
LB_ARR_FIXED_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_ARR_FIXED_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_ARR_FIXED_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_ARR_FIXED_TITLE(i).Size = New System.Drawing.Size(102, 23)
LB_ARR_FIXED_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_ARR_FIXED(i) = New System.Windows.Forms.Label
LB_ARR_FIXED(i).Text = "有"
LB_ARR_FIXED(i).Location = New System.Drawing.Point(112, 40)
LB_ARR_FIXED(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_ARR_FIXED(i).TextAlign = System.Drawing.ContentAlignment.MiddleLeft
LB_ARR_FIXED(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_ARR_FIXED(i).Size = New System.Drawing.Size(30, 23)
LB_ARR_FIXED(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_ARR_FIXED(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("送付先変更"))
'問番
LB_CO_DELIVERY_NO_TITLE(i) = New System.Windows.Forms.Label
LB_CO_DELIVERY_NO_TITLE(i).Text = "問番"
LB_CO_DELIVERY_NO_TITLE(i).Location = New System.Drawing.Point(10, 64)
LB_CO_DELIVERY_NO_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_CO_DELIVERY_NO_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_CO_DELIVERY_NO_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_CO_DELIVERY_NO_TITLE(i).Size = New System.Drawing.Size(102, 23)
LB_CO_DELIVERY_NO_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_CO_DELIVERY_NO(i) = New System.Windows.Forms.Label
LB_CO_DELIVERY_NO(i).Location = New System.Drawing.Point(112, 64)
LB_CO_DELIVERY_NO(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_CO_DELIVERY_NO(i).TextAlign = System.Drawing.ContentAlignment.MiddleLeft
LB_CO_DELIVERY_NO(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_CO_DELIVERY_NO(i).Size = New System.Drawing.Size(128, 23)
LB_CO_DELIVERY_NO(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_CO_DELIVERY_NO(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("問番"))
'発送ロット
LB_HASSOU_LOT_TITLE(i) = New System.Windows.Forms.Label
LB_HASSOU_LOT_TITLE(i).Text = "発送ロット"
LB_HASSOU_LOT_TITLE(i).Location = New System.Drawing.Point(248, 64)
LB_HASSOU_LOT_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_HASSOU_LOT_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_HASSOU_LOT_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_HASSOU_LOT_TITLE(i).Size = New System.Drawing.Size(102, 23)
LB_HASSOU_LOT_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_HASSOU_LOT(i) = New System.Windows.Forms.Label
LB_HASSOU_LOT(i).Location = New System.Drawing.Point(350, 64)
LB_HASSOU_LOT(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_HASSOU_LOT(i).TextAlign = System.Drawing.ContentAlignment.MiddleLeft
LB_HASSOU_LOT(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_HASSOU_LOT(i).Size = New System.Drawing.Size(108, 23)
LB_HASSOU_LOT(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_HASSOU_LOT(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("発送ロット"))
'発送管理No
LB_LOT_SEQ_TITLE(i) = New System.Windows.Forms.Label
LB_LOT_SEQ_TITLE(i).Text = "発送管理No"
LB_LOT_SEQ_TITLE(i).Location = New System.Drawing.Point(464, 64)
LB_LOT_SEQ_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_LOT_SEQ_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_LOT_SEQ_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_LOT_SEQ_TITLE(i).Size = New System.Drawing.Size(111, 23)
LB_LOT_SEQ_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_LOT_SEQ(i) = New System.Windows.Forms.Label
LB_LOT_SEQ(i).Text = "H2232+5645"
LB_LOT_SEQ(i).Location = New System.Drawing.Point(575, 64)
LB_LOT_SEQ(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_LOT_SEQ(i).TextAlign = System.Drawing.ContentAlignment.MiddleLeft
LB_LOT_SEQ(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_LOT_SEQ(i).Size = New System.Drawing.Size(128, 23)
LB_LOT_SEQ(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_LOT_SEQ(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("発送管理No"))
'発送日
LB_SENDDATE_TITLE(i) = New System.Windows.Forms.Label
LB_SENDDATE_TITLE(i).Text = "発送日"
LB_SENDDATE_TITLE(i).Location = New System.Drawing.Point(708, 64)
LB_SENDDATE_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_SENDDATE_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_SENDDATE_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_SENDDATE_TITLE(i).Size = New System.Drawing.Size(102, 23)
LB_SENDDATE_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_SENDDATE(i) = New System.Windows.Forms.Label
LB_SENDDATE(i).Location = New System.Drawing.Point(810, 64)
LB_SENDDATE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_SENDDATE(i).TextAlign = System.Drawing.ContentAlignment.MiddleLeft
LB_SENDDATE(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_SENDDATE(i).Size = New System.Drawing.Size(100, 23)
LB_SENDDATE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_SENDDATE(i).Text = mdlFunction.FormatDataToYMD(mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("発送日")))
'送り状定義
LB_LABEL_DEF_NM_TITLE(i) = New System.Windows.Forms.Label
LB_LABEL_DEF_NM_TITLE(i).Text = "送り状定義"
LB_LABEL_DEF_NM_TITLE(i).Location = New System.Drawing.Point(10, 88)
LB_LABEL_DEF_NM_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_LABEL_DEF_NM_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_LABEL_DEF_NM_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_LABEL_DEF_NM_TITLE(i).Size = New System.Drawing.Size(102, 23)
LB_LABEL_DEF_NM_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_LABEL_DEF_NM(i) = New System.Windows.Forms.Label
LB_LABEL_DEF_NM(i).Location = New System.Drawing.Point(112, 88)
LB_LABEL_DEF_NM(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_LABEL_DEF_NM(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_LABEL_DEF_NM(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_LABEL_DEF_NM(i).Size = New System.Drawing.Size(346, 23)
LB_LABEL_DEF_NM(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_LABEL_DEF_NM(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("送り状定義"))
'最新配送状況
LB_STATS_TITLE(i) = New System.Windows.Forms.Label
LB_STATS_TITLE(i).Text = "最新配送状況"
LB_STATS_TITLE(i).Location = New System.Drawing.Point(464, 88)
LB_STATS_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_STATS_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_STATS_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_STATS_TITLE(i).Size = New System.Drawing.Size(111, 23)
LB_STATS_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_STATS(i) = New System.Windows.Forms.Label
LB_STATS(i).Location = New System.Drawing.Point(575, 88)
LB_STATS(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_STATS(i).TextAlign = System.Drawing.ContentAlignment.MiddleLeft
LB_STATS(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_STATS(i).Size = New System.Drawing.Size(128, 23)
LB_STATS(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_STATS(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("最新配送状況"))
'メモ
LB_TB_MEMO(i) = New System.Windows.Forms.Label
LB_TB_MEMO(i).Text = "メモ"
LB_TB_MEMO(i).Location = New System.Drawing.Point(10, 112)
LB_TB_MEMO(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_TB_MEMO(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_TB_MEMO(i).BackColor = System.Drawing.SystemColors.Control
LB_TB_MEMO(i).Size = New System.Drawing.Size(102, 23)
LB_TB_MEMO(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
TB_MEMO(i) = New System.Windows.Forms.TextBox
TB_MEMO(i).Location = New System.Drawing.Point(112, 112)
TB_MEMO(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
TB_MEMO(i).TextAlign = System.Windows.Forms.HorizontalAlignment.Left
TB_MEMO(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
TB_MEMO(i).Size = New System.Drawing.Size(800, 46)
TB_MEMO(i).Multiline = True
TB_MEMO(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
TB_MEMO(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("メモ"))
'group(i).Controls.Add(RB_INFO(i))
group(i).Controls.Add(LB_ARR_FIXED_TITLE(i))
group(i).Controls.Add(LB_ARR_FIXED(i))
group(i).Controls.Add(LB_CO_DELIVERY_NO_TITLE(i))
group(i).Controls.Add(LB_CO_DELIVERY_NO(i))
group(i).Controls.Add(LB_HASSOU_LOT_TITLE(i))
group(i).Controls.Add(LB_HASSOU_LOT(i))
group(i).Controls.Add(LB_LOT_SEQ_TITLE(i))
group(i).Controls.Add(LB_LOT_SEQ(i))
group(i).Controls.Add(LB_SENDDATE_TITLE(i))
group(i).Controls.Add(LB_SENDDATE(i))
group(i).Controls.Add(LB_LABEL_DEF_NM_TITLE(i))
group(i).Controls.Add(LB_LABEL_DEF_NM(i))
group(i).Controls.Add(LB_STATS_TITLE(i))
group(i).Controls.Add(LB_STATS(i))
group(i).Controls.Add(LB_TB_MEMO(i))
group(i).Controls.Add(TB_MEMO(i))
GroupBox1.Controls.Add(RB_INFO(i))
GroupBox1.Controls.Add(group(i))
Next
If (1 + i) * intGroupY + intGroupHeight * i > Me.Height Then
GroupBox1.Height = (1 + i) * intGroupY + intGroupHeight * i
Else
GroupBox1.Height = Me.Height
End If
m_ArrRB_INFO = RB_INFO
m_ArrLB_ARR_FIXED = LB_ARR_FIXED
m_ArrLB_CO_DELIVERY_NO = LB_CO_DELIVERY_NO
m_ArrLB_HASSOU_LOT = LB_HASSOU_LOT
m_ArrLB_SENDDATE = LB_SENDDATE
m_ArrLB_LABEL_DEF_NM = LB_LABEL_DEF_NM
m_ArrLB_STATS = LB_STATS
m_ArrTB_MEMO = TB_MEMO
m_ArrLB_LOT_SEQ = LB_LOT_SEQ
End Sub
End Class
Public Class GroupRepeate
Inherits System.Windows.Forms.UserControl
Dim m_DataVale As DataTable
Public Property DataVale() As DataTable
Get
Return m_DataVale
End Get
Set(ByVal Value As DataTable)
m_DataVale = Value
End Set
End Property
Public Shadows Event GotFocus(ByVal sender As Object, ByVal e As System.EventArgs)
'Dim intDataCount As Integer
'Public Property DataCount() As Integer
' Get
' Return intDataCount
' End Get
' Set(ByVal Value As Integer)
' intDataCount = Value
' End Set
'End Property
'詳細照会
Private m_ArrRB_INFO() As System.Windows.Forms.RadioButton
Public Property ArrRB_INFO() As System.Windows.Forms.RadioButton()
Get
Return m_ArrRB_INFO
End Get
Set(ByVal Value() As System.Windows.Forms.RadioButton)
m_ArrRB_INFO = Value
End Set
End Property
'送付先変更
Private m_ArrLB_ARR_FIXED() As System.Windows.Forms.Label
Public Property ArrLB_ARR_FIXED() As System.Windows.Forms.Label()
Get
Return m_ArrLB_ARR_FIXED
End Get
Set(ByVal Value() As System.Windows.Forms.Label)
m_ArrLB_ARR_FIXED = Value
End Set
End Property
'問番
Private m_ArrLB_CO_DELIVERY_NO() As System.Windows.Forms.Label
Public Property ArrLB_CO_DELIVERY_NO() As System.Windows.Forms.Label()
Get
Return m_ArrLB_CO_DELIVERY_NO
End Get
Set(ByVal Value() As System.Windows.Forms.Label)
m_ArrLB_CO_DELIVERY_NO = Value
End Set
End Property
'発送ロット
Private m_ArrLB_HASSOU_LOT() As System.Windows.Forms.Label
Public Property ArrLB_HASSOU_LOT() As System.Windows.Forms.Label()
Get
Return m_ArrLB_HASSOU_LOT
End Get
Set(ByVal Value() As System.Windows.Forms.Label)
m_ArrLB_HASSOU_LOT = Value
End Set
End Property
'発送管理No
Private m_ArrLB_LOT_SEQ() As System.Windows.Forms.Label
Public Property ArrLB_LOT_SEQ() As System.Windows.Forms.Label()
Get
Return m_ArrLB_LOT_SEQ
End Get
Set(ByVal Value() As System.Windows.Forms.Label)
m_ArrLB_LOT_SEQ = Value
End Set
End Property
'発送日
Private m_ArrLB_SENDDATE() As System.Windows.Forms.Label
Public Property ArrLB_SENDDATE() As System.Windows.Forms.Label()
Get
Return m_ArrLB_SENDDATE
End Get
Set(ByVal Value() As System.Windows.Forms.Label)
m_ArrLB_SENDDATE = Value
End Set
End Property
'送り状定義
Private m_ArrLB_LABEL_DEF_NM() As System.Windows.Forms.Label
Public Property ArrLB_LABEL_DEF_NM() As System.Windows.Forms.Label()
Get
Return m_ArrLB_LABEL_DEF_NM
End Get
Set(ByVal Value() As System.Windows.Forms.Label)
m_ArrLB_LABEL_DEF_NM = Value
End Set
End Property
'最新配送状況
Private m_ArrLB_STATS() As System.Windows.Forms.Label
Friend WithEvents GroupBox1 As System.Windows.Forms.Panel
Public Property ArrLB_STATS() As System.Windows.Forms.Label()
Get
Return m_ArrLB_STATS
End Get
Set(ByVal Value() As System.Windows.Forms.Label)
m_ArrLB_STATS = Value
End Set
End Property
'メモ()
Private m_ArrTB_MEMO() As System.Windows.Forms.TextBox
Public Property ArrTB_MEMO() As System.Windows.Forms.TextBox()
Get
Return m_ArrTB_MEMO
End Get
Set(ByVal Value() As System.Windows.Forms.TextBox)
m_ArrTB_MEMO = Value
End Set
End Property
#Region " Windows フォーム デザイナで生成されたコード "
Public Sub New()
MyBase.New()
' この呼び出しは Windows フォーム デザイナで必要です。
InitializeComponent()
' InitializeComponent() 呼び出しの後に初期化を追加します。
End Sub
'UserControl はコンポーネント一覧を消去するために dispose をオーバーライドします。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Windows フォーム デザイナで必要です。
Private components As System.ComponentModel.IContainer
' メモ : 以下のプロシージャは、Windows フォーム デザイナで必要です。
'Windows フォーム デザイナを使って変更してください。
' コード エディタを使って変更しないでください。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.GroupBox1 = New System.Windows.Forms.Panel
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(956, 355)
Me.GroupBox1.TabIndex = 0
'
'GroupRepeate
'
Me.AutoScroll = True
Me.Controls.Add(Me.GroupBox1)
Me.Name = "GroupRepeate"
Me.Size = New System.Drawing.Size(956, 355)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub GroupRepeate_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
GroupBox1.Width = Me.Width - 17
InitProcess()
End Sub
'************************************************************
'関数名 : GroupRepeate.InitProcess
'機能説明 : 送り状情報 連番
'入力値 : 無し
'出力値 : 無し
'戻り値 :
'その他 :
'作成者 : 童斌
'作成日付 : 2009/02/25
'***********************************************************
Private Sub InitProcess()
If (m_DataVale Is Nothing) Then
Me.Visible = False
Return
End If
If m_DataVale.Rows.Count < 1 Then
Me.Visible = False
Return
End If
Dim intDataCount As Integer = m_DataVale.Rows.Count
Dim intGroupX As Integer = 8
Dim intGroupY As Integer = 5
Dim intGroupHeight As Integer = 170
Dim intGroupWidth As Integer = GroupBox1.Width - 17
Dim group(intDataCount) As System.Windows.Forms.GroupBox
'詳細照会
Dim RB_INFO(intDataCount) As System.Windows.Forms.RadioButton
Dim intGroupRBX As Integer = 15
Dim intGroupRBY As Integer = 15
'送付先変更
Dim LB_ARR_FIXED_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_ARR_FIXED(intDataCount) As System.Windows.Forms.Label
'問番
Dim LB_CO_DELIVERY_NO_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_CO_DELIVERY_NO(intDataCount) As System.Windows.Forms.Label
'発送ロット
Dim LB_HASSOU_LOT_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_HASSOU_LOT(intDataCount) As System.Windows.Forms.Label
'発送管理No
Dim LB_LOT_SEQ_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_LOT_SEQ(intDataCount) As System.Windows.Forms.Label
'発送日
Dim LB_SENDDATE_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_SENDDATE(intDataCount) As System.Windows.Forms.Label
'送り状定義
Dim LB_LABEL_DEF_NM_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_LABEL_DEF_NM(intDataCount) As System.Windows.Forms.Label
'最新配送状況
Dim LB_STATS_TITLE(intDataCount) As System.Windows.Forms.Label
Dim LB_STATS(intDataCount) As System.Windows.Forms.Label
'メモ()
Dim LB_TB_MEMO(intDataCount) As System.Windows.Forms.Label
Dim TB_MEMO(intDataCount) As System.Windows.Forms.TextBox
Dim i As Integer
For i = 0 To intDataCount - 1
'送り状情報 連番
group(i) = New System.Windows.Forms.GroupBox
group(i).Text = "送り状情報" & i + 1
group(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
group(i).Height = intGroupHeight
group(i).Width = intGroupWidth
group(i).Location = New System.Drawing.Point(intGroupX, (1 + i) * intGroupY + intGroupHeight * i)
'詳細照会
RB_INFO(i) = New System.Windows.Forms.RadioButton
RB_INFO(i).Text = "詳細照会"
RB_INFO(i).Location = New System.Drawing.Point(intGroupRBX, group(i).Location.Y + intGroupRBY)
RB_INFO(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
RB_INFO(i).Name = "RB" & i
'送付先変更
LB_ARR_FIXED_TITLE(i) = New System.Windows.Forms.Label
LB_ARR_FIXED_TITLE(i).Text = "送付先変更"
LB_ARR_FIXED_TITLE(i).Location = New System.Drawing.Point(10, 40)
LB_ARR_FIXED_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_ARR_FIXED_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_ARR_FIXED_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_ARR_FIXED_TITLE(i).Size = New System.Drawing.Size(102, 23)
LB_ARR_FIXED_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_ARR_FIXED(i) = New System.Windows.Forms.Label
LB_ARR_FIXED(i).Text = "有"
LB_ARR_FIXED(i).Location = New System.Drawing.Point(112, 40)
LB_ARR_FIXED(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_ARR_FIXED(i).TextAlign = System.Drawing.ContentAlignment.MiddleLeft
LB_ARR_FIXED(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_ARR_FIXED(i).Size = New System.Drawing.Size(30, 23)
LB_ARR_FIXED(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_ARR_FIXED(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("送付先変更"))
'問番
LB_CO_DELIVERY_NO_TITLE(i) = New System.Windows.Forms.Label
LB_CO_DELIVERY_NO_TITLE(i).Text = "問番"
LB_CO_DELIVERY_NO_TITLE(i).Location = New System.Drawing.Point(10, 64)
LB_CO_DELIVERY_NO_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_CO_DELIVERY_NO_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_CO_DELIVERY_NO_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_CO_DELIVERY_NO_TITLE(i).Size = New System.Drawing.Size(102, 23)
LB_CO_DELIVERY_NO_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_CO_DELIVERY_NO(i) = New System.Windows.Forms.Label
LB_CO_DELIVERY_NO(i).Location = New System.Drawing.Point(112, 64)
LB_CO_DELIVERY_NO(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_CO_DELIVERY_NO(i).TextAlign = System.Drawing.ContentAlignment.MiddleLeft
LB_CO_DELIVERY_NO(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_CO_DELIVERY_NO(i).Size = New System.Drawing.Size(128, 23)
LB_CO_DELIVERY_NO(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_CO_DELIVERY_NO(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("問番"))
'発送ロット
LB_HASSOU_LOT_TITLE(i) = New System.Windows.Forms.Label
LB_HASSOU_LOT_TITLE(i).Text = "発送ロット"
LB_HASSOU_LOT_TITLE(i).Location = New System.Drawing.Point(248, 64)
LB_HASSOU_LOT_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_HASSOU_LOT_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_HASSOU_LOT_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_HASSOU_LOT_TITLE(i).Size = New System.Drawing.Size(102, 23)
LB_HASSOU_LOT_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_HASSOU_LOT(i) = New System.Windows.Forms.Label
LB_HASSOU_LOT(i).Location = New System.Drawing.Point(350, 64)
LB_HASSOU_LOT(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_HASSOU_LOT(i).TextAlign = System.Drawing.ContentAlignment.MiddleLeft
LB_HASSOU_LOT(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_HASSOU_LOT(i).Size = New System.Drawing.Size(108, 23)
LB_HASSOU_LOT(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_HASSOU_LOT(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("発送ロット"))
'発送管理No
LB_LOT_SEQ_TITLE(i) = New System.Windows.Forms.Label
LB_LOT_SEQ_TITLE(i).Text = "発送管理No"
LB_LOT_SEQ_TITLE(i).Location = New System.Drawing.Point(464, 64)
LB_LOT_SEQ_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_LOT_SEQ_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_LOT_SEQ_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_LOT_SEQ_TITLE(i).Size = New System.Drawing.Size(111, 23)
LB_LOT_SEQ_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_LOT_SEQ(i) = New System.Windows.Forms.Label
LB_LOT_SEQ(i).Text = "H2232+5645"
LB_LOT_SEQ(i).Location = New System.Drawing.Point(575, 64)
LB_LOT_SEQ(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_LOT_SEQ(i).TextAlign = System.Drawing.ContentAlignment.MiddleLeft
LB_LOT_SEQ(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_LOT_SEQ(i).Size = New System.Drawing.Size(128, 23)
LB_LOT_SEQ(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_LOT_SEQ(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("発送管理No"))
'発送日
LB_SENDDATE_TITLE(i) = New System.Windows.Forms.Label
LB_SENDDATE_TITLE(i).Text = "発送日"
LB_SENDDATE_TITLE(i).Location = New System.Drawing.Point(708, 64)
LB_SENDDATE_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_SENDDATE_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_SENDDATE_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_SENDDATE_TITLE(i).Size = New System.Drawing.Size(102, 23)
LB_SENDDATE_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_SENDDATE(i) = New System.Windows.Forms.Label
LB_SENDDATE(i).Location = New System.Drawing.Point(810, 64)
LB_SENDDATE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_SENDDATE(i).TextAlign = System.Drawing.ContentAlignment.MiddleLeft
LB_SENDDATE(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_SENDDATE(i).Size = New System.Drawing.Size(100, 23)
LB_SENDDATE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_SENDDATE(i).Text = mdlFunction.FormatDataToYMD(mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("発送日")))
'送り状定義
LB_LABEL_DEF_NM_TITLE(i) = New System.Windows.Forms.Label
LB_LABEL_DEF_NM_TITLE(i).Text = "送り状定義"
LB_LABEL_DEF_NM_TITLE(i).Location = New System.Drawing.Point(10, 88)
LB_LABEL_DEF_NM_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_LABEL_DEF_NM_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_LABEL_DEF_NM_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_LABEL_DEF_NM_TITLE(i).Size = New System.Drawing.Size(102, 23)
LB_LABEL_DEF_NM_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_LABEL_DEF_NM(i) = New System.Windows.Forms.Label
LB_LABEL_DEF_NM(i).Location = New System.Drawing.Point(112, 88)
LB_LABEL_DEF_NM(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_LABEL_DEF_NM(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_LABEL_DEF_NM(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_LABEL_DEF_NM(i).Size = New System.Drawing.Size(346, 23)
LB_LABEL_DEF_NM(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_LABEL_DEF_NM(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("送り状定義"))
'最新配送状況
LB_STATS_TITLE(i) = New System.Windows.Forms.Label
LB_STATS_TITLE(i).Text = "最新配送状況"
LB_STATS_TITLE(i).Location = New System.Drawing.Point(464, 88)
LB_STATS_TITLE(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_STATS_TITLE(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_STATS_TITLE(i).BackColor = System.Drawing.SystemColors.Control
LB_STATS_TITLE(i).Size = New System.Drawing.Size(111, 23)
LB_STATS_TITLE(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_STATS(i) = New System.Windows.Forms.Label
LB_STATS(i).Location = New System.Drawing.Point(575, 88)
LB_STATS(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_STATS(i).TextAlign = System.Drawing.ContentAlignment.MiddleLeft
LB_STATS(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
LB_STATS(i).Size = New System.Drawing.Size(128, 23)
LB_STATS(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
LB_STATS(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("最新配送状況"))
'メモ
LB_TB_MEMO(i) = New System.Windows.Forms.Label
LB_TB_MEMO(i).Text = "メモ"
LB_TB_MEMO(i).Location = New System.Drawing.Point(10, 112)
LB_TB_MEMO(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
LB_TB_MEMO(i).TextAlign = System.Drawing.ContentAlignment.MiddleCenter
LB_TB_MEMO(i).BackColor = System.Drawing.SystemColors.Control
LB_TB_MEMO(i).Size = New System.Drawing.Size(102, 23)
LB_TB_MEMO(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
TB_MEMO(i) = New System.Windows.Forms.TextBox
TB_MEMO(i).Location = New System.Drawing.Point(112, 112)
TB_MEMO(i).BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
TB_MEMO(i).TextAlign = System.Windows.Forms.HorizontalAlignment.Left
TB_MEMO(i).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
TB_MEMO(i).Size = New System.Drawing.Size(800, 46)
TB_MEMO(i).Multiline = True
TB_MEMO(i).Font = New System.Drawing.Font("MS ゴシック", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
TB_MEMO(i).Text = mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)("メモ"))
'group(i).Controls.Add(RB_INFO(i))
group(i).Controls.Add(LB_ARR_FIXED_TITLE(i))
group(i).Controls.Add(LB_ARR_FIXED(i))
group(i).Controls.Add(LB_CO_DELIVERY_NO_TITLE(i))
group(i).Controls.Add(LB_CO_DELIVERY_NO(i))
group(i).Controls.Add(LB_HASSOU_LOT_TITLE(i))
group(i).Controls.Add(LB_HASSOU_LOT(i))
group(i).Controls.Add(LB_LOT_SEQ_TITLE(i))
group(i).Controls.Add(LB_LOT_SEQ(i))
group(i).Controls.Add(LB_SENDDATE_TITLE(i))
group(i).Controls.Add(LB_SENDDATE(i))
group(i).Controls.Add(LB_LABEL_DEF_NM_TITLE(i))
group(i).Controls.Add(LB_LABEL_DEF_NM(i))
group(i).Controls.Add(LB_STATS_TITLE(i))
group(i).Controls.Add(LB_STATS(i))
group(i).Controls.Add(LB_TB_MEMO(i))
group(i).Controls.Add(TB_MEMO(i))
GroupBox1.Controls.Add(RB_INFO(i))
GroupBox1.Controls.Add(group(i))
Next
If (1 + i) * intGroupY + intGroupHeight * i > Me.Height Then
GroupBox1.Height = (1 + i) * intGroupY + intGroupHeight * i
Else
GroupBox1.Height = Me.Height
End If
m_ArrRB_INFO = RB_INFO
m_ArrLB_ARR_FIXED = LB_ARR_FIXED
m_ArrLB_CO_DELIVERY_NO = LB_CO_DELIVERY_NO
m_ArrLB_HASSOU_LOT = LB_HASSOU_LOT
m_ArrLB_SENDDATE = LB_SENDDATE
m_ArrLB_LABEL_DEF_NM = LB_LABEL_DEF_NM
m_ArrLB_STATS = LB_STATS
m_ArrTB_MEMO = TB_MEMO
m_ArrLB_LOT_SEQ = LB_LOT_SEQ
End Sub
End Class
调用该控件的代码:
Dim dtTable As New DataTable
..
Dim GroupRepeate1 As New UserControls.GroupRepeate
GroupRepeate1.ArrLB_LOT_SEQ = Nothing
GroupRepeate1.AutoScroll = True
GroupRepeate1.DataVale = Nothing
GroupRepeate1.Location = New System.Drawing.Point(9, 302)
GroupRepeate1.Name = "GroupRepeate1"
GroupRepeate1.Size = New System.Drawing.Size(956, 351)
GroupRepeate1.DataVale = dtTable
Me.Controls.Add(GroupRepeate1)
..
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)