منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اخ boty
السلام عليكم
هذه الطريقة ابسط واسهل للاعضاء المبتدئين وهذا هو الكود
علما بان حدث التركيز يعمل على طريقة التحديد بالماوس او تاب

إقتباس :Public Class Form1
Dim X As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If X = 1 Then
TextBox1.Text &= "1"
End If
If X = 2 Then
TextBox2.Text &= "1"
End If
End Sub




Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If X = 1 Then
TextBox1.Text &= "2"
End If
If X = 2 Then
TextBox2.Text &= "2"
End If
End Sub


Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
X = 1
End Sub


Private Sub TextBox2_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.GotFocus
X = 2
End Sub


End Class

محمود اكرم كتب :اخ boty
السلام عليكم
هذه الطريقة ابسط واسهل للاعضاء المبتدئين وهذا هو الكود
علما بان حدث التركيز يعمل على طريقة التحديد بالماوس او تاب

هذه الطريقة لا تناسبني صراحة اخي فاذا حاولت عمل كود لعشرة ازرار و ليس 2 :confused: سيكون صعبا
في الحقيقة الأخ أبو رائد اعطاني كود ناجح حقا
لكني لا افهمه :confused:
اتمنى ان يشرحه احد اذا استطاع لي
و اشكرك على اهتمامك

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




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

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 


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

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

الاخ @أبو رائد@ دائماً مبدع بمشاركاتك ... جزاكم الله خيراً