Discussion :

[FlIpMaN]

salut les amis je suis un etudiant et j'aimerai avoir votre aide :
bon j'ai fait un petit dictionnaire qui est un projet pour l'ecole et j'aimerai bien une petite aise les amis pour ameliorer mon projet
c'est simple j'aimerai savoir comment lier une zone de texte de recherche avec une liste ou il y a tout les mots qui sont importé d'1 fichier ou je sauvegarde mes mots, c'est comme pour le dictionnaire d'ENCARTA.
et merci pour votre aide
un code source pour effectuer la liason serait le bienvenu merci.

[leroissejp]

Bonsoir,
Place un TextBox au dessus de ta ListBox et appelle le txtRechercher.

Dans un Module:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Public Declare Function SendMessageByString& Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As String)
 
Public Const LB_SELECTSTRING = &H18C

Dans la Form:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub txtRechercher_Change()
Dim EntryNum As Long
Dim txtARechercher As String
txtARechercher = txtRechercher.Text
 
EntryNum = SendMessageByString(List1.hwnd, LB_SELECTSTRING, 0, txtARechercher)
End Sub

jpleroisse

[FlIpMaN]

je t'en suis trés reconnaissans mon ami
je vais essayer le truc et te repondre
merci encore une fois