scrollbar sur MSFlexGrid

Version imprimable

27/11/2009, 11h28
pat77176

scrollbar sur MSFlexGrid

Bonjour à tous
mon problème est le suivant : sur une form je dispose d'un MSFlexGrid qui contient 256 colonnes. Cela dépasse évidemment les limites de la form ; le soucis vient du scrollbar dont seule la flèche de gauche est visible, celle de droite se trouvant à pétaouchnock sur la droite. De ce fait, le scrolling jusqu'à la colonne 256 est impossible. Y a t-il un moyen pour faire en sorte que le scrollbar soit affiché complètement sur la partie visible de la grille, c'est à dire dans les limites de la form ?
Merci d'avance à quiconque a une bonne solution ...
:oops::oops:
Pat77176
27/11/2009, 12h29
ProgElecT

Suite au chargement complet des données dans ton MSFlexGrid

Code:

MSFlexGrid.Width = Me.ScaleWidth
27/11/2009, 13h53
pat77176

Citation:

Envoyé par ProgElecT

Suite au chargement complet des données dans ton MSFlexGrid

Code:

MSFlexGrid.Width = Me.ScaleWidth

Merci de cette réponse rapide ... qu'est supposé représenter "Me" dans ce cas ? J'ai un message "Utilisation incorrecte de Me" en essayant cette méthode ...
27/11/2009, 14h43
ProgElecT
Curieux, je n'avais pas essayé le code proposé, je viens de le faire et je n'ai pas d'erreur
Code:

1 2 3 4 5 6 Private Sub Command1_Click() MSFlexGrid1.Left = 15 MSFlexGrid1.Width = Me.ScaleWidth - 15 'ou 'MSFlexGrid1.Width = Form1.ScaleWidth - 15 End Sub
Comme tu l'auras compris Me pour VB = nom du Form.
Tu developpes bien en VB 6 ou anterieur ?
28/11/2009, 13h54
pat77176
Citation:
Envoyé par ProgElecT

Curieux, je n'avais pas essayé le code proposé, je viens de le faire et je n'ai pas d'erreur

Code:

1 2 3 4 5 6 Private Sub Command1_Click() MSFlexGrid1.Left = 15 MSFlexGrid1.Width = Me.ScaleWidth - 15 'ou 'MSFlexGrid1.Width = Form1.ScaleWidth - 15 End Sub

Comme tu l'auras compris Me pour VB = nom du Form.
Tu developpes bien en VB 6 ou anterieur ?
Oui c'est en VB 6 ENtreprise.
Bon, mon problème est résolu. J'avais bien compris que "Me" désignait la form" mais il n'empêche que j'avais cette erreur déjà citée. J'a irésolu le PB en faisant directement référence à la Form :
'ne pas modifier ce qui suit : ça sert à faire voir la flèche droite de la scrollbar
FormRéseau.GridTempératures.Width = FormRéseau.ScaleWidth - 1200

Le -1200 est une extension empirique de ma part ... si je ne le mets pas, je ne vois que les <uelques premiers pixels de la flèche droite ...

En tout cas, merci de ta contribution puisqu'elle m'a mise sur la voir ...

Cela étant, et c'est toujours la même critique que l'on peut faire aux produits microsoft et leur manque de documentation pédagogique : par quel raisonnement miracle peut-on imaginer devoir faire appel à l'échelle de la Form pour faire apparaître complètement le composdant d'un contrôle sur cette form ?

Je profite de ta connaissance du MSFlexGrid pour te poser une autre question :
j'aimerai pouvoir faire apparaître dans la ligne de titres de colonnes une nom sur 2 lignes ... D'une part, je ne suis pas sûr qu'un chr(13) intercallé dans le texte du titre produise une 2ème ligne (mais pourquoi pas puisque ça marche en Excel, par exemple) mais c'est surtout que je n'ai pas trouvé la propriété qui permette d'augmenter la hauteur d'une rangée de cellules ...
Si ça te parle !!!

