hassan1365
سه شنبه 13 اردیبهشت 1384, 13:02 عصر
سلام
من یک شی رو به صورت دینامیک میسازم.ولی نمیتونم نام اونها رو به یه متغیر نسبت بدم.
یعنی میخوام همزمان چند شی یکنوع در فرم داشته باشم و فقط نام اونها با هم فرق کنه.
چون نمیخوام از قبل بهشون نام اختصاص بدم برای همین از یه حلقه استفاده کردم ولی نمیشه :sad2:
اینم کدش:
Dim lab2(15) As Form
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeySpace Then
i = i + 1
createobj (i)
End If
End Sub
Private Sub createobj(i As Integer)
Set lab2(i) = New Form1
Form1.Controls.Add "VB.label", lab2(i), Form1
With Form1!lab2(i)
.Width = 120
.Height = 120
.Move 100, 100
.BackColor = &HFF&
.Caption = ""
.Visible = True
End With
End Sub
Private Sub Form_Load()
i = 0
End Sub
موفق باشید.
من یک شی رو به صورت دینامیک میسازم.ولی نمیتونم نام اونها رو به یه متغیر نسبت بدم.
یعنی میخوام همزمان چند شی یکنوع در فرم داشته باشم و فقط نام اونها با هم فرق کنه.
چون نمیخوام از قبل بهشون نام اختصاص بدم برای همین از یه حلقه استفاده کردم ولی نمیشه :sad2:
اینم کدش:
Dim lab2(15) As Form
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeySpace Then
i = i + 1
createobj (i)
End If
End Sub
Private Sub createobj(i As Integer)
Set lab2(i) = New Form1
Form1.Controls.Add "VB.label", lab2(i), Form1
With Form1!lab2(i)
.Width = 120
.Height = 120
.Move 100, 100
.BackColor = &HFF&
.Caption = ""
.Visible = True
End With
End Sub
Private Sub Form_Load()
i = 0
End Sub
موفق باشید.