تغییر مقادیر تعدادی Object بوسیله تعریف متغییر

سلام دوستان
کمک می خواستم در مورد تغییر مقادیر تعدادی Object بوسیله تعریف متغییر.
واسه اینکه منظور منو کاملاَ متوجه بشید لطفاَ برنامه ضمیمه رو دانلود کنید.
با تشکر

با سلام...

تا اونجایی که من متوجه شدم شما میخواهید که یک مقدار ثابت رو در هر 8 TextBox وارد کنید !
اگر درست متوجه شده باشم ، شما میتونید از Add Handler کمک بگیرید ...

موفق باشید ..

سلام هادی جان
این رو واسه مثال فرستادم.
میخوام یه سری ToggleButton وقتی که جک مارکش برداشته میشه اگه چک خورده باشن چک مارکش برداشته بشه.
تعداد دکمه ها زیاده واسه همین میخوام این کار رو انجام بدم

دوستان لطفاَ خیلی فوری به کمک من بشتابید.
وقتم داره تموم میشه

خواهشمندم یکی جواب بده!
لــــــــــطـــــــــــفـــــــــــاَ

شما باید از AddHandler استفاده کنید ...
لطفا در MSDN جستجو کنید . اگر به مشکل برخوردید بگید تا Sample بذارم ...

موفق باشید ...

اگه محبت کنید Sample بذارید ممنمون

با سلام مجدد ،
این مثال ساده رو ببین . امیدوارم که مشکلت حل بشه ...

موفق باشید .

ممنون هادی جان
به طور مستقیم به دردم نخورد.
ولی باعث شد تا یه راه حل جدید به ذهنم برسه که از راهنمایی تو بود.
خیلی ممنون
سعید یزدانی

راستش این مورد جایه دیگه به کار رفت.
واسه همین هم مجبورم دوباره ادامه بدم.
شاید بهتره روشن تر بیان کنم.
من توی فرمم 203 تا ToggleButton دارم که هر 29 تا مربوط به یک روز هست.
(مثلاَ: روز شنبه 9 تا ToggleButton واسه صبح داره و 20 تا واسه عصر)
درضمن هر روز هم یدونه CheckBox داره که باعث میشه دکمه های اون روز نمایش داده بشه یا نه.
میخوام وقتی CheckBox مربوط به یک روز (مثلاَ شنبه) برداشته بشه وضعیت دکمه هایی که در حالت انتخاب بودن به حالت اول برگرده.
واسه همین احتیاج به تغییر همه اونها با یک تابع دارم .
اگه که متوجه نمیشید بگید تا یه تکه کد بذارم.

مـــــمـــــنـــــون

من هنوز منتظرم

ببینید شما میتونید Toggle Button های مربوط به هر روز رو در Group Box مجزا قرار بدی .
و از کدی که برات گذاشتم میتونی استفاده کنی و به هدفت برسی !

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

Dim F_ToggleNameM AsString = "tbtn_Mtime"

Dim F_ToggleNameE AsString = "tbtn_Etime"

Dim S_toggleName AsString = DayNum

Dim MorningMix AsString = F_ToggleNameM + S_toggleName + "0"

Dim EveningMix AsString = F_ToggleNameE + S_toggleName + "_"

Dim M_ToggleName As MyToggleButton.MyCustomControls.ToggleButton



For i AsInteger = 1 To 9

 

     M_ToggleName = CType(Me.Controls(MorningMix + i.ToString), _

     MyToggleButton.MyCustomControls.ToggleButton)



If M_ToggleName IsNotNothingThen

    M_ToggleName.Checked = False

EndIf



Next

DayNum متغییری هست که از بیرون وارد این فانکشن میشه و مقدارش میتونه از 01 تا 07 برای هر روز باشه (مثلاَ شنبه = 01 و جمعه = 07)

به هر حال از کمکت خیلی خیلی ممنونم :تشویق:

یه متغییر از نوع آرایه ی object تعریف کن و با یه حلقه خواصیت همه ی object ها تو چک کن

خیلی ممنون دوست عزیزi_naderpour
ولی با اون کدی که نوشته بودم مشکلم حل شد.
به هر حال خیلی محبت کردی.
جبران کنیم داداش