+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] مساعدة في إضافة العلامة العشرية والفاصلة داخل تكست بوكس والجريد فيو (/showthread.php?tid=23691)
مساعدة في إضافة العلامة العشرية والفاصلة داخل تكست بوكس والجريد فيو - بيسك لكل العرب - 05-02-18
السلام عليكم ورحة الله وبركاته
اخواني في المنتدي فيجول بيسك لكل العرب
نأمل منكم مساعدة في إضافة العلامة العشرية والفاصلة داخل تكست بوكس والجريد فيو
RE: مساعدة في إضافة العلامة العشرية والفاصلة داخل تكست بوكس والجريد فيو - محمود صالح - 06-02-18
نسقها في قاعدة البيانات
RE: مساعدة في إضافة العلامة العشرية والفاصلة داخل تكست بوكس والجريد فيو - nooralcown - 06-02-18
بالنسبة للتنسيق داخل تكست بوكس تفضل
كود :
Private Sub TextBox2_LostFocus(sender As Object, e As EventArgs) Handles TextBox2.LostFocus
'استخدام دالة FormatNumber
Try
Dim x As Decimal = CDec(TextBox2.Text)
TextBox2.Text = (FormatNumber(x, 3))
Catch
Exit Sub
End Try
End Subبالنسبة للتنسيق داخل داتا قرايد فيو تفضل
طبعا هنا التنسيق لاكثر من عمود انا ضفت اداة NumericUpDown1 ليحدد المستدم عدد الارقام العشرية اذا بدك تغير حاول تعديل الكود
مع ملاحظة في سطر معطل , هذا السطر هو البديل ان حبيت تعدل لعدد محدد وليس ترك الخيار للمستخدم
كود :
Private Sub DataGridViewX1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridViewX1.CellFormatting
Try
With Me.DataGridViewX1
If e.ColumnIndex = 2 AndAlso e.RowIndex <> DataGridViewX1.NewRowIndex Then
' e.Value = CDec(e.Value).ToString("f3")
e.Value = FormatNumber((e.Value).ToString, NumericUpDown1.Value)
e.FormattingApplied = True
End If
If e.ColumnIndex = 3 AndAlso e.RowIndex <> DataGridViewX1.NewRowIndex Then
e.Value = FormatNumber((e.Value).ToString, NumericUpDown1.Value)
e.FormattingApplied = True
End If
If e.ColumnIndex = 4 AndAlso e.RowIndex <> DataGridViewX1.NewRowIndex Then
e.Value = FormatNumber((e.Value).ToString, NumericUpDown2.Value)
e.FormattingApplied = True
End If
If e.ColumnIndex = 5 AndAlso e.RowIndex <> DataGridViewX1.NewRowIndex Then
e.Value = FormatNumber((e.Value).ToString, NumericUpDown2.Value)
e.FormattingApplied = True
End If
End With
Catch ex As Exception
End TryRE: مساعدة في إضافة العلامة العشرية والفاصلة داخل تكست بوكس والجريد فيو - بيسك لكل العرب - 06-02-18
مشكور اخي وجزاك الله كل خير وانا اقصد يكون التنسيق متل الاكسل #,##0.00 مع الجريدفيو وتكست بوكس وشكرا
السلام عليكم بحث داخل المنتدي وتحصلت ع الكود المطلوب السؤال كيف يمكن تطبيقه على عدة تكست بوكس
وعدة أعمدة داخل الجريد
تقبل تحياتي وجزاك الله كل خير
PHP كود :
DataGridView1.Columns(1).DefaultCellStyle.Format = "#,##0.00"
RE: مساعدة في إضافة العلامة العشرية والفاصلة داخل تكست بوكس والجريد فيو - nooralcown - 11-02-18
لابد من كتابةكود لكل تكست ولكل عمود في داتاقرايد فيو
واذا حدامن الشباب عنده اشي تاني يفيدنا