[HATEM KAREM]

السلام عليكم ورحمة الله وبركاته

اخواني الاعزاء تحياتي لكم جميعاً

هذا كود وظيفته ادخال ارقام من نوع Double في تكست بوكس

If e.KeyChar = "." Then
If InStr(Me.TextBox5.Text, ".") > 0 Then
e.Handled = True
End If
Else
Select Case e.KeyChar
Case "0" To "9", ControlChars.Back
e.Handled = False
End Select
End If

اريد كود وظيفته ادخال ارقام من نوع Double في خلية داتا كريد فيو فيجوال بيسك 2008
يعني يقبل الارقام من نوع Int وكذلك يقبل الارقام من نوع Double ويقبل ادخال الفاصله مره واحده وشكرا

[HATEM KAREM]

ارجو المساعده رجاءً

[الجندى]

هذا مثال قام به أحد الزملاء ربما يفيدك


  DataGrid Cell Only Numbers.rar (الحجم : 125.85 ك ب / التحميلات : 99)

[HATEM KAREM]

شكرا لك اخي الجندي على الرد

ولكن هذا الكود لا يقبل الرقم مثلا 1.5 من النوع Double

[HATEM KAREM]

ارجو المساعده

اريد كود يقبل الارقام من نوع int وكذلك من نوع Double

مثلا يقبل 3.5 واذا كتبت 1..5 لا يقبله لان الفاصله كتبت مرتين يجب ان يقبلها مرة واحده على الاكثر

رجاءً من عنده الاجابة ارجو المساعده

[HATEM KAREM]

اخواني الاعضاء ارجو المساعدة لان الموضوع مستعجل

[سعود]

السؤال عن مكان او عن الحدث المناسب لكتابة الكود

كود :

Dim val As Double
        Dim val2 As Double
        MsgBox(Double.TryParse(TextBox1.Text, val))
        MsgBox(Double.TryParse(TextBox2.Text, val2))

---

http://www.vbforums.com/showthread.php?7...or-decimal

[Abu Ehab]

السلام عليكم

الموضوع مختلف خالص يا شباب
هي الجريد فيها دالة خاصة      DataGridView1.IsCurrentCellDirty    وحدث خاص كمان 

والكود هذا  مش موجود في المنتديات  ,,,
يعني أختراع  شخصي تقريبا 

مثلا :  لأدخال ارقام فقط في الخلايا الموجوده في العمود رقم 0 :

PHP كود :

   Private Sub DataGridView1_CellValidating(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellValidatingEventArgs) Handles DataGridView1.CellValidating
        If e.ColumnIndex = 0 Then
            If DataGridView1.IsCurrentCellDirty Then
                If Not IsNumeric(e.FormattedValue) Then
                    e.Cancel = True
                    MessageBox.Show("أدخــــل أرقـــــام فــــــقط", "", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

                End If
            End If
        End If
    End Sub 


[HATEM KAREM]

الاخ سعود والاخ ابو ايهاب شكرا لكم على المشاركة

ابو ايهاب ليس هذا ما اردته بالضبط لكنه يفي بالغرض