+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تعديل كود عدم اضافة اكترمن 0 فى التكست بوكس (/showthread.php?tid=22130)
تعديل كود عدم اضافة اكترمن 0 فى التكست بوكس - نبيل فتحى - 16-10-17
بمعنى ان لو الرصيد بيتم ادخاله مثلا وهو 0
يمنع انه يكتب 0000000 اكتر من 0
الكود ده غلط ممكن مساعده فى تعديله
PHP كود :
If (e.KeyChar = "0") Then
If txttalp.Text = "0" Then
Return
End If
End If
RE: تعديل كود عدم اضافة اكترمن 0 فى التكست بوكس - khaled_35 - 16-10-17
كود :
If (TextBob1.Text = Format(0, "0.0")) Then
MsgBox("ok")
Else
MsgBox("no")
End Ifاستخدم Format واضبط الشكل اللي تريده بين " " صفر او صفر مع عدد اصفار بعد الفاصلة العشرية
اتمنى يكون هذا مطلوبك
RE: تعديل كود عدم اضافة اكترمن 0 فى التكست بوكس - نبيل فتحى - 16-10-17
(16-10-17, 02:12 AM)khaled_35 كتب :بعد تعديل الكود برده مش شغالكود :
If (TextBob1.Text = Format(0, "0.0")) Then
MsgBox("ok")
Else
MsgBox("no")
End If
استخدم Format واضبط الشكل اللي تريده بين " " صفر او صفر مع عدد اصفار بعد الفاصلة العشرية
اتمنى يكون هذا مطلوبك
مش عايزه يكتب اكتر من 0 لو الزرار الى ضغط عليه 0 وفى 0 فى التكست بوكس ميشتغلش بحيث ميكتبش 0000000
PHP كود :
If (e.KeyChar = "0") Then
If (txttalp.Text = Format(0, "0.0")) Then
Else
Return
End If
End If
RE: تعديل كود عدم اضافة اكترمن 0 فى التكست بوكس - a.ahmed - 17-10-17
PHP كود :
If sender.Text = "0" And e.KeyChar = "0" Then e.Handled = True
RE: تعديل كود عدم اضافة اكترمن 0 فى التكست بوكس - نبيل فتحى - 17-10-17
(17-10-17, 12:39 AM)a.ahmed كتب :PHP كود :
If sender.Text = "0" And e.KeyChar = "0" Then e.Handled = True
تسلم يا احمد بيه
RE: تعديل كود عدم اضافة اكترمن 0 فى التكست بوكس - سعود - 18-10-17
و ممكن هذا (لو الحدث بنقر زر)
كود :
If TextBox1.Text.LastIndexOf("0") > 0 Then Return