S'affiche une "MSFlexGrid1" ---- V.B.6

Signaler
Messages postés
197
Date d'inscription
mardi 15 mai 2007
Statut
Membre
Dernière intervention
25 janvier 2014
-
Messages postés
50
Date d'inscription
samedi 28 février 2004
Statut
Membre
Dernière intervention
1 décembre 2015
-
Salut,



Zone texte "Nom":______


MSFlexGrid1
----------------------|

FRANCE |
MAROC |
PORTUGAL |
ÉTATS-UNIS |
LIBYE |
TUNISIE |
QATAR |
CANADA |
ESPAGNOL |
ITALIEN |
ÉGYPTE |
-------------------------

- Je vous tapis le Nom "ÉTATS-UNIS",
s'affiche une "MSFlexGrid1"
présente toute les noms quelle démarrer par :"É".

par exemple..:



"Zone texte" Nom...: ÉTATS-UNIS


MSFlexGrid1
---------------

ÉTATS-UNIS
ÉGYPTE
---------------

4 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
81
Bijor

Ton problème est donc de savoir faire une recherche dans les données d'un MSFlexGrid ?
Il suffit de rechercher "rechercher MSFlexGrid" parmi les sources du site et tu trouveras, pas exemple, <ce lien>

Autre lien bien pratique : le <traducteur Google>, car il m'a été très difficile de comprendre ce que tu cherchais.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
50
Date d'inscription
samedi 28 février 2004
Statut
Membre
Dernière intervention
1 décembre 2015

'pour éviter que tu cherche
'par fois se n'ai pas évident de trouver
'j'ai eu besoin de la même chose il y a pas longtemps

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Const LB_FINDSTRING = &H18F
Private Sub Form_Load()
With List1
.AddItem "Marque"
.AddItem "Western digital"
.AddItem "Samsung"
.AddItem "Maxtor"
.AddItem "Hitachi"
.AddItem "Seagate"
.AddItem "IBM"
.AddItem "Kaloc"
.AddItem "ExcelStor"
.AddItem "NIKIMI"
.AddItem "Non Défini"
.ListIndex = 0
End With
End Sub
Private Sub Text1_Change()
List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
End Sub
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
240
Bonjour, Orlean

Il me semble pourtant que la constante LB_FINDSTRING = &H18F concerne une listbox et non une MSFlexGrid.
As-tu au moins testé avec une MSFlexGrid ?
Je ne le crois pas.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Messages postés
50
Date d'inscription
samedi 28 février 2004
Statut
Membre
Dernière intervention
1 décembre 2015

re bonjour ucfoutu
exacte
merci a +