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 !

RECHERCHE INTELLIGENTE LISTBOX


Information sur la source

Catégorie :Divers Classé sous : listbox, recherche, intelligent Niveau : Débutant Date de création : 21/09/2006 Date de mise à jour : 13/10/2006 14:43:13 Vu / téléchargé: 6 076 / 1 412

Note :
Aucune note

Commentaire sur cette source (11)
Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale
Bonjour,
Bah apres mainte reprise j'ai voulu reparticiper a la communautee de partage de codes source :-)
Donc voila mon premier code (via ce compte ...) Cet un system de recherche intelligente dans un ListBox
Approuver par pas mal de personnes , super commenter , indenter , variable bien nommee  ... enfin la totale
Ce code est simple de comprehension il comprend un system de recherche intelligente , d'ajout dans la liste ,
de modification d'element dans la liste , recuperation de l'index , nom etc selectionner , de suppression d'elements
enfin plein de chose :-)

Pas de bug decouvert lors des test ... j'ai pas fat d'interface moi qui en suis fana car icice qui vous interesse c'est le code et non l'interface :-)

Voila je ne sais que dire de plus si ce n'est que j'espere que ca vous serviras ;-)
 

Conclusion

J'ai fait ce ptit truc en 1h car je joue un peu en meme temp donc voila j'ai commenter presque chaque ligne donc vous pouvez pas vous perdre ;-)
mon site est en construction mais il contient deja un tuto et quelques snippets :
Http://Dev-Codeur.goldzoneweb.info/
suffit de clicker sur allez dans le site "vide" j'ai mis vide car il n'est pas encore fini ;-)

merci a willi qui ma pousser a recommencer a poster ici des sources ;-)
 

Fichier Zip

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

Historique

21 septembre 2006 23:27:05 :
mise d'un screen ^^ apparement il la pas pris je viens de le voir
21 septembre 2006 23:27:59 :
mise d'un screen ^^ apparement il la pas pris je viens de le voir
21 septembre 2006 23:28:16 :
mise d'un screen ^^ apparement il la pas pris je viens de le voir
21 septembre 2006 23:29:55 :
mise d'un screen apparement il la pas pris la premiere fois je viens de le voir
21 septembre 2006 23:30:20 :
mise d'un screen apparement il la pas pris la premiere fois je viens de le voir
13 octobre 2006 14:43:14 :
correction d'un ptit bug

Commentaires et avis

signaler à un administrateur
Commentaire de diablamanshadow le 22/09/2006 11:42:46

commentaires , avis , critique (constructive bien sur) sont les bienvenu :-)

signaler à un administrateur
Commentaire de SamirAloui le 22/09/2006 14:07:10

Salu
  Mais non je vois que ton prog est plein des bugs:

  1) dans l'ajout
  1.1) RTrim() et LTrim():
       Si on a:   X="Hello   "
       En fait: Rtrim(X)
       A la fin : x= "Hello   " et pas "Hello"
       Parceque Rtrim() ne change pas ce qu'il est entre parentaise mais elle rend le meme mot mais sans les blancs de droites (meme chose avec LTrim()/*Blancs de gauches*/)
      Alors si tu veus: X=RTrim(x)
   1.2) Variable "Ajout"
      la variable "Ajout" est n'a pas vraiment obligatoire
      tu peut optimiser le procedure à:
      Private Sub CmdAjout_Click()
        'on ajoute dans la list le contenu du textbox corriger
         List.AddItem Trim(TxtAjout.text)
        'Le reste...
  
   2) dans l'ajout:
      ton prog accepte d'ajouter le "rien" ("") [cliquer directemnt sur OK], mais on peut jamais trouver ce "rien" parceque on ne peut tapper un "rien" dans la zone de recherche

   3) dans la modification:
       tu essayes d'eviter les mots avec les blancs (tu utilises TRIM() dans l'ajout) mais faites ça:
       >> Ajouter le mot "Hello"
       >> Selectionner le mot "Hello"
       >> Modifier le à "   Hello   " ou bien à "   "
   Alors le nouveau mot contient les blans
   4) dans le tri
       tu essayes de trier la liste alphabitiquement mais faites ça:
       >> Ajouter le mot "CCC"
       >> Ajouter le mot "DDD"
       >> Changer le mot "DDD" à "BBB"
       >> Ajouter le mot "AAA"
       >> Ajouter le mot "CCCC"
  Mais pourqoi le mot "BBB" reste toujour sous les "CCC" et "CCCC" ?
    5)dans la supprission
       suivi ma méthode de teste
       >> Selectionner un element (n'importe) dans la liste
       >> Cliquer sur  Supprimer
       >> Bah , tu a supprimer un element (pas grave) ,maintenant et sans toucher la liste continuer à cliquer su la bouton de suppression
       >> Tu serais recevoire une belle fenetre par le VB qui t'a dire
        "Erreur N°5:  Tester bien ton projet SVP "

    
A b 1 to

signaler à un administrateur
Commentaire de diablamanshadow le 22/09/2006 18:47:56

merci de tous ca mais la base de la source est mise sur la recherche j'ai mis l'ajout suppression et modification car je m'etais dit que sa pourrais aider ... apparement non ses plus buger qu'autre chose donc je pense que pour pas embrouiller les autres je v virer ca -_-
ca apporte plus de probleme d'essayer d'ajouter des options pour remplir la source que de laisser le principe de base ...
la j'ai pas le temp mais dés que j'ai je remet a jour la source avec que le system de recherche sinon apres on va dire que je met que des sources buger ...

signaler à un administrateur
Commentaire de Willi le 22/09/2006 19:25:11 administrateur CS

Les remarques parfois sont constructives, celle de SamirAlaoui en fait partie :)

