ایجاد لیبل به دلخواه در هنگام اجرای برنامه

[akbarg64]

سلام.خسته نباشید.آیا امکان داره به دلخواه کاربر لیبل در روی فرم ایجاد بشه؟؟؟؟؟؟ممنون میشم راهنمایی کنید.

[setroyd]

Private Sub Form_Load()
Dim l As Label
For a = 0 To InputBox("meghdar ra vared konid ")
Set l = Me.Controls.Add("vb.label", "l" & a)
l.Visible = True
l.Width = 300
l.Height = 200
l.BackColor = QBColor(Rnd * 15)
l.Caption = a
l.Left = (Rnd * Me.ScaleWidth - 300)
l.Top = (Rnd * Me.ScaleHeight - 200)
Next
End Sub
هرجاشو نفهمیدی بگو برات توضیح بدم جوری نوشتم که راحت بفهمی .

[akbarg64]

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

[setroyd]

همونجورکه نوشتم دیگه !l.Caption=هرچی که میخوای جلوش بنویس .

[akbarg64]

منظور من چیز دیگه ای بود فرض کنید ما 11 تا ریکورد داریم و باید 11 تا لیبل ایجاد بشه.تا اینجا که مشکلی نیست.حالا چطور این 11 تا ریکورد رو توی این 11 تا لیبل ایجاد شده نشون بدیم.

[returnx]

به اینصورت:

For i = 1 To 10
Set my_label = Me.Controls.Add("vb.label", "my_label" & i)
With my_label
.Visible = True

.Caption = Adodc1.Recordset.Fields("Any")
.Left = l_left
.BorderStyle = 1
l_left = l_left + my_label.Width
End With
Adodc1.Recordset.MoveNext
Next i