Click here to Skip to main content
15,922,894 members

Comments by mhm_abusalimeh (Top 1 by date)

mhm_abusalimeh 27-Jul-11 10:47am View    
Deleted
hi, the following property use to create a groupbox with radio buttons.

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