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