تقييم الموضوع :
  • 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
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 
 مجاناااااا
واتساب 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
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 
 مجاناااااا
واتساب 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
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 
 مجاناااااا
واتساب 00963951283515
الرد
تم الشكر بواسطة: mh66 , asemshahen5 , ابراهيم ايبو
#7
تمام وفقك الله وزادك الله علما
الرد
تم الشكر بواسطة: ابو انس , asemshahen5 , ابراهيم ايبو
#8
اهلا وسهلا ... على الرحب والسعة
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 
 مجاناااااا
واتساب 00963951283515
الرد
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد تعديل الكود ليعمل على صف فى داتا جريد new_programer 12 195 منذ 2 ساعة مضت
آخر رد: E100
  [VB.NET] كيفية تحويل قيمة textbox الي hex ابو ياسين ويزن 1 46 منذ 4 ساعة مضت
آخر رد: معاند الحظ
  اريد كود نفس هذا الكود للاكسس غدير الصليحي 4 150 , 11:29 PM
آخر رد: غدير الصليحي
  [سؤال] فحص اذا كان item موجود فى ListView او لا alims 5 104 , 10:00 PM
آخر رد: alims
  اريد كود الكتابة في ملف txt في مكان محدد العواجي 1 367 , 08:13 PM
آخر رد: سعود
  اريد كود فيجوال نت يقرأ ملف pdf فيه رسومات samira20 0 61 27-11-21, 10:08 AM
آخر رد: samira20
  اريد عمل استعلام على الوقت الاقل كما بالصورة new_programer 5 124 27-11-21, 01:52 AM
آخر رد: new_programer
  اريد كود حفظ تاريخ الى الاكسس غدير الصليحي 4 142 23-11-21, 04:12 PM
آخر رد: غدير الصليحي
  السلام عليكم اريد استخدام هذا الجدول مع كتابة المسافه select*from patent data ahmedhhh2 4 123 22-11-21, 07:31 AM
آخر رد: ahmedhhh2
  خطأ في كود منع تكرار العناصر في DataGridView غدير الصليحي 4 164 21-11-21, 12:24 AM
آخر رد: غدير الصليحي

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


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