recherche de texte

Question

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

Ktb · Answer

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

cs_wape · Answer

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

cs_titi89 · Answer

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
@+

cs_titi89 · Answer

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
@+

Recherche de texte

4 réponses

Discussions similaires