begin process at 2012 02 12 04:13:52
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Base de Donnees

 > TRI D'UNE MSHFLEXGRID PAR CLICK SUR L'ENTÊTE

TRI D'UNE MSHFLEXGRID PAR CLICK SUR L'ENTÊTE


 Information sur la source

Note :
9,67 / 10 - par 3 personnes
9,67 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Base de Donnees Classé sous :tri, mshflexgrid, clique, entête, datagridview Niveau :Débutant Date de création :28/06/2006 Date de mise à jour :28/06/2006 12:02:59 Vu :7 893
Auteur : adamo901

Ecrire un message privé
Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

 Description

Bonjour tout le monde:
J'avais beau cherché un code qui permet de réaliser un tri dans une MSHFlexGrid en cliquant sur l'entête de la table (Style DatagridView de VB2005) sans jamais trouver une réponse.

Voici la solution que j'ai utilisé et qui marche très bien et en plus le code est assez cours! ;-))

Source

  • Option Explicit
  • Dim Csst As Boolean 'Variable utilisée dans le code
  • Private Sub a_Click() ' a est le nom de la MSHFlexGrid
  • If (a.MouseRow = 0) Then ' Clique sur l'entête de la MSHFlexGrid
  • If Csst Then ' Tri Croissant
  • a.Col = a.MouseCol
  • a.Sort = 2
  • Csst = False
  • Else 'Tri Décroissant
  • a.Col = a.MouseCol
  • a.Sort = 1
  • Csst = True
  • End If
  • End If
  • End Sub
Option Explicit
Dim Csst As Boolean                'Variable utilisée dans le code

Private Sub a_Click()              ' a est le nom de la MSHFlexGrid
    If (a.MouseRow = 0) Then       ' Clique sur l'entête de la MSHFlexGrid
        If Csst Then               ' Tri Croissant
            a.Col = a.MouseCol
            a.Sort = 2
            Csst = False
        Else                       'Tri Décroissant
            a.Col = a.MouseCol
            a.Sort = 1
            Csst = True
        End If
    End If
End Sub

 Conclusion

Un premier clique = Tri Croissant
Un deuxième clique = Tri Décroissant
Bonne chance ;-)


 Historique

28 juin 2006 12:02:59 :
Ajout de commentaires au code ;-)

 Sources du même auteur

Source avec Zip Source avec une capture OUVRIR UNE APPLI EN .EXE DANS UNE FORM EN VB6
DÉSACTIVER LE TASK MANAGER
Toutes les sources de adamo901

 Sources de la même categorie

Source avec Zip Source avec une capture BIEN ADMINISTRER LES ETUDIANTS ET LEURS CÔTES par okosa
Source avec Zip VBA EXEL GESTION DE PERSONEL NOUVEAU CONTRAT DE TRAVAI par oudlarbi
Source avec Zip Source avec une capture CREATION D'UN OBJET D'ACCÈS AUX DONNÉES par okosa
Source avec Zip Source .NET (Dotnet) MISAHORAIRE par MdelM
Source avec Zip Source avec une capture BASEDEDONNEES,GESTIONDEMALADES,DATABASSE par shadkitenge
Toutes les sources de la catégorie Base de Donnees

 Sources en rapport avec celle ci

Source avec Zip RECHERCHE D'UN ENREGISTREMENT DANS UNE DATATABLE ET POSITION... par erdna
Source avec Zip Source avec une capture Source .NET (Dotnet) CREER CONNECTER ET REMPLIR UNE BASE SQLCE par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) RÉSOLUTION SUDOKU FACILITÉE par laurentdeh
Source avec Zip Source avec une capture Source .NET (Dotnet) LISTE DÉROULANTE MULTI COLONNES POUR UN COMBOBOX D'UN DATAGR... par erdna
Source avec Zip Source avec une capture TRI COMPLEXE SUCCESSIF MULTI OPTION AVEC UNE MSHFLEXGRID par ym_trainz

Commentaires et avis

Commentaire de comme le 04/07/2006 11:33:36

