تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد ترقيم الداتا جريد فيو
#1
اريد ترقيم الداتا جريد فيو 
الرد
تم الشكر بواسطة:
#2
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   DataGridView1.RowHeadersWidth = 50

End Sub

Private Sub DataGridView1_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint
   Dim x = 14
   If sender.RightToLeft = Windows.Forms.RightToLeft.Yes Then x = e.RowBounds.Width - x
   e.Graphics.DrawString(e.RowIndex + 1, sender.Font, Brushes.Black, New Point(x, e.RowBounds.Top + 2))
End Sub
الرد
تم الشكر بواسطة:
#3
(15-11-18, 11:21 AM)rmnr كتب :
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   DataGridView1.RowHeadersWidth = 50

End Sub

Private Sub DataGridView1_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint
   Dim x = 14
   If sender.RightToLeft = Windows.Forms.RightToLeft.Yes Then x = e.RowBounds.Width - x
   e.Graphics.DrawString(e.RowIndex + 1, sender.Font, Brushes.Black, New Point(x, e.RowBounds.Top + 2))
End Sub
مشكور اخى فين اضع Private Sub DataGridView1_RowPostPaint ويوجد حظا عندى فى كلمة Windows.Forms
الرد
تم الشكر بواسطة:
#4
كود
 Public Sub dgv_serial()                                        'اجراء لترقيم صفوف الداتا جريد
        For i As Integer = 0 To dgvdata.Rows.Count - 1
            If dgvdata.Rows.Count > 0 Then
                dgvdata.Rows(i).Cells(0).Value = i.ToString + 1
            End If
        Next
    End Sub

    Private Sub dgvdata_RowsAdded(sender As Object, e As System.Windows.Forms.DataGridViewRowsAddedEventArgs) Handles dgvdata.RowsAdded
        dgv_serial()
    End Sub

    Private Sub dgvdata_RowsRemoved(sender As Object, e As System.Windows.Forms.DataGridViewRowsRemovedEventArgs) Handles dgvdata.RowsRemoved
        dgv_serial()
    End Sub
الرد
تم الشكر بواسطة:
#5
(15-11-18, 11:59 AM)salah mansour كتب :

الترقيم ظهر فى خانة المدين انا عايز فى اول خانة
الرد
تم الشكر بواسطة:
#6
(15-11-18, 12:18 PM)سمير جمال كتب : هتضيف عامود للداتا جريد باسم المسلسل
الترقيم ظهر فى خانة المدين انا عايز فى اول خانة
الرد
تم الشكر بواسطة:
#7
كود :
   Private WithEvents DGV_AutoNumber As DataGridViewTextBoxColumn
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       ' DGV_AutoNumber
       Me.DGV_AutoNumber = New System.Windows.Forms.DataGridViewTextBoxColumn()
       Me.DGV_AutoNumber.HeaderText = "م"
       Me.DGV_AutoNumber.Name = "DGV_AutoNumber"
       Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DGV_AutoNumber})
       Me.DGV_AutoNumber.DisplayIndex = 0
   End Sub

   Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
       If e.ColumnIndex = Me.DGV_AutoNumber.Index Then
           e.Value = e.RowIndex + 1
       End If
   End Sub
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حساب مجموع ما في الداتا جريد فيو لكل صف alshandodi 8 252 20-05-19, 05:37 PM
آخر رد: alshandodi
  [VB.NET] ترقيم تسلسلي في بيئة تعدد المستخدمين khairallah 5 154 19-05-19, 12:36 AM
آخر رد: elgokr
  عمل استعلام بدلالة الصفوف المختارة من الداتا جريد makky 2 145 09-05-19, 05:11 PM
آخر رد: makky
  [VB.NET] كود عدد الحقول في الداتا اسامه الهرماوي 6 140 07-05-19, 10:59 PM
آخر رد: ابراهيم ايبو
  سورس كود لوضع زر امر داخل الداتا جريد فيو احمد129 2 134 01-05-19, 12:45 PM
آخر رد: DK-x
  [VB.NET] سؤال بخصوص datetimepicker في الداتا جريد فيو jassim316 7 169 25-04-19, 09:28 AM
آخر رد: elgokr
  اريد كود عرض الصورة من مسار فى اليست او جريد new_programer 13 294 24-04-19, 09:41 PM
آخر رد: elgokr
  اضافة صف جديد لدلتا جريد مرتبط nourmandour 5 102 24-04-19, 02:46 PM
آخر رد: elgokr
Video خطأ في الاضافة الدتا جريد nourmandour 5 125 24-04-19, 05:13 AM
آخر رد: elgokr
  تلوين صفوف الداتا قريد فيو المتألق9 1 91 24-04-19, 05:07 AM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم