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

السلام عليكم
اخواني الأفاضل أسعد الله أوقاتكم بالخير والمحبة
لدي استفسار لو تكرمتم عن إمكانية وضع فاصلة بنهاية كل جملة نصية وذلك بشكل تلقائي إما مع كل ENTER لأخذ سطر جديد أو بعد الإنتهاء من إدخال النص كاملاً (أي عند الحفظ)

ولكم جزيل الشكر

أخواني الأعزاء هذا ما توصلت إليه بفضل الله تعالى

PHP كود :

       For Each Str As String In TextBox1.Text
            If TextBox1.Text.Contains(Str & ", " & vbNewLine) Then Exit Sub
            If TextBox1.Text.Contains(Str & vbNewLine) Then
                TextBox1.Text = TextBox1.Text.Replace(Trim(Str & vbNewLine), Str & ", ")
            End If
        Next
        For Each Str As String In TextBox1.Text
            If TextBox1.Text.Contains(", ") Then
                TextBox1.Text = TextBox1.Text.Replace(", ", ", " & vbNewLine)
            End If
            Exit For
        Next 

فهل لديكم حلول مختصرة لهذا الموضوع

السلام عليكم.
سيكون عليك وضع هذا الكود في الحدث 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 

شكراً جزيلاً أخي العزيز Mostafa Saad

لكن بعد التجربة يجب إضافة شرط On Error Resume Next حتى يعمل الكود

تقبل تحياتي

العفو أخي abuzzouz
وقد تم تعديل الأكواد، حيث كانت المشكلة انه يجب الا يكون المؤشر في بداية مربع النص (SS > 0) حتي يمكن البحث عن الحرف في الموقع قبله (SS - 1)