منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - ادخال ارقام من نوع Double فقط في خلية الداتا كريد فيو فيجول بيسك 2008

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

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

هذا كود وظيفته ادخال ارقام من نوع 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 ويقبل ادخال الفاصله مره واحده وشكرا

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

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

[attachment=6586]

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

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

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

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

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

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

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

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

كود :

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

السلام عليكم

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

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

مثلا : لأدخال ارقام فقط في الخلايا الموجوده في العمود رقم 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

HATEM KAREM

الجندى

HATEM KAREM

HATEM KAREM

HATEM KAREM

سعود

Abu Ehab

HATEM KAREM