+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [vb6.0] ادراج فاصلة عشرية مرة واحدة (/showthread.php?tid=30091)
ادراج فاصلة عشرية مرة واحدة - أبويحيى الجبلاوي - 30-06-19
السلام عليكم ورحمة الله وبركاته
لو سمحت كود بالضغط على زر buton كتابة "." الفاصة العشرية للأرقام في textbox ولكن اريد عدم تكرارها مرة اخرى بمعنى تكتب مرة واحدة في حال الضغط على الزر مرة ثانية لا يستجيب كونها مكتوبة سابقا
[attachment=21886]
الملف بالمرفقات
RE: ادراج فاصلة عشرية مرة واحدة - سامي محمد - 30-06-19
كود :
If TextBox1.Text.Contains(".") = True Then Exit Subضع كود اضافة الفاصله هنا
RE: ادراج فاصلة عشرية مرة واحدة - أبويحيى الجبلاوي - 30-06-19
(30-06-19, 01:06 AM)سامي محمد كتب :كود :
If TextBox1.Text.Contains(".") = True Then Exit Sub
ضع كود اضافة الفاصله هنا
هل تقصد كود الفاصلة للزر
code:
كود :
TextBox1.Text = TextBox1.Text & "."RE: ادراج فاصلة عشرية مرة واحدة - سامي محمد - 30-06-19
نعم بالظبط
RE: ادراج فاصلة عشرية مرة واحدة - أبويحيى الجبلاوي - 30-06-19
(30-06-19, 01:22 AM)سامي محمد كتب : نعم بالظبط
الشكر الجزيل لك اخي الفاضل تمت العملية
RE: ادراج فاصلة عشرية مرة واحدة - سامي محمد - 30-06-19
ان كان المطلوب ان يكون في حدث الكتابة فهذا الكود ايسر
كود :
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = "." Then e.Handled = TextBox1.Text.Contains(".")
End Sub