تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعده اريد انشاء برنانج لقنوات bein sport hima_sabry91 2 63 أمس, 01:28 AM
آخر رد: hima_sabry91
  اترتيب الداتا قريد فيو المتألق9 6 109 14-12-18, 10:06 PM
آخر رد: المتألق9
  [VB.NET] داتا جريد فيو M.SOFT 0 46 08-12-18, 03:51 PM
آخر رد: M.SOFT
  تغيير لغة الجداول فى الداتا جريد احمد خطاب 3 93 06-12-18, 09:27 PM
آخر رد: Emam emam
  [VB.NET] استفسار :- بخصوص تنزيل الداتا في قاعدة البيانات dubai.eig 0 48 06-12-18, 04:36 PM
آخر رد: dubai.eig
  سؤال بخصوص الكتابة داخل داتا جريد احمد خطاب 3 86 05-12-18, 11:35 AM
آخر رد: احمد خطاب
  [VB.NET] سؤال عن الداتا جريد فيو M.SOFT 1 69 04-12-18, 04:31 AM
آخر رد: محمد كريّم
Wink [VB.NET] اريد كود اسم الشهر new_programer 4 128 03-12-18, 06:01 AM
آخر رد: mahmoud.3com
  الاضافة والتعديل والحذف من خلال الداتا جريد فيوا makky 2 133 01-12-18, 12:48 AM
آخر رد: حريف برمجة
  الاضافة والتعديل والحذف من خلال الداتا جريد فيوا makky 2 106 30-11-18, 10:36 PM
آخر رد: Rabeea Qbaha

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


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