Discussion :

[Anthony75]

Bonjour le forum,

je souhaiterais savoir si il est possible de creer un datagridview type sous vb.net un peu de la meme maniere que l'on cree une datatable typee ("strongly Typed Datatable")

En effet, ceci me permettrait de mettre tout les attributs de mon Datagridview dans cette nouvelle classe et d'eviter d'avoir a surcharger le code de mon application en appellant directement le Datagridview type.

Pour situer mon probleme, j'ai creer une DataRow typee, puis un datatable typee en m'inspirant de l'exemple ci-dessous:
http://www.codeproject.com/KB/databa...DataTable.aspx

Pour mon Datagrid, j'ai essaye de coder comme ci-dessous mais mon programme bloque sur les noms de colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Public Class PricingDataGrid
 
    Inherits System.Windows.Forms.DataGridView
 
    Public Sub New()
 
        'Setup The DatagridView
        Dim ColumnHeaderStyle As New DataGridViewCellStyle
        ColumnHeaderStyle.Font = New Font("Arial", 8, FontStyle.Bold, GraphicsUnit.Point)
        ColumnHeaderStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
 
        For Each Column As DataGridViewColumn In Me.Columns
            Column.HeaderCell.Style = ColumnHeaderStyle
            Column.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            Column.AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
        Next Column
 
        With Me
            .Columns("Strikes").DefaultCellStyle.BackColor = Color.LightGray
            .Columns("Strikes").DefaultCellStyle.Font = New Font("Arial", 8, FontStyle.Bold, GraphicsUnit.Point)
            .Columns("Put Fair Value").DefaultCellStyle.BackColor = Color.LightBlue
            .Columns("Put Fair Value").DefaultCellStyle.Font = New Font("Arial", 8, FontStyle.Bold, GraphicsUnit.Point)
            .Columns("Call Fair Value").DefaultCellStyle.BackColor = Color.LightYellow
            .Columns("Call Fair Value").DefaultCellStyle.Font = New Font("Arial", 8, FontStyle.Bold, GraphicsUnit.Point)
            .ReadOnly = True
            .AllowDrop = False
            .RowHeadersVisible = False
            .AllowUserToAddRows = False
            .AllowUserToResizeRows = False
            .AllowUserToDeleteRows = False
            .AllowUserToOrderColumns = False
            .AllowUserToResizeColumns = False
        End With
 
    End Sub
 
End Class

En pieces jointes, j'ai attache les classes que j'ai crees, si elles peuvent etre d'utilite a quelqu'un.

Si vous pouviez m'aider ce serait tres sympa.

Merci par avance

Anthony