bonjour
j'utilise le code suivant pour rechercher ds une listbox

Private Sub Text1_Change()

If Text1.Text = "" Then Exit Sub


List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))

End Sub
tout se passe bien a condition de rentrer du texte contenu ds la listbox comment gérer l'erreur si un texte rentrer ds text1 ne se trouve pas ds la listbox?
merci d'avance

le plus simple c de mettre on error resume next avec une condition pour le numero d'erreur : If Err.Number=... et là t'affiches 1 message ou rien du tout, ou tu mets juste on error resume next sans if et ca fera plus rien en cas de pb...

L'API renvoie la valeur -1 si le texte n'est pas trouvé. Il suffit donc de tester cette valeur et faire les traitements adéquats.


@+

wape


-------------------------------
Réponse au message :
-------------------------------

> bonjour
> j'utilise le code suivant pour rechercher ds une listbox
>
> Private Sub Text1_Change()
>
> If Text1.Text = "" Then Exit Sub
>
>
> List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
>
> End Sub
> tout se passe bien a condition de rentrer du texte contenu ds la listbox comment gérer l'erreur si un texte rentrer ds text1 ne se trouve pas ds la listbox?
> merci d'avance

merci d'avoir répondu
mais j'avais déjà mis on error resume next j'ai aussi essayé
avec if mais j'ai tjs erreur d'exécution n9 alors je patauge
@+


-------------------------------
Réponse au message :
-------------------------------

> le plus simple c de mettre on error resume next avec une condition pour le numero d'erreur : If Err.Number=... et là t'affiches 1 message ou rien du tout, ou tu mets juste on error resume next sans if et ca fera plus rien en cas de pb...

merci d'avoir rèpondu
comme je suis vraiment débutant pourrai-tu me donné un exemple avec on error resume next j'ai tjs erreur d'exécution n9 merci
@+


-------------------------------
Réponse au message :
-------------------------------

> L'API renvoie la valeur -1 si le texte n'est pas trouvé. Il suffit donc de tester cette valeur et faire les traitements adéquats.
>
>
> @+
>
> wape
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > bonjour
> > j'utilise le code suivant pour rechercher ds une listbox
> >
> > Private Sub Text1_Change()
> >
> > If Text1.Text = "" Then Exit Sub
> >
> >
> > List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
> >
> > End Sub
> > tout se passe bien a condition de rentrer du texte contenu ds la listbox comment gérer l'erreur si un texte rentrer ds text1 ne se trouve pas ds la listbox?
> > merci d'avance
>