کشیدن تعدادی کنترل پویا کنار هم

[goldpower]

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

مثلا یه عددی رو داخل تکس باکس وارد کنم و بعد با فشردن دکمه پیکچر باکس ها دقیقا کنار هم قرار داده شوند.



' Dim pb As New PictureBox
pb.Image = Image.FromFile("C:\wizc-le.png")
pb.Size = New Size(35, 35)
pb.Left = 20
pb.Top = 20
Me.Controls.Add(pb)

[hosein320]

اگه میخوایین در همون لحظه ساخته شن و کنار هم قرار بگیرن باید یه خلقه for بزارین و تا همون عددی که از تکست باکس میگیره ادامه داشته باشه
و یک متغیر هم برای ذخیره مکان پیکچرباکس قبلی

dim X as integer
x=20
dim i as integer

for i =1 to textbox1.text

Dim pb As New PictureBox
pb.Image = Image.FromFile("C:\wizc-le.png")
pb.Size = New Size(35, 35)
pb.Left = x
pb.Top = 20
Me.Controls.Add(pb)
x+=pb.width
next

موفق باشید

[goldpower]

اگه میخوایین در همون لحظه ساخته شن و کنار هم قرار بگیرن باید یه خلقه for بزارین و تا همون عددی که از تکست باکس میگیره ادامه داشته باشه
و یک متغیر هم برای ذخیره مکان پیکچرباکس قبلی

dim X as integer
x=20
dim i as integer

for i =1 to textbox1.text

Dim pb As New PictureBox
pb.Image = Image.FromFile("C:\wizc-le.png")
pb.Size = New Size(35, 35)
pb.Left = x
pb.Top = 20
Me.Controls.Add(pb)
x+=pb.width
next

موفق باشید


اگه بخواهیم چند ستون موازی هم پیکچر باکس ها رو رسم کنیم چی ؟ مثل شکل زیر که چهار سری پیکچر باکس هست که موازی سری کناری خودشه.

[goldpower]

مشکل این چیه ؟


For j As Integer = 1 To a
a = a * 2
Dim X As Integer = 40
For i As Integer = 1 To b

Dim pb As New PictureBox
pb.Image = Image.FromFile("C:\wizc-d.png")
pb.Size = New Size(35, 35)
pb.Left = 40 + a
pb.Top = X
Panel1.Controls.Add(pb)
X += pb.Width
Next
Next

[hosein320]

خدمت شما
103147
موفق باشید