4) Ce comportement est normal tu modifies la valeur de l'item de par l'index. Pour bien faire supprimer l'item (RemoveItem(index)) et rajouter ta valeur.

Bonne continuation.

signaler à un administrateur
Commentaire de chiffre le 25/09/2006 15:06:09

Bonjour...

Je télécharge votre dossier(recherche intelligente) et il me donne toujors le Zip n'est pas bon.

Merci

chiffre

signaler à un administrateur
Commentaire de GeneticW le 26/09/2006 01:17:53

meme chose ici, le zip a genre 23k mais il ne s'ouvre pas

signaler à un administrateur
Commentaire de econs le 26/09/2006 07:54:46 administrateur CS

Le ZIP est pourtant OK. Si vous n'arrivez pas à le lire, changez d'outil de décompression.

signaler à un administrateur
Commentaire de GeneticW le 26/09/2006 14:03:39

Non le Zip n'est pas OK.

j'ai essayé 3 outils.
pis d'ailleurs, j'ai été en premier avec Pkware, cE'st eux qui ont inventé le format Zip et ils disent qu'il est PAS ok.
tu dois avoir compressé en 64bit, ce qui est bien, mais ce format est compatible UNIQUEMENT avec ta propre table d'encryption qui pesent environ 64 Meg.  si tu nous l'envoie aussi on va pouvoir l.ouvrir.  sinon, compresse avec le format standart de 32 bits.  ou bien pour que nous on ait acces a la table de 64 meg, dis nous exactement quel outils ta utilisé afin que l'on recrée cette table. en installant le logiciel

signaler à un administrateur
Commentaire de diablamanshadow le 13/10/2006 14:44:59

je l'ouvre avec winrar et j'ai aucun probleme ... ^^

signaler à un administrateur
Commentaire de violent_ken le 21/11/2006 19:00:20

Normal, c'est un fichier *.rar renommé en *.zip....
(d'où aussi l'absence d'aperçu du contenu du fichier par vbfrance)

@+

signaler à un administrateur
Commentaire de boutaibmustapha le 29/03/2008 10:33:34

Bonjour je crois que ce bout de source est plus léger et facile je l'ai récupérer du site support technique de Microsoft :
1. Démarrez un nouveau projet EXE standard. Form1 est ajoutée par
défaut.

2. Ajoutez un contrôle TextBox (Text1) et un contrôle ListBox (List1) à
Form1.

3. Ajoutez le code suivant dans la section General Declarations de Form1
:


Const LB_FINDSTRING = &H18F
Private Declare Function SendMessage Lib "User32" _
Alias "SendMessageA" _
(ByVal hWnd As Long, _
ByVal wMsg As Integer, _
ByVal wParam As Integer, _
lParam As Any) As Long

Private Sub Form_Load()
List1.Clear
List1.AddItem "Ananas"
List1.AddItem "Banane"
List1.AddItem "Bonbon"
List1.AddItem "Balade"
Text1.Text = ""
End Sub

Private Sub Text1_Change()
List1.ListIndex = SendMessage(List1.hWnd, LB_FINDSTRING, -1, _
ByVal Text1.Text)
End Sub

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Aide avec les listbox pliz [ par CyberGoustaf ] G Récupéré et testé ce code:Dans un listbox, vous atteignez un élément par son index. Vous pouvez également faire une recherche par son contenu.Const recherche dans une listbox [ par bob ] Je cherche déséspérément le moyen de retrouver une chaine de caractère à l'intérieur d'une listbox...Qui peut m'aider ??? Recherche listbox [ par Knup ] Je veux pouvoir recherché a partir d'un textbox dans une listbox. Plus précisement par mot clé :P donc si j'ai Sébastien dans ma listbox et que je tap recherche de texte [ par titi89 ] bonjourj'utilise le code suivant pour rechercher ds une listboxPrivate Sub Text1_Change() If Text1.Text = "" Then Exit Sub List1.ListIndex = Recherche dans une listbox [ par ProutLeGus ] Bonjour à tousVoila mon petit problème. J'ai une listbox et je veux pouvoir sélectionner quelques enregistrements et en appuyant sur CTRL+C, je veux l Recherche intuitive !! [ par scoobydoos ] Salut,J'ai 1 textbox, une listbox et une commande (si pas besoin supprimer). Je voudrais faire une recherche de texte intuitive, c'est à dire lorsqu'o Rechercher texte !! :) [ par scoobydoos ] salut,j'ai tjrs un TextBox, un Command "OK" et une ListBox. J'arrive bien à faire une recherche de texte. Ceux que je veux maintenant c'est de pouvoi Recherche Listbox !! [ par ralf19b3 ] voila g differente ligne avec du texte dans une listbox et je souhaiterait pouvoir afficher simplement les ligne qui contienent le mot que j'aurait ta Recherche par Date [ par Fripouil ] BonjourVoila Je posséde 2 listbox : Date et Somme sur une formSur une autre form je posséde 1 bouton + 1 listbox : ChoixMois avec les 12 mois de l ann


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version

Photothèque Nouveau !



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
Temps d'éxécution de la page : 0,499 sec

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é.