ايران ويج

ايران ويج > برنامه نویسی > ويژوال بيسيك > تغيير همزمان در چند ابزار
نسخه‌ی کامل: تغيير همزمان در چند ابزار
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.

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

۲۹-خرداد-۱۳۹۷, ۰۸:۲۰:۲۰
(۲۹-خرداد-۱۳۹۷, ۰۱:۴۰:۴۷)babyy نوشته است: [ -> ]سلام

اگر اسمها متفاوت باشند؛ خیر
یعنی چطور؟
یعنی اینکه اسم شیپ اولی هست 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

۱۰-تير-۱۳۹۷, ۱۲:۴۱:۲۲
ممنون انجام شد/.....................
دست زدن - بهینه شده برای ورژن جدید لبخند ملیح − بهینه شده برای ورژن جدید
ايران ويج > برنامه نویسی > ويژوال بيسيك > تغيير همزمان در چند ابزار