21-06-13, 01:40 AM
افادني كثبييييييييييييييييييرا الأخ @@أبورائد@@
و الآن هل هناك من يستطيع شرح الكود الذي كتبه لي أبو الرائد و الذي ساعدني كثيرا
ها هو الكود :
و الآن هل هناك من يستطيع شرح الكود الذي كتبه لي أبو الرائد و الذي ساعدني كثيرا
ها هو الكود :
إقتباس :Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LastTextBoxFocusSetup()
End Sub
#Region " LastTextBoxFocus "
Private LastTextBoxFocus As Control = New TextBox
Private Sub LastTextBoxFocusSetup()
For Each c As Control In Me.Controls
If TypeOf c Is TextBox Then AddHandler c.LostFocus, AddressOf TextBox_LostFocus
Next
End Sub
Private Sub TextBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs)
LastTextBoxFocus = sender
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
LastTextBoxFocus.Text &= "1"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
LastTextBoxFocus.Text &= "2"
End Sub
End Class
