Recherche intelligente listbox

Soyez le premier à donner votre avis sur cette source.

Vue 10 944 fois - Téléchargée 1 701 fois

Description

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 ;-)

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
10
Date d'inscription
vendredi 15 décembre 2006
Statut
Membre
Dernière intervention
11 avril 2008

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
Messages postés
1812
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2010
1
Normal, c'est un fichier *.rar renommé en *.zip....
(d'où aussi l'absence d'aperçu du contenu du fichier par vbfrance)

@+
Messages postés
419
Date d'inscription
lundi 30 août 2004
Statut
Membre
Dernière intervention
28 janvier 2008

je l'ouvre avec winrar et j'ai aucun probleme ... ^^
Messages postés
34
Date d'inscription
samedi 3 juin 2006
Statut
Membre
Dernière intervention
23 avril 2011

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
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Le ZIP est pourtant OK. Si vous n'arrivez pas à le lire, changez d'outil de décompression.
Afficher les 11 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.