1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64
| Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
With Me.DataGridView1
.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders
'.etc...
End With
MiseEnFormeDGV()
End Sub
'----- Pour la définition dynamique des colonnes
Public Function AjoutCol(ByVal DGV As DataGridView, ByVal nomColonne As String, ByVal titreColonne As String, _
Optional ByVal NomDonnees As String = "", _
Optional ByVal iWidth As Integer = 0, _
Optional ByVal bReadonly As Boolean = False, _
Optional ByVal format As String = "", _
Optional ByVal alignCells As DataGridViewContentAlignment = DataGridViewContentAlignment.MiddleLeft, _
Optional ByVal alignHeader As DataGridViewContentAlignment = DataGridViewContentAlignment.MiddleCenter, _
Optional ByVal wrapmodecells As DataGridViewTriState = DataGridViewTriState.False) As Boolean 'format As String = ""
Try
Dim dtc As New DataGridViewTextBoxColumn
With dtc
.Name = nomColonne
If NomDonnees.Length > 0 Then .DataPropertyName = NomDonnees
.HeaderText = titreColonne
.ReadOnly = bReadonly
.AutoSizeMode = DataGridViewAutoSizeColumnMode.None
If iWidth > 0 Then .Width = iWidth
If format.Length > 0 Then
.DefaultCellStyle.Format = format
End If
.DefaultCellStyle.Alignment = alignCells
.HeaderCell.Style.Alignment = alignHeader
.DefaultCellStyle.WrapMode = wrapmodecells
.SortMode = DataGridViewColumnSortMode.NotSortable
End With
DGV.Columns.Add(dtc)
Return True
Catch ex As Exception
Debug.Print("AjouterUneColonne : " & ex.Message)
Return False
End Try
End Function
Private Sub MiseEnFormeDGV()
AjoutCol(DataGridView1, "Num", "N°", "Num", 60, False, , DataGridViewContentAlignment.TopRight, _
DataGridViewContentAlignment.MiddleCenter)
AjoutCol(DataGridView1, "Libel", "LIBELLES", "Libel", 460, False, , DataGridViewContentAlignment.TopLeft, _
DataGridViewContentAlignment.MiddleCenter, DataGridViewTriState.True)
AjoutCol(DataGridView1, "Unit", "U", "Unit", 50, False, , DataGridViewContentAlignment.BottomCenter, _
DataGridViewContentAlignment.MiddleCenter)
AjoutCol(DataGridView1, "Quant", "QUANTITES", "Quant", 100, False, "N3", DataGridViewContentAlignment.BottomRight, _
DataGridViewContentAlignment.MiddleCenter)
AjoutCol(DataGridView1, "PrixUnit", "PRIX UNIT.", "PrixUnit", 100, False, "N2", DataGridViewContentAlignment.BottomRight, _
DataGridViewContentAlignment.MiddleCenter)
AjoutCol(DataGridView1, "PrixHT", "PRIX H.T.", "PrixHT", 112, False, "N2", DataGridViewContentAlignment.BottomRight, _
DataGridViewContentAlignment.MiddleCenter)
End Sub
End Class |