[VB.NET] Datagrid, DataGridTableStyle et objet collection

Datagrid, DataGridTableStyle et objet collection [VB.NET] - C#/.NET managed - Programmation

Marsh Posté le 07-01-2005 à 10:44:05    

Bonjour a tous
j'ai un winform avec un datagrid.
ce dernier est rempli a partir d'un objet collection heritant de Collections.CollectionBase et comprenant des objets dont les données affichées sont des propriétés.
L'affichage "basique" de la collection fonctionne.  
Mais je n'arrive pas a personnaliser l'affichage du datagrid via la collection tablestyle....
 
voici mon code
 
 

Code :
  1. Public Class Frm_Liste_Utilisateurs
  2.     Inherits System.Windows.Forms.Form
  3.     Private collUtilisateurs As Utilisateurs
  5. Private Sub Frm_Liste_Utilisateurs_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  7.         Dim oGrp_Utilisateurs As New Groupe_Utilisateurs()
  8.         oGrp_Utilisateurs.ID = 0
  9.         oGrp_Utilisateurs.Lister_Utilisateurs()
  10.         collUtilisateurs = oGrp_Utilisateurs.Utilisateurs
  12.         'Afficher les données dans le datagrid
  13.         DG_Utilisateurs.DataSource = collUtilisateurs
  14.         DG_Utilisateurs.ReadOnly = True
  16.         Dim oTableau As New DataGridTableStyle
  17.         oTableau.MappingName = "Utilisateur[]"
  19.         'Construire les différentes colonnes
  20.         Dim oColNom As New DataGridTextBoxColumn
  21.         oColNom.MappingName = "Nom"
  22.         oColNom.HeaderText = "Nom"
  23.         oTableau.GridColumnStyles.Add(oColNom)
  25.         Dim oColID As New DataGridTextBoxColumn
  26.         oColID.MappingName = "ID"
  27.         oColID.HeaderText = "ID"
  28.         oTableau.GridColumnStyles.Add(oColID)
  30.         'Affecter le tableau au datagrid
  31.         DG_Utilisateurs.TableStyles.Clear()
  32.         DG_Utilisateurs.TableStyles.Add(oTableau)
  33. End sub
  35. End class
  37. Public Class Utilisateurs
  38.         Inherits Collections.CollectionBase
  39.      
  40.         Public Sub Add(ByVal oUtilisateur As Utilisateur)
  41.             Me.List.Add(oUtilisateur)
  42.         End Sub
  43.         Public ReadOnly Property Items(ByVal Index As Integer) As Utilisateur
  44.             Get
  45.                 Return CType(Me.List(Index), Utilisateur)
  46.             End Get
  47.         End Property
  48.         Public Function GetItem(ByVal intID As Int16) As Utilisateur
  49.             'Renvoyer l'element de la collection correspondant au nom saisi
  50.             Dim oUtilisateur As Utilisateur
  51.             For Each oUtilisateur In Me.List
  52.                 If oUtilisateur.ID = intID Then
  53.                     GetItem = oUtilisateur
  54.                     Exit For
  55.                 End If
  56.             Next
  57.         End Function
  58.     End Class
  62.     Public Class Utilisateur
  63.         Implements IDisposable
  64.                Public Property ID() As Int16
  65.             Get
  66.                 ID = intID
  67.             End Get
  68.             Set(ByVal Value As Int16)
  69.                 intID = Value
  70.             End Set
  71.         End Property
  72.         Public Property Nom() As String
  73.             Get
  74.                 Nom = strNom
  75.             End Get
  76.             Set(ByVal Value As String)
  77.                 strNom = Value
  78.             End Set
  79.         End Property
  80.         Public Property Lib_Groupe() As String
  81.             Get
  82.                 Lib_Groupe = strLib_Grp
  83.             End Get
  84.             Set(ByVal Value As String)
  85.                 strLib_Grp = Value
  86.             End Set
  87.         End Property
  88.         Public Property Login() As String
  89.             Get
  90.                 Login = strLogin
  91.             End Get
  92.             Set(ByVal Value As String)
  93.                 strLogin = Value
  94.             End Set
  95.         End Property
  96.         Public PassWord As String
  97.         Public ID_Groupe As Int16
  99.         Private strNom As String
  100.         Private strLogin As String
  101.         Private strLib_Grp As String
  102.         Private intID As Int16
  103.        
  104.     End Class


 
et donc malgres tout le datagrid m'affiche toutes les propriétés de ma classe utilisateur alors qu'il ne devrait m'afficher que 2 colonnes.
 
Merci d'avance pour votre aide


Message édité par silimalaris le 07-01-2005 à 11:05:47
Reply

Marsh Posté le 07-01-2005 à 10:44:05   

Reply

Marsh Posté le 02-02-2005 à 11:04:05    

Je suis toujours sur le meme problème .... pas d'idées ?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed