PDA

View Full Version : سوال: تغییر مکان checkbox در زمان اجرا



arshias
پنج شنبه 14 دی 1391, 22:10 عصر
سلام دوستان

مشکل من به شرح زیر در :

من یک فرم دارم که توش یه گروپ باکس و در داخل گروپ باکس تعداد ثابت 21 ,چک باکس دارم در 3 ردیف 8 تایی، می خوام وقتی برنامه اجرا میشه ، اون تعداد از چک باکس ها که انتخاب شدن (که از دیتابیس میاد) به ترتیب و با موقعیت جدیدی که خودم تعیین می کنم (با همون چیدمان 3 ردیف 8 تایی ) در گروپ باکس نمایش داده بشه و بقیه که خاصیت checked = false هست مخفی بشن.

لطفا راهنمای کنید و اینکه روش من اصلا درست هست یا باید وقتی فرم لود میشه این چک باکس ها رو بعد از چک کردن مقدارشون از دیتا بیس دوباره تعریف کنم و بزارم در داخل گروپ باکس؟؟؟؟

من از این کد استفاده کردم ولی نمی دونم موقعیت رو چطور برای چندین chekbox تغییر بدم ؟؟؟؟



For Each chk As Control In view.GroupBox11.Controls
If TypeOf chk Is CheckBox Then
If CType(chk, CheckBox).Checked = True Then
chk.Show()

Else
chk.Hide()

End If
End If
Next

arshias
جمعه 15 دی 1391, 14:51 عصر
کسی نیست منو راهنمایی کنه؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
یعنی هیچگس نمیدونه دوستان کمک ؟؟

the king
جمعه 15 دی 1391, 22:01 عصر
ایجاد کردن 12 (متغیر n) کنترل CheckBox و چیدن شان بصورت سه ستونی با فاصله 150 افقی و 25 عمودی پیکسلی :

Dim pos As New Point(10, 20)
Dim n As Integer = 12
GroupBox11.Controls.Clear()
For i As Integer = 1 To n
Dim chk As New CheckBox()
chk.Name = "CheckBox" + i.ToString()
chk.Text = "Your Title " + i.ToString()
chk.Checked = True
chk.Location = pos
If i Mod 3 = 0 Then
pos = New Point(10, pos.Y + 25)
Else
pos.X += 150
End If
GroupBox11.Controls.Add(chk)
Next