[ابو انس]

اولا في داتا جريد فيو الوضع الافتراضي لارتفاع الصف 22     والوضع الافتراض لحجم الخط 8
سافترض انه الوضع عند واسم الداتا جريد فيو dgv

تفضل الكود

كود :

   Private Sub dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv.CellClick
     
       For i As Integer = 0 To dgv.Rows.Count - 1
           dgv.Rows.Item(i).Height = 22
           dgv.Rows.Item(i).DefaultCellStyle.Font = New Font("Arial", 8)
       Next
       Dim a As Integer
       a = dgv.CurrentCell.RowIndex
       dgv.Rows.Item(a).Height = 30
       dgv.Rows(a).DefaultCellStyle.Font = New Font("Arial", 10)
       a = Nothing
   End Sub