تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مطلوب تعديلات في هذه الاكواد بحيث تكون فعاله اكثر
#1
هذا  الكود يقوم بوضع قيد على التيكست بوكس بحيث يسمح بأدخال الحروف فقط  ولكن هناك مشكله في وضع مساحه بين النص اي ان مفتاح السبيس او المسافه لا يعمل  


        If Char.IsLetter(e.KeyChar) = False And Char.IsControl(e.KeyChar) = False Then e.Handled = True

وهذا الكود  ايظا  يقوم بوضع قيد علي التيكست بوكس بحيث يسمح بأدخال الارقام فقط  ويسمح بالفاصله العشريه  ولكن  اريد  ان اعدل فيه بحيث يسمح برقمين  فقط  بعد الفاصله العشريه 

   If Char.IsNumber(e.KeyChar) = False And Char.IsControl(e.KeyChar) = False Then If e.KeyChar = CChar(".") Then e.Handled = False Else e.Handled = True
الرد }}}}
تم الشكر بواسطة:
#2
PHP كود :
Private Sub TextBox1_KeyPress(sender As ObjectAs System.Windows.Forms.KeyPressEventArgsHandles TextBox1.KeyPress
    
If Not (Char.IsControl(e.KeyChar) Or Char.IsLetter(e.KeyChar) Or Char.IsWhiteSpace(e.KeyChar)) Then e.Handled True
End Sub 

PHP كود :
Private Sub TextBox2_KeyPress(sender As ObjectAs System.Windows.Forms.KeyPressEventArgsHandles TextBox2.KeyPress
    Dim dec 
As Integer 2
    
If Not (Char.IsControl(e.KeyChar) Or Char.IsDigit(e.KeyChar) Or e.KeyChar "."Then e.Handled True
    
If (e.KeyChar "." And sender.Text.Contains(".")) Then e.Handled True
    
If sender.Text.Contains(".") And Char.IsDigit(e.KeyCharThen
        If sender
.Text.ToString.Split(".")(1).Count dec And sender.SelectionStart sender.Text.IndexOf("."Then e.Handled True
    End 
If
End Sub 
الرد }}}}
تم الشكر بواسطة:
#3
شكرا لك اخي الكريم ونسأل الله ان تكون في ميزان حسناتك
الرد }}}}
تم الشكر بواسطة: amgad525


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في قراءة داتابيس اكثر من نسخة للبرنامج 0theghost0 9 122 13-01-17, 10:44 AM
آخر رد: 0theghost0
  [VB.NET] المساعدة في الاكواد لبرنامج انتي فايرس 0theghost0 6 100 11-01-17, 11:08 PM
آخر رد: 0theghost0
  [سؤال] حماية ملف الdll من استخراج الاكواد mohamed haroon 5 308 10-01-17, 05:56 AM
آخر رد: mohamed haroon
  كيفية استخراج ربح من المبيعات عندما تكون سعر شراء المادة مختلة في كل مرة max_1978 3 98 05-01-17, 12:40 AM
آخر رد: أبو عمر
  [سؤال] مطلوب كود يقوم بالتنبيه naden 3 93 31-12-16, 02:47 AM
آخر رد: naden
  عاوز كتاب كل الاكواد الخاصة بالربط عن طريق المعالج araxis 0 55 30-12-16, 07:19 PM
آخر رد: araxis
Photo مطلوب كود لإدراج جدول بمواصفات معينة SYman 1 85 20-12-16, 06:54 PM
آخر رد: zinom
  [سؤال] مطلوب كود ربط combo box بقاعدة بيانات (اكسيس) BLACKBROWN5 5 189 13-12-16, 12:08 PM
آخر رد: tryold
Information [VB.NET] مساعده في الفيجوال بيسك هل اقدر اسوي اكثر من فورم a_abdullah 4 181 07-12-16, 02:39 PM
آخر رد: a_abdullah
  [SQL] مطلوب جدول به اصناف محل كمبيوتر ... عاجل MH mekawy 2 126 03-11-16, 04:22 PM
آخر رد: MH mekawy

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


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