انتخاب متن TextBoxهای یک فرم

[nnshokry]

سلام
من یک فرم دارم که تعدادی زیادی TextBox دارد و میخوام به محض ورود (Enter) با (Clik) در آنها کل متن تکست باکس انتخاب بشه .
اگر بخوام برای هرکدام یه خط برنامه بنویسم طولانی میشه . میخواستم ببینم راه بهتری وجود داره ؟ مثلا کدی که تعیین کنه : روی این فرم به محض ورود به تکست باکس متنش انتخاب بشه

[MortezaZandi]

سلام این سه تابع رو به فرم موردنظر اضافه کنید و در رویداد Load یکبار تابع AssignEvents را صدا بزنید.
این کد به زبان VB است:




Private Sub AssignEvents()
For Each c As Control In Me.Controls '@
If TypeOf (c) Is TextBox Then
AddHandler c.Enter, AddressOf OnEnterEvent
AddHandler c.Click, AddressOf OnClickEvent
End If
Next
End Sub

Private Sub OnClickEvent(sender As Object, e As EventArgs)
sender.SelectAll()
End Sub

Private Sub OnEnterEvent(sender As Object, e As EventArgs)
sender.SelectAll()
End Sub



در صورتی که همه کنترل های TextBox مورد نظر را در روی فرم قرار دهید و نه بر روی دربرگیرنده دیگر کد فوق همان چیزی است که شما می خواهید .
در غیر این صورت می بایست در خطی که با علامت @ مشخص شده بجای Me.Controls نام دربرگیرنده کنترل های TextBox خود را قرار دهید. مانند Panel1

[nnshokry]

سلام دوست عزیز
خیلی ممنونم . دقیقا همانطور که فرموده بودین ، کامل و خوب کار میکنه