[أبويحيى الجبلاوي]

السلام عليكم ورحمة الله وبركاته 
لو سمحت كود بالضغط على زر buton كتابة "." الفاصة العشرية للأرقام في textbox ولكن اريد عدم تكرارها مرة اخرى بمعنى تكتب مرة واحدة في حال الضغط على الزر مرة ثانية لا يستجيب كونها مكتوبة سابقا 

[attachment=21886]
 
الملف بالمرفقات

[سامي محمد]

كود :

If TextBox1.Text.Contains(".") = True Then Exit Sub

ضع كود اضافة الفاصله هنا

[أبويحيى الجبلاوي]

(30-06-19, 01:06 AM)سامي محمد كتب :

كود :

If TextBox1.Text.Contains(".") = True Then Exit Sub

ضع كود اضافة الفاصله هنا

هل تقصد كود الفاصلة للزر 
code:

كود :

TextBox1.Text = TextBox1.Text & "."

[سامي محمد]

نعم بالظبط

[أبويحيى الجبلاوي]

(30-06-19, 01:22 AM)سامي محمد كتب : نعم بالظبط

الشكر الجزيل لك اخي الفاضل تمت العملية

[سامي محمد]

ان كان المطلوب ان يكون في حدث الكتابة فهذا الكود ايسر

كود :

    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = "." Then e.Handled = TextBox1.Text.Contains(".")
    End Sub