begin process at 2012 02 16 13:52:01
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Modules

 > CHANGER LA COULEUR D'UN MOT EN PARTICULIER

CHANGER LA COULEUR D'UN MOT EN PARTICULIER


 Information sur la source

Note :
4,45 / 10 - par 11 personnes
4,45 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Modules Classé sous :couleur, mot, particulier Niveau :Débutant Date de création :22/03/2001 Vu :4 885
Auteur : BlackWizzard

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

 Description

dans un module:

Source

  • Private Function HLW(rtb As RichTextBox, sFindString As String, Lcolor As Long)
  • Dim LfoundPos As Long
  • Dim LfindLenght
  • Dim LorigSelStart
  • Dim LorigSelLenght
  • Dim ImatchCount As Integer
  • LorigSelStart = rtb.SelStart
  • LorigSelLenght = rtb.SelLength
  • LfindLenght = Len(sFindString)
  • LfoundPos = rtb.Find(sFindString, 0, , rtfNoHighlight)
  • While LfoundPos > 0
  • ImatchCount = ImatchCount + 1
  • rtb.SelStart = LfoundPos
  • rtb.SelLength = LfindLenght
  • rtb.SelColor = Lcolor
  • LfoundPos = rtb.Find(sFindString, LfoundPos + LfindLenght, , rtfNoHighlight)
  • Wend
  • rtb.SelStart = LorigSelStart
  • rtb.SelLength = LorigSelLenght
  • HLW = ImatchCount
  • End Function 
Private Function HLW(rtb As RichTextBox, sFindString As String, Lcolor As Long)
Dim LfoundPos As Long
Dim LfindLenght
Dim LorigSelStart
Dim LorigSelLenght
Dim ImatchCount As Integer
LorigSelStart = rtb.SelStart
LorigSelLenght = rtb.SelLength
LfindLenght = Len(sFindString)
LfoundPos = rtb.Find(sFindString, 0, , rtfNoHighlight)
While LfoundPos > 0
ImatchCount = ImatchCount + 1
rtb.SelStart = LfoundPos
rtb.SelLength = LfindLenght
rtb.SelColor = Lcolor
LfoundPos = rtb.Find(sFindString, LfoundPos + LfindLenght, , rtfNoHighlight)
Wend
rtb.SelStart = LorigSelStart
rtb.SelLength = LorigSelLenght
HLW = ImatchCount
End Function



 Sources du même auteur

Source avec Zip RECHERCHE DE MOT DANS UN TEXTBOX TYPE LANGAGE DE SCRIPT TRES...
Source avec Zip GENERATEUR D'AUTOMATES CELLULAIRES (TPE DE TERMINAL S[FRANCE...
Source avec Zip FLASH PLAYER (SWF VIEWER)
Source avec Zip Source avec une capture VIEWER DE EZINE DE HACK, AVEC RECHERCHE DE MOT CLÉ, COLORATI...
Source avec Zip RAS DIAL NT/XP - POUR SE CONNECTER AU NET SOUS NT/XP
Toutes les sources de BlackWizzard

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) CRYPTAGE ET DECRYPTAGE par jerichez
Source avec Zip Source avec une capture Source .NET (Dotnet) EXEMPLE MODBUS POUR MODULES ADAM, BECKHOFF, WAGO par mnmsjaune
Source avec Zip Source .NET (Dotnet) CRÉER SON PROPRE DESIGNER COMME CELUI DE VISUAL STUDIO par ShareVB
Source avec Zip Source .NET (Dotnet) CONVERSION UTM VERS LAT/LONG par BarresLTD
Source avec Zip CPROPGROUP : COLLECTION FAITE MAISON par Flocreate
Toutes les sources de la catégorie Modules

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) LOGICIEL DE MÉMO (POST-IT) par VBmasterX
Source .NET (Dotnet) AMUSONS NOUS AVEC UN LABEL ^^ par Adn56
Source avec Zip Source avec une capture COLOR PICKER par EBArtSoft
Source avec Zip Source avec une capture COULCOD 4.2 _COULEURS - VALEURS -NUANCES par Sechaud
Source .NET (Dotnet) ORDRE ALPHABÉTIQUE par michael59330

