Public Property TableCheckTypes() As DataTable Get Return m_TableCheckTypes End Get Set(ByVal value As DataTable) m_TableCheckTypes = value If m_TableCheckTypes Is Nothing Then Exit Property GroupBox1 = New System.Windows.Forms.GroupBox GroupBox1.Location = New Point(280, 10) GroupBox1.Size = New Size(29, 25) Dim Counter As Integer = 0 For Each row As DataRow In m_TableCheckTypes.Rows rdo = New System.Windows.Forms.RadioButton rdo.Name = "rdo" & Counter + 1 rdo.Appearance = System.Windows.Forms.Appearance.Button rdo.Size = New Size(25, 25) rdo.Location = New Point(2, 8 + (Counter * 24)) rdo.TextAlign = System.Drawing.ContentAlignment.MiddleCenter rdo.UseVisualStyleBackColor = True rdo.Text = row("CheckTypeCode") rdo.Tag = row("CheckTypeID") AddHandler rdo.CheckedChanged, AddressOf rdo_CheckedChanged GroupBox1.Controls.Add(rdo) rdo.Visible = True rdo.BringToFront() Counter += 1 Next GroupBox1.Height = Counter * 24 + 10 MyBase.Controls.Add(GroupBox1) GroupBox1.BringToFront() GroupBox1.Visible = True End Set End Property
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)