ali.b
2019/08/14, 10:53
سلام
زمانی که برحسب شرایط نیاز داشتهباشین تنها ایتم های لیست باکس به کمبوس باکس منتقل بشن و نمیخواین وقت زیادی برای کد نویسی تزریق کمبو باکس براساس محتوای لیستباکس انجام بدین
ComboBox4.Clear
ComboBox4.Font.Name = "B Nazanin"
For n = 1 To ListBox1.ListCount - 1
ComboBox4.AddItem ListBox1.list(n, 2)
Next n
اگر لیستباکس دارای عنوان نباشد به جای عدد 1 ، صفر وارد کنید
اگر لیستباکس دارای چند ستون باشد و فرض ستون 4 رانیاز دارید وارد کمبو شود عدد 2 را تغییر دهید
زمانی که برحسب شرایط نیاز داشتهباشین تنها ایتم های لیست باکس به کمبوس باکس منتقل بشن و نمیخواین وقت زیادی برای کد نویسی تزریق کمبو باکس براساس محتوای لیستباکس انجام بدین
ComboBox4.Clear
ComboBox4.Font.Name = "B Nazanin"
For n = 1 To ListBox1.ListCount - 1
ComboBox4.AddItem ListBox1.list(n, 2)
Next n
اگر لیستباکس دارای عنوان نباشد به جای عدد 1 ، صفر وارد کنید
اگر لیستباکس دارای چند ستون باشد و فرض ستون 4 رانیاز دارید وارد کمبو شود عدد 2 را تغییر دهید