PDA

View Full Version : سوال: استفاده از Lable بجای CheckBox


mobinsaffarpour
جمعه 15 آذر 1392, 18:51 عصر
دوستان عزیز سلام

خواستم بدونم آیا میشه بجای استفاده از CheckBox از Lable استفاده کرد
sagggad
جمعه 15 آذر 1392, 19:03 عصر
سلام به شما
بستگی داره برای چی بخوای استفاده کنی دوست من؟؟
mobinsaffarpour
جمعه 15 آذر 1392, 19:09 عصر
من میخوام وقتی روی Lable کلیک میکنم MaskTextBox رو فعال کنه و با کلیک بعدی غیرفعالش کنه ممنون میشم اگر جوابم رو بدی داداش
sagggad
جمعه 15 آذر 1392, 19:37 عصر
داداش شما برای اینکار میتونی از کد زیر استفاده کنی: البته برات سورسش رو هم گذاشتم:لبخندساده:

For i = 0 To 1
If MaskedTextBox1.Enabled = False Then
MaskedTextBox1.Enabled = True
Exit For
ElseIf MaskedTextBox1.Enabled = True Then
MaskedTextBox1.Enabled = False
Exit For
End If
Next
این هم سورسش:113564
موفق باشید
mobinsaffarpour
جمعه 15 آذر 1392, 19:41 عصر
داداش یک دنیا ممنون واقعا لطف کردی . مرسی از اینکه فوری جوابم رو دادی . یک زحمت دیگه هم واست دارم . یک پروژه گذاشتم . میشه جواب اون رو هم بدی . البته اگه میتونی سورس رو برام بفرستی ممنون میشم
sagggad
جمعه 15 آذر 1392, 19:42 عصر
من درخدمتم دوست عزیز!:لبخندساده:
mobinsaffarpour
جمعه 15 آذر 1392, 19:49 عصر
زنده باشی بزرگواری داداش . راستی من یادم رفت بگم این MaskedTextBox یک Error Provider داره برای پاک کردنش چیکار باید بکنم
sagggad
جمعه 15 آذر 1392, 19:53 عصر
چی هست اروره داداش؟؟
mobinsaffarpour
جمعه 15 آذر 1392, 20:00 عصر
Error مربوط به این هست که اگر فیلد MaskTextBox رو کاربر تکمیل نکرده بود نمایش داده میشه . میخوام وقتی MaskTextBox رو غیر فعال میکنم Error Provider مربوط به MaskTextBox نمایش داده نشه . مرسی
sagggad
جمعه 15 آذر 1392, 20:05 عصر
از این کد استفاده کن دوست من:
()ErrorProvider1.Clear
mobinsaffarpour
جمعه 15 آذر 1392, 20:14 عصر
دوست من Error Provider هائی که تعریف شده هستند در فرم بیش از 15 مورد هستن . من فقط میخوام مال همون MaskTextBox حذف بشه
sagggad
جمعه 15 آذر 1392, 20:26 عصر
چیزی که به ذهن من میرسه اینه که یه تکس باکس مثلا به نام Textbox1 ایجاد کن وVisable اون روFalseبکن.اونوقت توی اون بخشی که کد Error Provider رو مربوط به MaskTextBox کردی
کد زیر رو هم بنویس:
" Textbox1.text="Error
وبعد اون کدی که برای کلیک لیبل نوشتی رو به کد زیر تغییر بده:

For i = 0 To 1
If MaskedTextBox1.Enabled = False And TextBox1.Text="Error" Then
MaskedTextBox1.Enabled = True
()ErrorProvider1.Clear
Exit For
ElseIf MaskedTextBox1.Enabled = True Then
MaskedTextBox1.Enabled = False
Exit For
End If
Next
mobinsaffarpour
جمعه 15 آذر 1392, 20:30 عصر
مرسی دوست خوب و حرفه ای من درست شد
sagggad
جمعه 15 آذر 1392, 20:32 عصر
خواهش میکنم ببخشید نتونستم اون سوالت رو جواب بدم!!!!!!!!1:قلب::خجالت::خجالت:
mobinsaffarpour
جمعه 15 آذر 1392, 20:38 عصر
نه بابا این چه حرفیه اما در عوض اون که جواب دادی خیلی مهم تر از این بود
sagggad
جمعه 15 آذر 1392, 20:40 عصر
خداروشکککککککر!!!!