تغيير همزمان در چند ابزار

[student-p]

با سلام خدمت دوستان عزيز

ميخواستم ببينم ايا امكان تغيير همزمان چند خاصيت از چند ابزار وجود دارد يا خير بعنوان مثال بشه رنگ بكگراند چند shape رو بجاي اينكه بصورت تكي تغيير بديم بشه يكباره تغيير داد؛مثلا بگيم s1 تا s7 رو ....

کد php:

Private Sub Command1_Click()
S1.BackColor = RGB(255, 0, 0)
S2.BackColor = RGB(255, 0, 0)
S3.BackColor = RGB(255, 0, 0)
S4.BackColor = RGB(255, 0, 0)
S5.BackColor = RGB(255, 0, 0)
S6.BackColor = RGB(255, 0, 0)
S7.BackColor = RGB(255, 0, 0)

End Sub 


[babyy]

سلام

اگر اسمها متفاوت باشند؛ خیر
یعنی چطور؟
یعنی اینکه اسم شیپ اولی هست s1 و اسم دومی هست s2 و . . . 
اینطوری امکان اینکه گروهی مشخصاتشون رو عوض کنید ندارید و باید تک تک مثل همین کاری که انجام دادی انجام بدید


ولی اگر اسمها یکی باشن؛ مثلا اسم اول باشه s1 و اسم دومی هم باشه s1 و اسم سومی هم باشه s1 و ...
وقتی این اسم گذاری رو انجام میدید یه خاصیتی به شیپ (یا هر کامپوننت دیگه ای مثل textbox و label و ..) اضافه میشه بنام index
که توسط اون میتونید به شیپ مرد نظرتون دسترسی داشته باشید


مثلا شما یک حلقه از ۱ تا ۷ مینویسید و داخل حلقه مینویسید

کد:

S(i).BackColor = RGB(255, 0, 0)

و اینطوری کل ۷ تا شیب مورد نظرتون کاری که میخوایتید رو انجام میدادن...


این کاری که توضیح داردم دز vb6 انجام میشد؛ 

الان که سرچ کردم همین کار با روش متفاوتی انجام میشه


اینا رو تست کنید

https://stackoverflow.com/questions/3388...-same-name

https://arstechnica.com/civis/viewtopic.php?t=496043

http://www.vbforums.com/showthread.php?2...-in-VB-Net

[student-p]

سلام

اگر اسمها متفاوت باشند؛ خیر
یعنی چطور؟
یعنی اینکه اسم شیپ اولی هست s1 و اسم دومی هست s2 و . . . 
اینطوری امکان اینکه گروهی مشخصاتشون رو عوض کنید ندارید و باید تک تک مثل همین کاری که انجام دادی انجام بدید


ولی اگر اسمها یکی باشن؛ مثلا اسم اول باشه s1 و اسم دومی هم باشه s2 و اسم سومی هم باشه s3 و ...
وقتی این اسم گذاری رو انجام میدید یه خاصیتی به شیپ (یا هر کامپوننت دیگه ای مثل textbox و label و ..) اضافه میشه بنام index
که توسط اون میتونید به شیپ مرد نظرتون دسترسی داشته باشید


مثلا شما یک حلقه از ۱ تا ۷ مینویسید و داخل حلقه مینویسید

کد:

S(i).BackColor = RGB(255, 0, 0)

و اینطوری کل ۷ تا شیب مورد نظرتون کاری که میخوایتید رو انجام میدادن...


این کاری که توضیح داردم دز vb6 انجام میشد؛ 

الان که سرچ کردم همین کار با روش متفاوتی انجام میشه


اینا رو تست کنید

https://stackoverflow.com/questions/3388...-same-name

https://arstechnica.com/civis/viewtopic.php?t=496043

http://www.vbforums.com/showthread.php?2...-in-VB-Net

ممنون دوست عزيز ؛بررسي ميكنم

[student-p]

ممنون انجام شد/.....................