begin process at 2012 02 14 06:02:14
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Divers

 > RECHERCHE D'UNE CHAINE DE CARACTÈRES DANS UNE TEXTBOX --- N'UTILISE PAS LA FONCTION INSTR()

RECHERCHE D'UNE CHAINE DE CARACTÈRES DANS UNE TEXTBOX --- N'UTILISE PAS LA FONCTION INSTR()


 Information sur la source

Note :
2,67 / 10 - par 3 personnes
2,67 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Divers Classé sous :rtf, msdn, ahah Niveau :Débutant Date de création :24/02/2004 Date de mise à jour :27/05/2009 22:37:10 Vu :3 892
Auteur : DiaKt

Ecrire un message privé
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 Description

A FAIRE AVANT TOUT : Creer un controle richtextbox nommé Richtextbox1 et non pas une textbox puis un bouton nommé BtnCherche.

Ce code recherche une chaîne de caractères dans une RichTextBox et vous indique dans une msgbox si la chaîne de caractères a ete trouvée ou pas et si cette chaîne a ete trouvée la msgbox vous indique a quelle ligne.

Source

  • Private Sub BtnCherche_Click()
  • Dim FoundPos As Integer
  • Dim FoundLine As Integer
  • ' Recherche le texte spécifié dans le contrôle RichTextBox.
  • FoundPos = RichTextBox1.Find("ecrivez ici le mot que vou souhaitez trouver", , , rtfWholeWord)
  • ' Affiche un message qui indique si le texte a été retrouvé ou non.
  • If FoundPos <> -1 Then
  • ' Renvoie le numéro de la ligne où le texte a été retrouvé.
  • FoundLine = RichTextBox1. GetLineFromChar(FoundPos)
  • MsgBox "Mot retrouvé à la ligne " & CStr(FoundLine+1)
  • Else
  • MsgBox "Mot introuvable."
  • End If
  • End Sub
Private Sub BtnCherche_Click()
Dim FoundPos As Integer
Dim FoundLine As Integer
' Recherche le texte spécifié dans le contrôle RichTextBox.
FoundPos = RichTextBox1.Find("ecrivez ici le mot que vou souhaitez trouver", , , rtfWholeWord)
' Affiche un message qui indique si le texte a été retrouvé ou non.
If FoundPos <> -1 Then
' Renvoie le numéro de la ligne où le texte a été retrouvé.
FoundLine = RichTextBox1. GetLineFromChar(FoundPos)
MsgBox "Mot retrouvé à la ligne " & CStr(FoundLine+1)
Else
MsgBox "Mot introuvable."
End If
End Sub

 Conclusion

gfini


 Historique

27 mai 2009 22:37:10 :
fini

 Sources du même auteur

Source avec Zip PAPILLONS QUI BOUGENT AVEC LA SOURIS
Source avec Zip ZOOOOOOOOOOOOOOM
Toutes les sources de DiaKt

 Sources de la même categorie

Source avec Zip TEXTBOX EN NUMÉRIQUE par 320C
Source avec Zip DÉCIMAL TO HEXDECIMAL par loulou27200
SOUS-TITRES : INCRÉMENTATION DE TOUTES LES CHAÎNES DE CARACT... par ALMIRA
Source avec Zip Source avec une capture EVALUER UN NOMBRE D'OBJETS AVEC UNE BALANCE ET DEUX ÉCHANTIL... par lexsty
Source avec Zip Source avec une capture PETIT LOGICIEL DE DEVIS SANS BD par lololilizozo
Toutes les sources de la catégorie Divers

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture CONVERTIR DU TEXTE RTF EN CODE HTML ET VICE-VERSA par vicosta
Source avec Zip Source avec une capture GÉNÉRER UN DOCUMENT RTF EN VBA/VB AMÉLIORÉ par Triboutmatthieu
Source avec Zip GÉNÉRER UN DOCUMENT RTF EN VBA/VB par Orohena
Source avec Zip Source .NET (Dotnet) RTFANSITEXTWRITER : GÉNÉRER DU RTF EN VB.NET ET CONVERTIR DU... par ShareVB
Source avec Zip Source avec une capture Source .NET (Dotnet) EDITEUR DE TEXTE AVEC CLAVIER VIRTUELLE INTÈGRÉ V4 par nicomilville

Commentaires et avis

Commentaire de ciberrique le 25/02/2004 20:13:58

D'aprés la date d'inscription sur vbfrance tu debutes, donc pour un débutant c'est un bon code, une bonne méthode pour utiliser la fonction find. Bon courage et continue comme sa.

fitz

Commentaire de ciberrique le 25/02/2004 20:16:20

J'ai oubliier je mis 6/10 a ta source.

Commentaire de blissdumpweed le 10/05/2004 10:19:58

Je me permettrai de ne mettre aucune note à cette source  car ca reviendrai à noter MSDN parce que oui cette source est issue de l'aide Microsoft !
Même non de variables, mêmes commentaires...

Ok, tu as le droit de mettre ca sur le site, ca peut aider ceux qui n'ont pas l'aide mais précise le alors, parce que là ta note de 6/10 est totalement iméritée !!!

Pas cool du tout !

Commentaire de DiaKt le 10/05/2004 22:00:13

Ce n'est pas moi qui met ma note et meme si cette source vient de msdn cela peut toujours aider ceux qui ne l'ont pas ou ne connaissent pas donc voila je n'ai jamais incité a me mettre LA MEILLEURE note. J'ai simplement dit notez moi mais pas pour moi mais surtout pour voir si cette source peut apporter de l'aide donc voila je n'ai jamais dit que cette source etait de moi.    ++    DiaKt

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

concaténer des *.rtf en visual basic [ par Super Franck ] Comment concaténer des fichiers *.rtf à l'aide d'une macro en visual basic pour Word FICHIER HELP [ par caballero ] salutj'ai voulu programmer une rubrique d'aide dans une application et j'ai crée les deux fichiers necessaire à celale fichier aides.hpj que voici[opt Fichier RTF [ par POLO ] Comment générer un fichier RTF à partir d'un Objet ADO. En l'occurence il s'agit d'une table access. Imprimer un fichier (html. rtf..) en VB? [ par jeromax ] Tout est dit dans le sujetMerci limiter la longueur d'une ligne d'RTF [ par NoNo ] Est-ce que l'api SendMessage par exemple permettrait de donner une longueur maxi pour les lignes d'RTF ?Si oui, comment ?Merci Créer un document *.CHM comme l'aide MSDN [ par COSIDUS ] Salut à tous !Je voudrais créer un document .CHM dans le style de l'aide MSDN dans le but d'afficher des documents Word contenant plusieurs pages... c Envoyer un mail au format RTF: police et taille des caractères [ par Luoji ] Salut,Mon programme envoie des e-mails au format RTF, pas de problème, mais je voudrais qu'il utilise une police et une taille de caractère prédéfinie Et au sujet de msdn [ par bcip ] Si quelqu'un saurait où je peut trouver en téléchargement gratuit les fichiers d'aides de VB6, ce serait cool de me le dire parce que je coince souven


Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy Tab (GT-P1000) Tablet PC
Entre 699€ et 699€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Happy Bright Landscape WIth ButterfliesPhoto Monument Valley Utah known as The Mittens
Photo Water in the Beginning of the Grand Canyon 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,577 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)