當(dāng)前位置：
首頁(yè) >
不同的容器里实现 RadioButton的单选
發(fā)布時(shí)間：2023/12/10
37
豆豆
生活随笔
收集整理的這篇文章主要介紹了
不同的容器里实现 RadioButton的单选
小編覺(jué)得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.
請(qǐng)教一個(gè)各位牛人一個(gè)問(wèn)題，如圖：??? （問(wèn)題解決，見(jiàn)后面的解決方案~~）
怎么在不同的winform容器(GroupBox)里實(shí)現(xiàn) RadioButton （如圖中兩個(gè)“詳細(xì)照會(huì)”）的單選，請(qǐng)各位牛人給出實(shí)現(xiàn)的思路，不甚感謝。
GroupBox（） 送り?duì)钋閳?bào)1，送り?duì)钋閳?bào)2......是動(dòng)態(tài)生成的。
以下是具體的生成代碼：
?
????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
????????'詳細(xì)照會(huì)
????????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
????????'問(wèn)番
????????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
????????'送り?duì)疃x
????????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
????????????'送り?duì)钋閳?bào)?連番
????????????group(i)?=?New?System.Windows.Forms.GroupBox
????????????group(i).Text?=?"送り?duì)钋閳?bào)"?&?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)
????????????'詳細(xì)照會(huì)
????????????RB_INFO(i)?=?New?System.Windows.Forms.RadioButton
????????????RB_INFO(i).Text?=?"詳細(xì)照會(huì)"
????????????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)("送付先変更"))
????????????'問(wèn)番
????????????LB_CO_DELIVERY_NO_TITLE(i)?=?New?System.Windows.Forms.Label
????????????LB_CO_DELIVERY_NO_TITLE(i).Text?=?"問(wèn)番"
????????????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)("問(wèn)番"))
????????????'発送ロット
????????????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)("発送日")))
????????????'送り?duì)疃x
????????????LB_LABEL_DEF_NM_TITLE(i)?=?New?System.Windows.Forms.Label
????????????LB_LABEL_DEF_NM_TITLE(i).Text?=?"送り?duì)疃x"
????????????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)("送り?duì)疃x"))
????????????'最新配送狀況?
????????????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 能原諒我這種提問(wèn)的方式，不要?jiǎng)h貼啊~~！謝謝！
?
解決后的代碼：
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
????'詳細(xì)照會(huì)
????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
????'問(wèn)番
????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
????'送り?duì)疃x
????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
????'************************************************************
????'関數(shù)名?????????:?GroupRepeate.InitProcess
????'機(jī)能説明???????:?送り?duì)钋閳?bào)?連番????????????????
????'入力値?????????:?無(wú)し
????'出力値?????????:?無(wú)し
????'戻り値?????????:?
????'その他?????????:?
????'作成者???? ???:?童斌
????'作成日付???????:?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
????????'詳細(xì)照會(huì)
????????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
????????'問(wèn)番
????????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
????????'送り?duì)疃x
????????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
????????????'送り?duì)钋閳?bào)?連番
????????????group(i)?=?New?System.Windows.Forms.GroupBox
????????????group(i).Text?=?"送り?duì)钋閳?bào)"?&?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)
????????????'詳細(xì)照會(huì)
????????????RB_INFO(i)?=?New?System.Windows.Forms.RadioButton
????????????RB_INFO(i).Text?=?"詳細(xì)照會(huì)"
????????????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)("送付先変更"))
????????????'問(wèn)番
????????????LB_CO_DELIVERY_NO_TITLE(i)?=?New?System.Windows.Forms.Label
????????????LB_CO_DELIVERY_NO_TITLE(i).Text?=?"問(wèn)番"
????????????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)("問(wèn)番"))
????????????'発送ロット
????????????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)("発送日")))
????????????'送り?duì)疃x
????????????LB_LABEL_DEF_NM_TITLE(i)?=?New?System.Windows.Forms.Label
????????????LB_LABEL_DEF_NM_TITLE(i).Text?=?"送り?duì)疃x"
????????????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)("送り?duì)疃x"))
????????????'最新配送狀況?
????????????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
?
?調(diào)用該控件的代碼：
????????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)
?
?
?
?
轉(zhuǎn)載于:https://www.cnblogs.com/tonybinlj/archive/2009/02/26/1398487.html
總結(jié)
以上是生活随笔為你收集整理的不同的容器里实现 RadioButton的单选的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。
- 上一篇： I2C详解(2) I2C总线的规范以及用
- 下一篇： Indy中判断邮件来源