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

نسخة كاملة : تعديل كود عدم اضافة اكترمن 0 فى التكست بوكس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
بمعنى ان لو الرصيد بيتم ادخاله مثلا وهو 0
يمنع انه يكتب 0000000 اكتر من 0
الكود ده غلط ممكن مساعده فى تعديله
PHP كود :
  If (e.KeyChar "0"Then
            If txttalp
.Text "0" Then
                Return
            End 
If
 
       End If 
كود :
If (TextBob1.Text = Format(0, "0.0")) Then
               MsgBox("ok")
           Else
               MsgBox("no")
           End If

استخدم Format  واضبط الشكل اللي تريده بين " " صفر او صفر مع عدد اصفار بعد الفاصلة العشرية

اتمنى يكون هذا مطلوبك
(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 
PHP كود :
If sender.Text "0" And e.KeyChar "0" Then e.Handled True 
(17-10-17, 12:39 AM)a.ahmed كتب : [ -> ]
PHP كود :
If sender.Text "0" And e.KeyChar "0" Then e.Handled True 

تسلم يا احمد بيه
و ممكن هذا (لو الحدث بنقر زر)
كود :
If TextBox1.Text.LastIndexOf("0") > 0 Then Return