procédure pour datagrid

Bonjour,

J'ai plusieurs datagridview dans mon projet, dont certaines colonnes sont les mêmes.

J'aimerai donc créer une procédure afin d'éviter de répéter chaque propriété pour chaque datagrid.

J'ai commencé avec ça mais ils me dit que les objet n'est pas référencés à une instance.

Code:

---

1 2 3 4 5 6 7 8

Public Sub formedatagrid(ByVal fdatagrid As DataGridView, ByVal fvisible As Boolean, ByVal nomcolonne As String, ByVal nomcolonne2 As String, ByVal nomcolonne3 As String, ByVal nomcolonne4 As String) Dim _fdatagrid = New DataGridView fdatagrid = _fdatagrid _fdatagrid.Columns(nomcolonne).Visible = False _fdatagrid.Columns(nomcolonne2).Width = 50 _fdatagrid.Columns(nomcolonne3).Width = 50 _fdatagrid.Columns(nomcolonne3).Width = 300 End Sub

---

Quelqu'un pourrait-il me conseiller ?

Merci par avance,

Cordialement

Salut,
Petite question, il te sort les messages d'erreur en ukrainien et tu utilise google translate pour les traduire en anglais puis en français ? Non parce que je vois tout à fait l'erreur dont il s'agit, mais le message n'est pas le même... Ta traduction ne signifie rien pour moi.

Bref, passons, concernant ton problème, tu fais un peu n'importe quoi dans ta fonction :

Le premier paramètre de ta fonction est "ByVal", et c'est une DataGridView, autrement dit, on s'attend à ce que ta fonction manipule une grille passée en paramètre, mais la première chose que tu fais dans la fonction c'est de créer une nouvelle grille et d'ignorer complètement celle reçue en paramètre.

Ensuite, sur cette nouvelle grille toute neuve et donc dépourvue de la moindre colonne, tu tente de modifier les propriétés de colonnes qui n'existent pas.

Tu as deux possibilité de correction. Soit tu fais une fonction qui prend en paramètre une grille DEJA créée avec ses colonnes, soit tu crée une fonction qui crée la grille et ses colonnes.

Premier cas :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim grid As New DataGridView() grid.Columns.Add("column1", "Ma colonne 1") grid.Columns.Add("column2", "Ma colonne 2")   Public Sub formedatagrid(ByVal fdatagrid As DataGridView, ByVal fvisible As Boolean, ByVal nomcolonne As String, ByVal nomcolonne2 As String) ' Cette fonction continuera d'échouer si la grille passée ne contient pas les colonnes spécifées. fdatagrid.Columns(nomcolonne).Visible = False fdatagrid.Columns(nomcolonne2).Width = 50 End Sub

---

Second cas :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim grid As DataGridView = CreateNewDataGrid()   Public Fonction CreateNewDataGrid() As DataGridView Dim grid As New DataGridView() grid.Columns.Add("column1", "Ma colonne 1") grid.Columns.Add("column2", "Ma colonne 2") grid.Columns("column1").Visible = False grid.Columns("column2").Width = 50 End Function

---

PS : j'ai écris ça sans testé et directement dans le forums (sans IDE donc), possible qu'il y ai des faute de frappe/syntaxe.