Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 09:04:19

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : [DéPLACé VB.NET -> VBA] APPEL DE FONCTION DANS UNE MACRO par louvierseb

RE : LIRE, MODIFIER ET CRéE UN FICHIER XML SOUS VB.NET 2008 - LE RETOUR par megamario

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par Renfield

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par jeremiesauve

[DéPLACé VB.NET -> VBA] MACRO DANS EXCEL par PONTGUENNOU

+ de logiciels à télécharger

1 465 026 membres
74 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 303 056 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CHANGER LA COULEUR D'UN MOT EN PARTICULIER

Information sur la source

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

Auteur : BlackWizzard

Site perso

Ecrire un message privé

Ce membre participe au partage de revenus publicitaires

Note :

4,45 / 10

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

RECHERCHE DE MOT DANS UN TEXTBOX TYPE LANGAGE DE SCRIPT TRES...

GENERATEUR D'AUTOMATES CELLULAIRES (TPE DE TERMINAL S[FRANCE...

FLASH PLAYER (SWF VIEWER)

VIEWER DE EZINE DE HACK, AVEC RECHERCHE DE MOT CLÉ, COLORATI...

RAS DIAL NT/XP - POUR SE CONNECTER AU NET SOUS NT/XP

Toutes les sources de BlackWizzard

Sources de la même categorie

MODULE DE COMMUNICATION ENTRE APPLICATION par PROTEUS91

REGISTRE WINDOWS par Duke49

LECTURE / ÉCRITURE SUR LE PORT PARALLÈLE FACILEMENT AVEC INP... par Moritus

TREEVIEW FACILE par cuic01

ETAT VOLUME WINDOWS - MODIFIER LE VOLUME, LE MUTE, ET OBTENI... par PCPT

Toutes les sources de la catégorie Modules

Sources en rapport avec celle ci

SCREENCOLORINVERTER par slayer418

CODE DE COULEURS DES RÉSISTANCES par houss77

[VB 2008] MEMONAB par Kite37

[VB 2008] NABCOLOR : JEU DE COULEUR AVEC LE NABAZTAG par Kite37

UN COLOR PICKER SANS API ET UNIQUEMENT PAR CALCUL par bigfish_le vrai

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