الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال في الداتا جريد (كتابة أرقام فقط في العمود)

بدأه ssayed111 في 19 أكتوبر 2012 · 8 رد · 1,560 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

ومع توضيح الحدث

Select Case e.KeyChar

Case "0" To "9", ControlChars.Back

e.Handled = False

Case Else

e.Handled = True

End Select

#2

هل من لدية الحل لهذة المشكلة ايها الاخوة

#3

على ما يبدو الامر صعب

#4

السلام عليكم ..

استخدم الــ NumericDataGridViewColumn الموجود في موضوع :

كيف أجعل ال TextBox لا يقرأ إلا الأرقام فقط

الكود بالــ C# , يمكنكم تحويله إلى DLL ثم إضافته لمشروع VB.NET و استخدامه . أويمكن تحويل الكود : رابط التحويل

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#5

اخي العزيز حسام الشامي اشكرك كل الشكر على المشاركة وتقديم الخدمة

ولكن اخي العزيز نحن نبحث عن كود بسيط كما في التكست بعيدا عن استخدام المكتبات التي تربك البرامج وتجعلها كثيرة الاخطاء

ولك كل الشكر

#7

اشكرك اخي العزيز سمير على هذة المشاركة

اخي العزيز لقد تم تجربة الكود في مثال عملي كما هو مرفق وتبين ان حجب كتابة الاحرف في جميع الاعمدة وليس عامود واحد فقط

 

لك كل الشكر

WindowsApplication19.rar

1
#8

معك حق

 

جرب ما يلي

Public Class Form1

    Private Sub dgv1_EditingControlShowing(ByVal sender As Object, ByVal e As DataGridViewEditingControlShowingEventArgs) Handles dgv1.EditingControlShowing
        If Me.dgv1.CurrentCell.ColumnIndex = 1 Then
            AddHandler e.Control.KeyPress, AddressOf Handel_Column1_KeyPress
        End If
    End Sub

    Private Sub Handel_Column1_KeyPress(ByVal sender As System.Windows.Forms.DataGridViewTextBoxEditingControl, ByVal e As KeyPressEventArgs)
        If dgv1.CurrentCell.ColumnIndex = 1
            Dim valid_entry = "0123456789" + ChrW(Keys.Back)
            If valid_entry.Contains(e.KeyChar) Then
                e.Handled = False
            Else
                e.Handled = True
            End If
        End If
        
    End Sub

End Class

Samir Ibrahim

VFP Blog

VB.NET Blog

#9

اشكرك اخي العزيز سمير ابراهيم على هذا الحل

حقا هذا هو المطلوب

المعذرة مرة اخرى لو بدنا نجبر المستخدم ادخال تاريخ في احد الاعمدة

يا ترى ما هو الكود

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…