cs_maloue
Messages postés13Date d'inscriptionvendredi 22 avril 2005StatutMembreDernière intervention21 décembre 2010
-
3 avril 2007 à 09:27
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
4 avril 2007 à 22:11
Bonjour à tous ,
J'ai un petit souci avec les Clicks sur un header de MsHflexGrid, je n'arive pa à déterminé si un click à été effectué sur header de MsHflexGrid (pour lancer en suite un tri sur la clonne de cette grille).
Si vous avez l'explication merci pour votre réponse
Le caractère "pipe" ( | ) indique l'emplacement des colonnes
Les caractères suivants servent à la justification du texte
< alignement à gauche
> à droite
^ centré
Les espaces après le mot ajusteront la largeur de cette colonne
Renfield,
c'est effectivement plus clair à lire. Encore faut-il savoir que ces constantes existent et aussi se débarrasser de ses vieilles habitudes (ça c'est le plus difficile...)
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201823 4 avril 2007 à 00:38
Voici un exemple simple.
Le If permet de trier Ascendant et/ou Descendant
Private Sub Grid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Static Flag As Integer
If Button = 1 And y <= 250 Then
If Flag <> 1 Then
Flag = 1
Else
Flag = 2
End If
Grid1.Sort = Flag
End If
End Sub
Plutôt que de mettre 250 comme valeur, tu pourrais utiliser Grid1.RowHeightMin en autant que tu aies déclaré une valeur dans les propriétés de la grille ou dans le code.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 4 avril 2007 à 00:56
faché avec les constantes et les enums ?
c'est pourtant plus simple, pour comprendre, certaines fois...
J'ai repris ton code, en utilisant les constantes, dont tu utilisais les valeurs en dur :
Private Sub Grid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Static Flag As MSHierarchicalFlexGridLib.SortSettings
If Button = vbLeftButton And y <= 250 Then
If Flag <> flexSortGenericAscending Then
Flag = flexSortGenericAscending
Else
Flag = flexSortGenericDescending
End If
Grid1.Sort = Flag
End If
End Sub , ----
By Renfield