Shape

[vahid_d_0101]

فکر کنید من تو فورمم 20 تا Shape دایره ای دارم که به رنگ های مختلف هستند حالا میخوام با یه دستور ساده مثلا Shape های 12 و 14 و10 و2 و3و را به رنگ سفید در بیارم باید چه دستوری استفاده کنم ( نمیخوام تک تک این Shape ها را به اون رنگ تبدیل کنم همشونو باهم تو یه دستور )

[اوبالیت به بو]

فكر نمي كنم بشه چون حداقل يه نظمي (منظورم دنباله اي ) وجود نداره تا بشه حداقل با حلقه اين كار رو انجام داد. مگر اون Shape هاي مورد نظر رو به وسيله آرايه كنترلي گروه بندي كنيد و با حلقه نمايش بدين:

Dim Counter As Byte
Counter = 0
بعد:

For Counter = 1 To 5
Shape1(Counter).BackColor = vbWhite
Next Counter
يا


While Counter < 5
Shape1(Counter).BackColor = vbWhite
Counter = Counter + 1
Wend

[sohrab o]

اگر بصورت دنباله ای باشه از Control Array میشه استفاده کنی

[فاطمه وطن دوست]

سلام

اینم تست کنید .