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

السلام عليكم ورحمة الله وبركاته
لو سمحت كود بالضغط على زر 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

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

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

سامي محمد

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

سامي محمد

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

سامي محمد