SAPKEN
asked on
programatically generate checkbox
Hi Experts,
I need to create checkbox in RUNTIME based on the criteria pooling from table which means that got 5 items it will display 5 checkboxes , if got 6 items it will display 6 checkboxes.
How can I do it?
Thanks,rgds,
KA
I need to create checkbox in RUNTIME based on the criteria pooling from table which means that got 5 items it will display 5 checkboxes , if got 6 items it will display 6 checkboxes.
How can I do it?
Thanks,rgds,
KA
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Hello
Here's a sample, but isntead of reading the No of tables, it will read it from the user using InputBox, reading it from DB is easy using command object and call ExecuatScaler to return the No of CheckBoxes you want to create
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Num As Integer = InputBox("Enter No of check boxes", "CheckBoxes No")
Dim I As Integer
For I = 1 To Num
Dim chk As New CheckBox
chk.Left = 0
chk.Top = 20 * I
chk.Text = "CheckBox No " & I
Me.Controls.Add(chk)
Next
End Sub
HTH
Regards,
Mohammed
Here's a sample, but isntead of reading the No of tables, it will read it from the user using InputBox, reading it from DB is easy using command object and call ExecuatScaler to return the No of CheckBoxes you want to create
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Num As Integer = InputBox("Enter No of check boxes", "CheckBoxes No")
Dim I As Integer
For I = 1 To Num
Dim chk As New CheckBox
chk.Left = 0
chk.Top = 20 * I
chk.Text = "CheckBox No " & I
Me.Controls.Add(chk)
Next
End Sub
HTH
Regards,
Mohammed
'this will be the locations
dim x, y as integer
x = 100
y = 100
For i = 0 To ControlCount - 1
Dim ctrl As New System.Windows.Forms.Check
ctrl.Name = "CheckBox" + i.ToString()
ctrl.Text = "CheckBox" + i.ToString()
ctrl.Location = New System.Drawing.Point(x, y)
'so its not one on top of the other
y += 16
'im assuming youre not needing event handlers...
Controls.Add(x) ' Add the control to the collection of controls
Next
~b