[ناجي إبراهيم]

السلام عليكم...

في الـ NET. الأمر بسيط:

1. اكتب الكود المذكور أعلاه في الحدث KeyPress لأحد مربعات النص المعنية مع بعض التعديل:

كود :

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox3.KeyPress
        Dim MyBox As TextBox = sender    ' استعمال متغير ليشير إلى مربع النص صاحب الحدث و استعماله في الكود أدناه

        If Not Char.IsControl(e.KeyChar) Then
            If e.KeyChar = "." Then
                If MyBox.Text.IndexOf(".") <> -1 Then
                    If MyBox.SelectionLength > 0 Then
                        If MyBox.SelectedText.IndexOf(".") = -1 Then
                            e.Handled = True
                        End If
                    Else
                        e.Handled = True
                    End If
                End If
            ElseIf "0123456789".IndexOf(e.KeyChar) = -1 Then
                e.Handled = True
            End If
        End If
    End Sub

* لاحظ أننا عرفنا المتغير MyBox و أسندنا إليه البارامتر sender الذي يمثل مربع النص صاحب الحدث، ثم استعملنا هذا المتغير (MyBox) في الكود.

2. في الـ Form اختر مربع النص الآخر، ثم في نافذة الخصائص بدل إلى الأحداث (Events) و في خانة الحدث KeyPress اختر نفس الإجراء الذي كتبته لمربع النص الأول. ستلاحظ في الكود أن إجراء الحدث KeyPress الذي كتبته أصبح يشير إلى مربعي النص:

كود :

Handles TextBox1.KeyPress, TextBox2.KeyPress

نرجو الاستفادة و السلام.