ساخت یک آبجکت در vb6 [بایگانی]

hamedspartacus

سه شنبه 18 خرداد 1395, 16:18 عصر

سلام . من یک button دارم میخوام وقتی روش کلیک میکنم مثلا یه کمبوباکس روی فرم ساخته بشه !!! یعنی میخوام کاربر بتونه واسه خودش یه کمبو باکس بسازه . حالا از چه کد و متغیری استفاده کنم که بتونم اینکارو بکنم؟؟؟ درضمن اگه بخوام رو اون کمبو باکسی که ساختم کلیک کنم و یه عملیات براش تعریف کنم باید چه کنم ؟

vbhamed

سه شنبه 18 خرداد 1395, 18:10 عصر

سلام
راه ساده اینه که یک کمبو باکس به نام مثلا Combo1 با Index = 0 روی فرم بزارید و مخفیش کنید، اینم کد دکمه

Private Sub Command1_Click()

Load Combo1(Combo1.UBound + 1)

With Combo1(Combo1.UBound)
.Visible = True
.ZOrder 0
.Move Combo1(Combo1.UBound - 1).Left + 200, Combo1(Combo1.UBound - 1).Top + 200
End With

End Sub