[Mostafa Saad]

السلام عليكم.
سيكون عليك وضع هذا الكود في الحدث  KeyDown الخاص بـ TextBox1 :

PHP كود :

Dim SS As Integer = TextBox1.SelectionStart
Dim LastChar As Char = "a"
If SS > 0 Then
LastChar = TextBox1.Text.Chars(SS - 1)
End If

If e.KeyCode = Keys.Enter AndAlso SS > 0 AndAlso (LastChar <> Chr(10)) AndAlso (LastChar <> Chr(13)) AndAlso (LastChar <> ",") Then
        TextBox1.SelectedText = ","
End If 


حيث أن :
♦ في البداية نحدد موقع المؤشر داخل مربع النص كما نحدد اخر حرف تمت كتابته داخله .
♦ ثم نتحقق من الشروط لوضع الفاصلة (أن يتم ضغط زر Enter - الا يكون المؤشر في بداية مربع النص - الا يكون اخر ما تم كتابته هو سطر جديد او فاصلة) .
♦ إذا ما توافرت الشروط يتم إضافة الفاصلة .



واستخدام ذلك قبل الحفظ :

PHP كود :

If Not TextBox1.Text.EndsWith(",") Then
        TextBox1.Text &= ","
End If