دالة اضافة مسافة بعد كل حرف

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

اخي عملية اضافة الفراغ تتم اثناء الكتابه ولا عند ضغط زر معين؟!!

شكرا علي اهتمامك لكني اريد التنسيق مسافة بعد كل حرف لان المستخدم سيدخل فيها كود منتج فيجب ان تكون حروف متفرقة وقد شاهدتها في برنامج لكني لا اعرف كيف افعله

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

اخي بس مارديت على سؤالي السابق لأنه هو الي بيحدد الحل؟!!

تتم اثناء الكتابة

في انتظار ردك اخي VB HELPER

جرب هذا الكود

    Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Not Char.IsControl(e.KeyChar) Then
            Dim pos As Integer = Me.TextBox1.SelectionStart
            Me.TextBox1.Text = Me.TextBox1.Text.Insert(pos, e.KeyChar & " ")
            Me.TextBox1.SelectionStart = pos + 2
            e.Handled = True
        End If
    End Sub

الافضل استخدام MaskedTextBox ووضع القناع mask مثل (a a a a a a) اي يقبل حرف وبينها فراغ او ارقام بينها فراغ (0 0 0 0 0 0)

TareqVB كتب:

الافضل استخدام MaskedTextBox ووضع القناع mask مثل (a a a a a a) اي يقبل حرف وبينها فراغ او ارقام بينها فراغ (0 0 0 0 0 0)

طبعا MaskedTextBox أفضل بكثير لكن يعيبه أنك لابد أن تحدد عدد الحروف التى يمكن أن يدخلها المستخدم عند تحديد الخاصية Mask أما لو كان عدد الحروف غير محدود فلن تجدى نفعا

GHOST2010 كتب:

جرب هذا الكود

    Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Not Char.IsControl(e.KeyChar) Then
            Dim pos As Integer = Me.TextBox1.SelectionStart
            Me.TextBox1.Text = Me.TextBox1.Text.Insert(pos, e.KeyChar & " ")
            Me.TextBox1.SelectionStart = pos + 2
            e.Handled = True
        End If
    End Sub

جزاك الله عني خير الجزاء ونفعنا بعلمك تم حل المشكلة بفضل الله ثم مساعدتك اخي الكريم

TareqVB كتب:

الافضل استخدام MaskedTextBox ووضع القناع mask مثل (a a a a a a) اي يقبل حرف وبينها فراغ او ارقام بينها فراغ (0 0 0 0 0 0)

فكرة ولا اروع جزاك الله عني خير الجزاء