[boty]

@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته




أصارحك أنا في الأساس لا أحسن الشرح، ولكن اجتهد بما استطيع

PHP كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '' LastTextBoxFocusSetup استدعاء الإجراء
        LastTextBoxFocusSetup()

    End Sub


    '' تعيين متغير لحفظ صندوق نص
    Private LastTextBoxFocus As New TextBox


    '' LastTextBoxFocusSetup الإجراء
    Private Sub LastTextBoxFocusSetup()

        '' يبحث في جميع الأدوات الخاصة بالفورم
        For Each c As Control In Me.Controls

            '' إذا كانت الأداة هي مربع نص
            '' TextBox_LostFocus الخاص بها بالاجراء LostFocus قم بربط حدث فقدان التركيز
            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


    '' حدث الضغط على الزر1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        '' تعديل النص لأداة مربع النص المحفوظ في المتغير
        LastTextBoxFocus.Text &= "1"

        '' إنتقال التركيز لأداة مربع النص المحفوظ في المتغير
        LastTextBoxFocus.Focus()

        '' وضع المؤشر في آخر النص المكتوب في أداة مربع النص المحفوظ في المتغير
        LastTextBoxFocus.SelectionStart = LastTextBoxFocus.SelectionLength

    End Sub


    '' حدث الضغط على الزر2 ونفس الشرح في الزر1
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        LastTextBoxFocus.Text &= "2"
        LastTextBoxFocus.Focus()
        LastTextBoxFocus.SelectionStart = LastTextBoxFocus.SelectionLength

    End Sub 


السلام عليكم ورحمة الله وبركاته

لماذا تقول هذا اخي شرحك رائع
شكرا جزيييييييييييييييييلا لك