Commentaires et avis

Commentaire de VB6Boss le 24/03/2002 14:30:22

To incrust:
Ouais. mais je te conseille de remplacer Private par Public sion t'auras du mal a l'utiliser
********************************************************************

Commentaire de pyth le 14/03/2003 10:34:12

J'ai une erreur de compilation à la ligne :
Private Function HLW(rtb As RichTextBox, sFindString As String, Lcolor
ça me dit que j'ai un type non défini par l'utilisateur.
Qqn peut m'aider ?

Commentaire de jrivet le 23/11/2007 08:40:11

Salut,
Je sais que cela fait longtemps que ce code est là...

Une petite amélioration possible serait de typer les variables et non  pas seulement 2

Dim LfoundPos As Long
Dim LfindLenght As Long
Dim LorigSelStart As Long
Dim LorigSelLenght As Long
Dim ImatchCount As Integer


De plus si tu sais ce que retourne la fonction, type le aussi plutot que de mettre du Variant.

Private Function HLW(rtb As RichTextBox, sFindString As String, Lcolor As Long) As Integer

Voila.
Sinon à part cela, il semble que ce soit ce que je cherchais.
Alors Merci.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Reconnaissance de fonctions dans un RichTextBox [ par Loïc ] J'explique : comment peut on reconnaître un mot tapé dans un richtextbox par l'utilisateur pour le mettre en couleur imédiatemment ? Ce que je voudrai metre une couleur dans un richtextbox [ par sisi1980 ] bonjour j'ai une richetextbox et une textbox et je souhaiterais que lorsque le mot qu'il y a dans la texte box se presente dans la richtextbox qu'il m changer la couleur de fond d'un mot dans un richtextbox en vb.net [ par yohan49 ] Bon c encore moi ! lol j'ai resolu mon probleme de mots en bras , mais maintenant , je calle pour changer la couleur de fon d'un mot selectionné RichTextBox : 1 seul mot précis en couleur ? possible ? [ par allthew3 ] Bonjour,Est-ce que quelqu'un serait s'il est possible, en Visual Basic .NET 2005 (donc FrameWork 2), de colorer un mot précis dans un contrôle RichTex Pb RichTextBox [ par theoutlawz ] Bonjour à tous ! En fait j'aimerais pouvoir mettre en valeur un mot precis dans une ligne d'un textbox ou d'un richtextboxen le mettant en couleur par couleur de texte ? [ par fred ] comment recuperer la couleur d'un mot selectionner dans un rich textbox ?en fait sur double clic sur un mot je le selectionne et ouvre un fichier corr ComboBox [ par DjTommy ] Voila, J'ai un combo box contenant le mot Rouge et le mot Noir. J'ai un label qui change de couleur soit rouge et noir grace a un timer. COmment faire VBA Excel [ par toniovargas ] Bonjour, et merci pour toutes les informations (très utiles!!!). Je suis en train de faire un programme sous vba excel avec userform. Je renvoi c changer la couleur d'un texte automatiquement [ par mpc ] je fais défiler un texte automatiquement. Je souhaite changer la couleur de ce texte mot par mot et ce de manière automatique. Pouvez-vous m'aider?Mer listebox texte en couleur [ par vichenzo ] slt a tousJe voudrais savoir comment on peut ecrire du texte(issu d une base de donnee) de differente couleur, ds une listbox?Ex:Ds une listbx s affic


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Happy Bright Landscape WIth ButterfliesPhoto Green Energy Solutions With Light Bulb Morphed Into Landscape
Photo Pêche au Carrelet, la Barre-de-Monts, vendée (85), Pays de loire 

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 : 2,512 sec (3)

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)