Pat77176

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Load()
'faire reference à Library SysInfoLib, Contrôle Microsoft SysInfo 6.0 (SYSINFO.OCX)
'Attention, .ScrollBarSize est exprimé en Twips
MSFlexGrid1.Left = 15
MSFlexGrid1.Width = Me.Width - (MSFlexGrid1.Left * 2) - SysInfo1.ScrollBarSize
 
 
'sur plusieurs lignes
MSFlexGrid1.WordWrap = True '<=================
MSFlexGrid1.RowHeight(0) = 600
MSFlexGrid1.TextMatrix(0, 1) = "essais de" & vbCrLf & "plusieurs lignes"
End Sub

Si cela t'es possible, change de Grid, utilise MSHFlexGrid MSHierarchicalFlexGridLib, Microsoft Hierarchical FlexGrid Control 6.0, il offre beaucoup plus de possibilités.

Citation:
Envoyé par ProgElecT
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Form_Load() 'faire reference à Library SysInfoLib, Contrôle Microsoft SysInfo 6.0 (SYSINFO.OCX) 'Attention, .ScrollBarSize est exprimé en Twips MSFlexGrid1.Left = 15 MSFlexGrid1.Width = Me.Width - (MSFlexGrid1.Left * 2) - SysInfo1.ScrollBarSize 'sur plusieurs lignes MSFlexGrid1.WordWrap = True '<================= MSFlexGrid1.RowHeight(0) = 600 MSFlexGrid1.TextMatrix(0, 1) = "essais de" & vbCrLf & "plusieurs lignes" End Sub
Si cela t'es possible, change de Grid, utilise MSHFlexGrid MSHierarchicalFlexGridLib, Microsoft Hierarchical FlexGrid Control 6.0, il offre beaucoup plus de possibilités.
Alors là, je ne comprends pas du tout ... d'une part, je ne comprends pas ce que vient faire SysInfo dans cette affaire ... je viens de lire ce qu'il y a sur SysInfo dans MSDN et cela semble hors sujet ... Ce plus je cherche à avoir la ligne n° 0 de ma grille plus haute que les autres ; dès lors que vient faire la scrollBarSize ? Cela étant, j'ai essayé la 2ème partie ... la ligne 0 est bien plus haute, mais seule la deuxième partie de la chaîne n'apparaît

02/12/2009, 07h20
ProgElecT

Citation:

Envoyé par pat77176

Alors là, je ne comprends pas du tout ... d'une part, je ne comprends pas ce que vient faire SysInfo dans cette affaire ... je viens de lire ce qu'il y a sur SysInfo dans MSDN et cela semble hors sujet ... Ce plus je cherche à avoir la ligne n° 0 de ma grille plus haute que les autres ; dès lors que vient faire la scrollBarSize ? Cela étant, j'ai essayé la 2ème partie ... la ligne 0 est bien plus haute, mais seule la deuxième partie de la chaîne n'apparaît

:calim2:

Citation:

Envoyé par pat77176

le soucis vient du scrollbar dont seule la flèche de gauche est visible, celle de droite se trouvant à pétaouchnock sur la droite.

Citation:

Envoyé par F2

Property ScrollBarSize As Single
Lecture seule
Membre de SysInfoLib.SysInfo
Renvoie les dimensions système de la largeur d'une barre de défilement en twips.

--------------------------------------------------------------------------

Citation:

Envoyé par pat77176

je n'ai pas trouvé la propriété qui permette d'augmenter la hauteur d'une rangée de cellules

Citation:

Envoyé par F2

Property RowHeight(index As Long) As Long
Membre de MSFlexGridLib.MSFlexGrid
Renvoie/définit la hauteur, en twips, de la ligne spécifiée. Non disponible actuellement.

--------------------------------------------------------------------------

Citation:

Envoyé par pat77176

D'une part, je ne suis pas sûr qu'un chr(13) intercallé dans le texte du titre produise une 2ème ligne

Citation:

Envoyé par F2

Property WordWrap As Boolean
Membre de MSFlexGridLib.MSFlexGrid
Renvoie/définit si un retour à la ligne automatique est autorisé pour du texte au sein d'une cellule.