تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد كود يعطيني عدد مرات تكرار حرف معين ضمن نص موجود في textbox
#1
السلام عليكم

عندي تيكست بوكس يسمح بكتابة الارقام فقط 

لكن اذا ادخل المستخدم للبرنامج القيمة التالية مثلا 9999..99 

هنا ادخل الفاصلة مرتان وعند حفظ القيمة في جدول البيانات ستظهر رسالة خطأ

اريد كود يعيد عدد مرات تكرار النقطة اذا كان اكبر من واحد تظهر رسالة 


شكرا

الطلب الثاني لو سمحتم تعديل الكود التالي ليسمح بكتابة النقطة

If Not Char.IsNumber(e.KeyChar) And Not Char.IsControl(e.KeyChar) Then e.Handled = True
الرد }}}
تم الشكر بواسطة: ابو انس , عمار عمار
#2
وعليكم السلام 
الكود التالي لمنع كتابة اي شيء في التيكست بوكس باستثناء الارقام والفاصلة بنوعيها وطبعا انت تستطيع التعديل عليه ويجب ان يكون في حدث KEYPRESS
كود :
 If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> ControlChars.Back AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> "," Then
          e.Handled = True
      End If
  

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

كود :
dim a as integer
    For i As Integer = 0 To TextBox1.TextLength - 1
           If TextBox1.Text.Chars(i) = "." Then
               a += 1
           End If
       Next
       If a > 2 Then
           MsgBox("الفاصلة مكررة")
       End If
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
تم الشكر بواسطة: Miloud , Miloud , mh66 , خالد20 , egy_program , عمار عمار , asemshahen5
#3
شكرا جزيلا وفقك الله

ان اضع الكود التالي في Keypress

Dim KeyAscii As Short = Asc(eventArgs.KeyChar)
       If KeyAscii = 13 Then
           Button7.Focus()
       End If

وعندما قمت بلصق الكود الذي اعطيتني اياه تحته  ظهر خط احمر تحت حرف e
فقمت بوضع الكود الذي اعطيتني اياه مشكرا في TextChanged
هل يمكن جمع الكودين معا

شكرا وفقك الله
الرد }}}
تم الشكر بواسطة: ابو انس , egy_program , عمار عمار , asemshahen5
#4
انا لم اعطك كود واحد بل كودين
الكود الاول يجب ان يكون في الحدث keypress
اما الكود الثاني فضعه في الحدث الذي تراه انت مناسبا انا من رأيي ضعه في حدث فقدان التركيزlostfocus
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
تم الشكر بواسطة: خالد20 , egy_program , g500 , mh66 , asemshahen5 , asemshahen5
#5
تمام استاذي لكني استخدم Keypress مسبقا وقد وضعت فيه الكود


Dim KeyAscii As Short = Asc(eventArgs.KeyChar)
      If KeyAscii = 13 Then
          Button7.Focus()
      End If

وظيفته الانتقال لخانة اخرى عند الضغط على زر الانتر

وبعد اضافة كودك اول اصبح الكود الكامل في Keypress



Dim KeyAscii As Short = Asc(eventArgs.KeyChar)
      If KeyAscii = 13 Then
          Button7.Focus()
      End If

If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> ControlChars.Back AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> "," Then
          e.Handled = True
      End If

عندها ظهر الخطأ
الرد }}}
تم الشكر بواسطة: ابو انس , asemshahen5
#6
انا جربت ان اضع كودي وكودك في نفس الحدث مع تعديل بسيط على كودك ونجح الامر بدون مشاكل
كود :
 Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

       If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> ControlChars.Back AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> "," Then
           e.Handled = True
       End If

       Dim KeyAscii As Short = Asc(e.KeyChar)
       If KeyAscii = 13 Then
           Button1.Focus()
       End If
   End Sub
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
تم الشكر بواسطة: mh66 , asemshahen5 , ابراهيم ايبو
#7
تمام وفقك الله وزادك الله علما
الرد }}}
تم الشكر بواسطة: ابو انس , asemshahen5 , ابراهيم ايبو
#8
اهلا وسهلا ... على الرحب والسعة
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [سؤال] كيف يمكن الغاء السوال عند الكتابة على ملف موجود dell 0 48 19-03-24, 01:23 AM
آخر رد: dell
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  معرفة عدد مرات تكرار الاسم في الداتاقريدفيو صالح عبدالله 8 426 05-02-24, 04:39 PM
آخر رد: صالح عبدالله
  [VB.NET] مشكلة ظهور textbox بعد حذفه من الفورم مبرمج صغير 1 1 221 27-01-24, 02:04 AM
آخر رد: مبرمج صغير 1
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
  التحقق من خلال محتوى خلية عن طريق textbox صالح عبدالله 2 222 24-01-24, 12:54 PM
آخر رد: صالح عبدالله
  [VB.NET] استدعاء بيانات في TextBox بناء على combobox loay775 2 264 18-01-24, 05:07 PM
آخر رد: loay775
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 432 09-01-24, 08:40 PM
آخر رد: new_programer
  إدخال معادلة رياضية في textBox وبرمجة حلها؟ الخير19 3 299 03-01-24, 04:19 PM
آخر رد: الخير19
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم