TextChenge مشترک

[sheibanizaveh]

سلام دوستان واساتید محترم
من میخوام برای اینکه کد زیادی برای برنامه نوشته نشه کد زیرو در یک Event برای همه TextBox هام بنویسم از شما کمک میخوام بسیار ممنون

PrivateSub Textbox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles _
Textbox1.TextChanged

If Val(Textbox1.text) > 0 Then
Me.Textbox1.Text = Format(CLng(Me.Textbox1.Text), "###,###,###,###,###;;0")
EndSub


در کد بالا میخوام برای 4 تا تکست باکس دیگه در همین قطعه کد این دستورات رو اعمال کنم

[salehbagheri]

به دو حالت میتونید این کار رو انجام بدید!

روش اول اینکه نام تمامی TextBox ها رو همراه با Event مورد نظر در انتهای خط نخست تعریف متد بنویسید:


Private Sub Textbox_TextChanged(sender As System.Object, e As System.EventArgs) Handles Textbox1.TextChanged, TextBox2.TextChanged


روش دوم اینکه یک متد کلی تعریف کنید و با استفاده از AddHandler اون متد رو به رویداد TextChanged همه TextBox ها اختصاص بدید!

[ali_najari]

دوست عزیز از این روش استفاده کنید


Private Sub Textbox_TextChanged(sender As System.Object, e As System.EventArgs) Handles _
Textbox1.TextChanged,Textbox2.TextChanged,Textbox3 .TextChanged,Textbox4.TextChanged

If Val(sender.text) > 0 Then
sender.Text = Format(CLng(sender.Text), "###,###,###,###,###;;0")
End if
End Sub

[فرید نجفلو]

راهش اینه:

PrivateSubTextbox1_TextChanged(senderAsSystem.Obje ct, eAsSystem.EventArgs)Handles _
Textbox1.TextChanged, Textbox2.TextChanged, Textbox3.TextChanged, Textbox4.TextChanged

[saeed.mohammadi]

سلام
شما می توانید یک کنترل تکست باکس درست کنید که همچین خاصیتی داشته باشد هر تعداد خواستید درگ کنید روی فرم ....

[sheibanizaveh]

سلام
از همه دوستان سپاسگزار .
آقای ali_najari خیلی ممنون .