Très bonne idée,simple et pratique,ça peut être utile pour trier par date par exple dans une mshflexgrid, Bon courage.

Commentaire de adamo901 le 04/07/2006 11:57:58

Merci COMME :-)

Commentaire de almahi23 le 08/07/2006 13:55:47

Excelent travail, Chapeau 20/20.

Commentaire de adamo901 le 31/07/2006 18:31:52

Merci ALMAHI23

Commentaire de vbnawal le 14/11/2006 12:06:59

Adamo gros merci à toi !
mais tu sais que le tri par date ne fonctionne pas avec cette methode puisque sort trie les jours en premier!
mais tu sais encore c'est mieux que rien ;)
merci gentil!

Commentaire de ym_trainz le 16/09/2007 10:10:47

impecc !
Je l'implante illico dans mon source ym_base.
10/10

cordialement,
ym_trainz

P.S. on peut réduire le code :

If (a.MouseRow = 0) Then ' Clique sur l'entête de la MSHFlexGrid
   a.Col = a.MouseCol 'désélectionne la colonne
   If Csst Then ' Tri Croissant
      a.Sort = 2      
   Else 'Tri Décroissant
      a.Sort = 1      
   End If
   Csst = Not Csst
End If

Commentaire de Galactus13 le 03/12/2008 07:05:13

10/10 Moi qui aime les codes court !

Commentaire de snipermaker le 10/02/2010 16:02:51 9/10

Très bien vu ^^ ça va me servir... merci pour ce petit bout de code.

Commentaire de adnennahali le 12/02/2010 13:32:07

c'est trés gentil de ta part
un excellent code

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Bloquer Tri Datagridview [ par lilj ] Salut tout le monde !! Voilà j'ai un souci avec mon DataGridView, il doi me permettre de modifier ou supprimer mes données mais si on clique le les H Vb.Net DataGridView - Rendre invisible l'entête [ par MagDix ] Salut Dans un datagridview... Est-il possible de rendre invisible la ligne qui a les nom des colonnes..(l'entête) Si oui comment fait-on merci DataGridView Réinitialisé le tri [ par FreudDu31 ] Bonjour, J'ai un datagrid que je charge avec un datatable obtenu via une requete mysql qui a un ORDER BY spécifique. Je veux laisser la possibilité d MSHFlexGrid date format américain [ par PatriceVB ] Le controle MSHFlexGrid mets les dates au format anglais, dès lors que l'on fait le tri sur une colonne contenant une date (donc le tri devient abhéra Tri dans un MSHFlexGrid [ par zaatout ] BonjourVoila j'ai des données dans une table de "4700 patient" affiche sur un MSHFlexGrid.A l'exécution de programme elle m'affiche que  la moitié. Al Gras impossible sur Entête MSHFlexGrid (lignes fixes) [ par tulesais ] Bonjour,sur mon MSHFlexGrid, je n'arrive pas à mettre en gras mes deux lignes fixes (entête).lorsque j'utilise la propriété 'Flex.FontFixed.Bold = Tru Tri sur MsHflexGrid [ par maloue ] Bonjour à tous,Pouvez vous m'expliquer comment  effectuer un tri sur une MsHflexGrid sans que la premiere lignede la grille (Titre des colonnes) ne so Exception levée lorsqu'on clique sur la dernière ligne d'un datagridview [ par Vincelot ] Bonjour, J'ai édité un DataGridView, avec les données d'un tableau d'horaire. L'utilisateur doit pouvoir entrer des données pour une nouvelle prise d datagrid [ par andalo ] Bonjour,    Moi c'est jerôme debutant en vb6 .J'ai deux problèmes avec ce controle (j'utilise VB6). Je n'ai pas de souci quand je le rempli  à partir Dépassement de texte dans l'entête d'un datagridview [ par chineseschtouff ] Bonjour,Je suis actuellement en train de développer une application d'emploi du temps (un peu particulier) dans lequel il est possible de sélectionner


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Renewable Energy is Within Reach
Photo Saintes Maries de la Mer vue du ciel (13) 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,527 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)