Printable View
سلام
دوستان من رو فرمم دو تا combobox دارم . تو يكي اسم و در ديگري عدد
ميخواهم وقتي مثلا اسم اول انتخاب شد اعداد زوج رو در اون يكي نشون بده و قابل انتخاب بشن و اگه اسم دوم رو انتخاب كردم اعداد فرد و يا اگه اسم سومي اعداد اول و .... ( مي خواهم ليست دوم بر اساس انتخاب ليست اول ----- بشن (البته من از combobox استفاده ميكنم )
ممنون و منتظرم
به راحتي با كد نويسي ميتوني اين كارو بكني
دقيق بگو چي ميخواي تا يا الگوريتم بهت بدم و يا كد.
موفق باشي.
از اوني كه نوشتم واضح تر ؟!!
----- كومبوباكس دومي بر اساس انتخاب كومبوباكس اولي
اگه من درست فهميده باشم با تابع itemindex
می تونی این کار را انجام بدی و با تابعselect , multi select
امکان انتخاب ایجاد کنی دوستان اگه من اشتباه کردم خبر بدید
سلام
من تا حدودی فهمیدم چی می خواهی !
می تونی 3 تا کمبوباکس بزاری!
اعداد زوج! و اعداد فرد!
بعد هر وقت دوست داشتی اعداد زوج فیلتر بشن
کمبوباکس مربوط به اعداد زوج رو قایم کن : hide
و کمبوباکس اعداد فرد : show
موفق باشی
چند تا كار ميتوني بكني.
1. به صورت كاملا كد برخورد كني و در OnChange بنويسي كه چي ميخواي. يعني خط به خط پر كني.
2. يك آرايه بزاري كه كليه مقادير مورد نيازت رو توش وارد كني و بعد توي كد بگي مثلا اگه كوبوباكس 1 بود مقادير 1 تا 10 آرايه رو توي كومبوي بعدي بزاره.
اميدوارم فهميده باشي.
خبرشو بده.
ممنون
سلام
مرد مباح درست می گه!
اما فقط با گزینه اول موافق هستم!
توی onchange می تونی مانع بشی که اون آیتم رو انتخاب کنه!
اما روشی که توی پست 5 گفتم خیلی ساده تر هست!
سلام
hp1361 جان
دوتا ComboBox قرار بده توي Items اولي 0- اعداد فرد 1- اعداد زوج 2-اعداد اول و... قرار بده
و روي رويداد onselect مربوط به ComboBox اول كد زير رو وارد كن
هر procedure مي تونه هر نوع تابع ديگري نيز باشه و اعداد فرد و زوج و اول و... رو توي هر رنجي(Range) كه بخواهي بنويسي كه بخواهي ميتونم كد procedure رو برات بذارم.کد:ComboBox2.Clear;
if ComboBox1.ItemIndex=0 then
//Call procedure for insert Odd in ComboBox2
else if ComboBox1.ItemIndex=1 then
//Call procedure for insert Even in ComboBox2
else if ComboBox1.ItemIndex=2 then
//Call procedure for insert prime in ComboBox2
else ...
سلام
دستتون درد نكنه مرد مباح عزيز با روشت موافقم
mehdi bg عزيز روشت عالي بود (ايول )
موفق باشيد