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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=8256)

مطلوب كود يمسح المسافة عند ادخال بيانات بالداتا جريد فيو - cvcvcv - 31-03-13


أنا كتبت الكود ده علشان يمسح المسافة عند الادخال بطريقة الديتيلزdetails
Private Sub NameTextBox_KeyDown
If NameTextBox.Text = Trim(" ") Or NameTextBox.Text = " " Then
""=NameTextBox.Text
End If
End Sub

عايز كود ينفع للادخال بطريقة الداتا جريد فيو
.. وشكراً

مطلوب كود يمسح المسافة عند ادخال بيانات بالداتا جريد فيو - محمد عمر مصصطفى - 02-04-13

تفضل
كود :
[align=left][b][COLOR="#0000FF"]
Private Sub DataGridView1_CellEndEdit(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
        Dim k As String
        If e.ColumnIndex = 0 Then
            k = DataGridView1.Item(0, e.RowIndex).Value
            DataGridView1.Item(0, e.RowIndex).Value = k.Replace(" ", "")

        End If[/COLOR][/b][/align]
    End Sub

بحيث ان
e.ColumnIndex = 0 هي رقم العمود الذي تود الغاء المسافات منه
واذا اردت تعميم الغاء المسافات على كل الخلايا
كود :
[align=left][COLOR="#FF0000"]
Private Sub DataGridView1_CellEndEdit(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
        Dim k As String

        k = DataGridView1.Item(e.ColumnIndex, e.RowIndex).Value
        DataGridView1.Item(e.ColumnIndex, e.RowIndex).Value = k.Replace(" ", "")


    End Sub[/COLOR][/align]


مطلوب كود يمسح المسافة عند ادخال بيانات بالداتا جريد فيو - cvcvcv - 02-04-13

شكرا الاستاذ محمد عمر مصطفى