• Aide à la navigation du site
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • RSS CodeS-SourceS
  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
begin process at 2008 07 19 08:46:37
1 212 721 membres
60 nouveaux aujourd'hui
14 165 membres club
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

TRIE DE VALEURS DANS UN COMBO


Information sur la source

Catégorie :Texte Niveau : Débutant Date de création : 08/10/2003 Vu / téléchargé: 2 435 / 306
Auteur : locust Site perso
Ecrire un message privé
Note :
4,5 / 10 - par 2 personnes
4,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

Description

vérifie s'il n'existe pas deux même valeurs dans un combo -> pour aider résultats dans un autre combo

Source

  • totale = Combo1.ListCount
  • Combo1.Text = Combo1.List(0)
  • Combo2.AddItem Combo1.Text
  • compt = 1
  • Combo1.Text = Combo1.List(compt)
  • Combo2.Text = Combo2.List(0)
  • nombre = 1
  • compteur = 0
  • Do While Not compt > totale
  • Do While Not compteur > nombre
  • Combo2.Text = Combo2.List(compteur)
  • If Combo1.Text <> Combo2.Text Then
  • compteur = compteur + 1
  • Else
  • GoTo Saut1
  • End If
  • Loop
  • Combo2.AddItem Combo1.Text
  • nombre = nombre + 1
  • Saut1:
  • compteur = 0
  • compt = compt + 1
  • Combo1.Text = Combo1.List(compt)
  • Loop
totale = Combo1.ListCount
Combo1.Text = Combo1.List(0)
Combo2.AddItem Combo1.Text
compt = 1
Combo1.Text = Combo1.List(compt)
Combo2.Text = Combo2.List(0)
nombre = 1
compteur = 0
Do While Not compt > totale
Do While Not compteur > nombre
Combo2.Text = Combo2.List(compteur)
If Combo1.Text <> Combo2.Text Then
compteur = compteur + 1
Else
GoTo Saut1
End If
Loop
Combo2.AddItem Combo1.Text
nombre = nombre + 1
Saut1:
compteur = 0
compt = compt + 1
Combo1.Text = Combo1.List(compt)
Loop
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

  • signaler à un administrateur
    Commentaire de BruNews le 08/10/2003 16:34:13 administrateur CS

    SendMessage(hcmb, CB_FINDSTRINGEXACT, -1, ptrChaine);
    100 fois + rapide.

  • signaler à un administrateur
    Commentaire de Zylott le 08/10/2003 16:43:03

    Tu peux aussi mettre la propriété SORTED = TRUE


    Encore plus rapide !!!!!!

  • signaler à un administrateur
    Commentaire de locust le 08/10/2003 17:43:45

    merci
    je ne connais pas ces commandes mais je vais voir

Ajouter un commentaire

Pub



Appels d'offres

Dessins techniques
Budget : 60€
Animation Flash - Doma...
Budget : 370€
Application flash medi...
Budget : 1 000€

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Boutique

Boutique de goodies CodeS-SourceS
Nos partenaires et amis ;-)
ASP MAGAZINE Visual Basic - Centre de développement forum informatique Colocation dans toute la France Moteur de recherche Mozbot Dotnet-News.com


Dev réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND, Bidou, Nurgle
Base de données maintenue par Christian, Design réalisé par Guillaume, Mascotte réalisée par N.SOREL (Nix) & KDO-Comception
VBFrance.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
Hébergement de Serveur dédié - Téléphonie VOIP - Comparer les prix - Envoyer des ecards gratuit - Icones
Temps d'éxécution de la page : 0,1719-4sec
Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.