Mon entete de datagrid n'accepte pas d'etre redimensionné (Aucun message d'erreu

Question

bonjour a toutes et tous
Voil&#224; c'est la premi&#232;re fois que je me sert du forum et je commence depuis 1 mois sur VB net.
J'ai le probl&#232;me suivant:
Je souhaite mettre mon entete de colonne sur plusieurs lignes ( pour une question esthetique) mais voil&#224; lorsque je met rowheaderwidth=50 par exemple cela n'affecte en rien l'affcichage.

Voici le code associ&#233; :


Protected 
Overrides 
Sub OnLoad(
ByVal e 
As System.EventArgs)



Dim BA 
As 
New Ouverturebase 
'("SELECT * FROM ListeEquipt ORDER BY Libell&#233;", "ListeEquipt")


BA.Base("SELECT * FROM BasePiece ORDER BY Libell&#233;", "BasePiece")



'Mise en forme 



Dim StyleTab 
As 
New DataGridTableStyle



Dim Police = 
New Font("Arial", 10, FontStyle.Bold)



Dim Couleur = 
New Drawing.Color


Couleur = Drawing.Color.FromArgb(255, 192, 0, 0)



With StyleTab


.MappingName = DS.Tables("Basepiece").TableName


.HeaderFont = Police


.HeaderForeColor = Couleur


.RowHeaderWidth() = 100 
' cela ne fonctionne pas  


.PreferredRowHeight = 30



End 
With



'on cr&#233;er les diff&#233;rents style pour chaque colonne



'colonne 0



Dim Colonne0 
As 
New DataGridTextBoxColumn



With Colonne0


.MappingName = DS.Tables("Basepiece").Columns.Item(0).ColumnName


.HeaderText = "N_TypePiece" & Chr(10)


.Width = 0



End 
With



Dim Colonne1 
As 
New DataGridTextBoxColumn



With Colonne1


.MappingName = DS.Tables("Basepiece").Columns.Item(1).ColumnName


.HeaderText = "Libell&#233;" & Chr(10)


.Width = 120



End 
With



Dim Colonne2 
As 
New DataGridTextBoxColumn



With Colonne2


.MappingName = DS.Tables("Basepiece").Columns.Item(2).ColumnName


.HeaderText = "Coefficient " & Chr(10) & "selon Nature" 
' passage de ligne par chr(10)


.Width = 120



End 
With



Dim Colonne3 
As 
New DataGridTextBoxColumn



With Colonne3


.MappingName = DS.Tables("Basepiece").Columns.Item(3).ColumnName


.HeaderText = "Identifiant Type" & Chr(10) & "(1 est tout type)"


.Width = 150



End 
With



'on efface les styles precedent


TabEqu.TableStyles.Clear()


StyleTab.GridColumnStyles.Clear()



'on les rajoute


StyleTab.GridColumnStyles.AddRange(
New DataGridColumnStyle() {Colonne0, Colonne1, Colonne2, Colonne3})


TabEqu.TableStyles.Add(StyleTab)



'on affiche dans la grille


TabEqu.DataSource = DS.Tables(0)


StyleTab.DataGrid.Refresh()



'fermeture connexion


BA.FermerBase()



'ComboBox1.Text = "Toto"


BA.Base("SELECT Libelle , N_TypeAnnexe FROM Annexe", "Annexe")


ComboBox1.DataSource = DS.Tables("Annexe")


ComboBox1.DisplayMember = "Libelle"


BA.FermerBase()

-----
je remercie toute bonne volont&#233; pour la solution.
Merci et joyeux noel

TrafMaxime · Answer

Tu peux essayer  de charger ton dataset dans ton datagrid d&#232;s son remplissage :

ba.base("requete")
     'en verite je n'ai pas vu la ligne exact ou le dataset est rempli  dans ton code...
grid.datasource = ds.tables("x")
      'puis :
grid.suspendlayout()

'enumeration de tes tablesstyles et textboxcolumn
' et &#224; la fin, en lieu et place de refresh :

grid.resumelayout()

je garanti rien mais ca coute pas grand chose d'essyaer..
.Maytheforcebewithyou.Maxime.

opac44 · Answer

cela ne fonctionne pas...

Je viens d'essayer et c'est pareil ?

Si tu as d'autres id&#233;es tu es le bienvenue.

Encore merci

Mon entete de datagrid n'accepte pas d'etre redimensionné (Aucun message d'erreu

2 réponses

Discussions similaires