ایتم های combo box

[blake_daniel]

با سلام به همه اساتید محترم.
من یه سوال در مورد کنترل combobox داشتم.
دوستان من توی یک فرم 10 تا combo دارم که میخام یه سری اطلاعات رو که توی یک combo اد کنم و
با لود فرم توی 9 تای دیگه هم اضافه بشه.
بغیر از روش ماجول چجوری میتونم.
میخام ساده ترین راه باشه.:لبخند:
با تشکر:قلب:

[محسن واژدی]

سلام علیکم
یک راه که میتواند ساده ترین هم باشد، 10 کامبوباکس را به کنترل آرایه تبدیل کنید سپس با یک حلقه For و با استفاده از index کنترل ها آیتم ها را اضافه کنید
در اینصورت از تکرار کد جلوگیری میشود

موفق باشید

[blake_daniel]

اقا محسن با تشکر از جوابت.:چشمک:
منظورت رو از تبدیل کامبو باکس به کنترل ارایه نفهمیدم میشه واضحتر بگی.
و یه چیز دیگه اینکه نیاز ندارم که ایندکسشون مشخص باشه(فرق نمیکنه)
اگه میشه نمونه حلقه for رو برام بنویس:قلب:

[محسن واژدی]

میتوانید از 10 تا کامبوباکس بحای آرایه کردن کنترل ها استفاده کنید
دستور زیر را بررسی کنید:

Private Sub Command1_Click()
Dim i%
For i% = 0 To Combo1.ListCount - 1
Combo2.AddItem Combo1.List(i)
Combo3.AddItem Combo1.List(i)
Combo4.AddItem Combo1.List(i)
Combo5.AddItem Combo1.List(i)
Combo6.AddItem Combo1.List(i)
Combo7.AddItem Combo1.List(i)
Combo8.AddItem Combo1.List(i)
Combo9.AddItem Combo1.List(i)
Combo10.AddItem Combo1.List(i)
Next i%
End Sub


موفق باشید

[sahmadkhani]

سلام و خسته نباشید
شما کامبو باکس و کپی کن و بعد paste کن ازت سوال می پرسی به صورت ارایه ای باشه یا نه شما yes رو بزنی کامبوباکست به صورت ارایه ای میشه و نیازی نیست از استفاده زیاد کامبو باکس و کد های تکراری و هر بارpasteکردن به ارایه اضافه میشه



موفق باشید

[محسن واژدی]

سلام و خسته نباشید
شما کامبو باکس و کپی کن و بعد paste کن ازت سوال می پرسی به صورت ارایه ای باشه یا نه شما yes رو بزنی کامبوباکست به صورت ارایه ای میشه و نیازی نیست از استفاده زیاد کامبو باکس و کد های تکراری و هر بارpasteکردن به ارایه اضافه میشه



موفق باشید

سلام علیکم
در این مورد که ایشان می فرمایند، استفاده از کنترل آرایه مقداری کدها را پیچیده میسازد

موفق باشید