AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 01 08 07:43:00
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 !

RICHTEXTBOX AVANCÉE : AJOUTEZ FACILEMENT UNE LIGNE DE COULEUR, ET APPLIQUEZ UNE IMAGE FONDUE [MODULE DE CLASSE]


Information sur la source

Catégorie :Control Classé sous : classe, richtextbox, forecolor, backcolor, afck Niveau : Débutant Date de création : 15/03/2006 Date de mise à jour : 03/11/2006 07:05:19 Vu / téléchargé: 6 024 / 1 445
Auteur : PCPT Ecrire un message privé
Ce membre participe au partage de revenus publicitaires
Note :
9,5 / 10 - par 6 personnes
9,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (15)
Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale
juste une classe pour ajouter une ligne de couleur avec le moins de tracas possible (ForeColor ET BackColor).

et en prime la possibilité de créer une image de fond.
pour plus d'explications, le screenshot parle de lui-même.
sinon demandez-moi ;)

comme d'hab.... commentaires notes
 

Source

  • AfRTB.BackColor = Txt_Saisie.BackColor
  • AfRTB.ForeColor = Txt_Saisie.ForeColor
  • Set AfRTB.Font = Txt_Saisie.Font
  • AfRTB.AddItem Txt_Saisie.Text, False
  • AfRTB.RemoveItem 1, True
AfRTB.BackColor = Txt_Saisie.BackColor
AfRTB.ForeColor = Txt_Saisie.ForeColor
Set AfRTB.Font = Txt_Saisie.Font
AfRTB.AddItem Txt_Saisie.Text, False
AfRTB.RemoveItem 1, True

Conclusion

un bug oui : là première fois que la ScrollBar est dessinée, les boutons Haut/Bas ne le sont qu'après avoir été cliqué.
ouvert à toutes suggestions :p
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Historique

04 avril 2006 21:16:47 :
***clear ***Clear Sélection ***text ***seltext ***textrtf ***SelModify ***GetSelProps ***saveRTF
03 novembre 2006 07:05:19 :
' .GotoLine ' .ScrollToTop ' .ScrollToBottom ' .CountLines ' .GetCharCaret ' .GetRowCaret ' .GetColCaret ' .GetItem ' .SelectItem ' .RemoveItem ' .LoadRTF

Commentaires et avis

signaler à un administrateur
Commentaire de mongol77 le 15/03/2006 18:40:44

pas mal du tout ! je vais plus que m'en inspirer pour mon projet, merci beaucoup

signaler à un administrateur
Commentaire de moustachu le 16/03/2006 18:36:53

Bonjour,

C'est fou ça, j'ai besoin d'un truc comme ça et zouuu, dans la journée c'est déjà sur vb france.

Je teste tout ça, et je reviens ;o)

Merci,

Moustachu

signaler à un administrateur
Commentaire de PCPT le 17/03/2006 02:33:55 administrateur CS

même la veille ^^
n'hésitez pas à dire ce que vous en pensez, comment améliorer, pis' de noter ;)
++

signaler à un administrateur
Commentaire de Willi le 17/03/2006 20:59:14 administrateur CS

Niveau amélioration du code pas grand chose à dire...que du bonheur pour mes yeux :)
Le petit truc sympa serait de permettre la modification du style du texte que l'ont sélectionne dans le richtextbox.

voila :)
++

signaler à un administrateur
Commentaire de PCPT le 17/03/2006 22:01:57 administrateur CS

umm? en fait la modif est à faire soit en mode édition, soit avant d'instancier la classe, mais c'est déjà effectif. le but étant de garder toujours la première config (obj DefaultFont) en mémoire et de pouvoir changer directement la font de la RTB en cours d'execution sans la perdre de la classe.
donc si j'ai bien compris, beh c'est déjà le cas mais uniquement par l'accès direct au RTB

en attendant, merci à tous pour vos remarques ;)
PCPT  [AFCK]

signaler à un administrateur
Commentaire de moustachu le 18/03/2006 09:22:37

Bonjour,

PCPT, ta réponse répond pratiquement à la question que je n'ai pas encore posée. Peut-on écrire directement dans le RTB avec la mise en forme de la police voulue, comme dans un RTB "classique" ?

++

Moustachu

signaler à un administrateur
Commentaire de PCPT le 18/03/2006 09:35:46 administrateur CS

salut Moustachu
oui bien sûr, là j'ai juste montré un exemple comme un Chat, donc RTB non-modifiable (fenêtre de réception).
pour tester il suffit juste de passer la propriété Locked à False. les lettres saisie prendront alors la typo/forecolor/backcolor de la position du care (selstart).

@+ ;)

signaler à un administrateur
Commentaire de MasterHack le 18/03/2006 23:10:27

joli
merci

signaler à un administrateur
Commentaire de moustachu le 20/03/2006 10:05:26

Bonjour,

Après quelques essais, ce serait sympa d'avoir une procédure "Clear" et également une propriété Text (et RTB text même si toute la mise en forme ne peut être copiée).

Par contre, cela ne fonctionne pas sous NT4. Quel message utilises-tu ?

++

Moustachu

signaler à un administrateur
Commentaire de moustachu le 20/03/2006 14:06:28

Ou même rajouter une procédure du genre :

sub GotoLine (p_line_number as long)
dim topLine as long
topLine = SendMessage(richtext1.hWnd, EM_GETFIRSTVISIBLELINE, 0&, 0&) + 1
Call SendMessageLong(richtext1.hWnd, EM_LINESCROLL, 0&, p_line_number - topLine )

end sub

signaler à un administrateur
Commentaire de PCPT le 22/03/2006 11:44:30 administrateur CS

salut,
j'ai essayé de mettre à jour selon vos remarques que je n'avais apparemment pas si bien compris. je post çà au plus vite :
Willi-> _changer SelText (props), ok.
Moustachu -> _écrire dans le RTB, c'est juste le Lock.
_clear, ok.
_Text/TextRTF, ok en Get. "çà" ne fonctionne pas sous NT. quoi donc, l'image de fond? l'image background? le scroll?
_gotoline, tu veux placer le curseur devant l'indice de ligne indiqué? sélectionner la ligne? et en considérant la ligne par son affichage, ou se terminant par une ponctuation.

et 2 3  autres fonctions...
@+ ;)
PCPT [AFCK]

signaler à un administrateur
Commentaire de PCPT le 04/04/2006 21:19:18 administrateur CS

Maj effectuée

signaler à un administrateur
Commentaire de moustachu le 16/05/2006 08:40:12

Bonjour,

Désolé de ne pas avoir retesté plus tôt ta source.


Le goto line, c'est se rendre à une ligne donnée de ton RTB. Tu places la ligne demandée en première ligne visible (si possible) et le curseur, tant qu'on y est. C'est le bout de code que j'ai mis l'autre jour. Une ligne se termine par CRLF je pense. Mais libre à toi d'enrichir comme tu le sens.

C'est l'image de fond qui n'apparait pas sous NT4, mais bon, on va pas transpirer à grosses gouttes pour NT4. La couleur de fond non plus ne fonctionne pas sous NT4.

++
Moustachu




signaler à un administrateur
Commentaire de PCPT le 03/11/2006 07:08:37 administrateur CS

un peu plus de 7 mois plus tard, une petite maj reprenant ta demande Moustachu, ainsi que d'autres points pratiques, comme la sélection de ligne, la position du curseur (ligne et colonne), etc...
(voir description 03/11/2006 07:05:19)

++ ;)

signaler à un administrateur
Commentaire de normandcoulombe le 17/11/2007 15:22:39 10/10

Merveilleux...  :-)

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

DbGrid & ForeColor & BackColor [ par daveJob ] Salut à tous,voici ma questionDbGrid & ForeColor : Si j'utilise cette fonction, Vb change la couleur de tout le texte de mon DbGrid, probleme: je ne v reproduire la saisie de forecolor ou backcolor [ par isaomi ] Bonjour,Je cherche à enregistrer dans un fichier les couleurs de saisie des réponses , des questions etc... pour chaque utilisateur afin de personnal vb.net: backcolor et l'opérateur '='??? [ par dav2003 ] bonjour à tous,voila mon problème,J'ai créé une classe MaCase qui hérite de la classe PictureBox.Lorsque je veux faire un test sur la couleur de MaCas DataGridView [ par mitch000 ] Bonjour à tout le monde,Je vais sûrement vous embêter avec ma question mais je me retruve face un un petit problème d'ou cette question Voila je dois datagridview [ par mitch000 ] Bonjour à tout le monde,Je vais sûrement vous embêter avec ma question mais je me retruve face un un petit problème d'ou cette question Voila je dois BackColor select texte dans une richtextbox [ par FredLynx ] Voilà j'ai un problème enervant !!!!Comment changer la couleur de fond d'une zone sélectionné dans une richtextbox ?Ceci est possible depuis word et a Surligner dans richtextbox [ par bratislaprog ] Comment fait-on pour souligner un mot dans une richtextbox? Je n'arrive pas en utilisant backcolor. Et il n'y a pas sel.backcolorMErci problème d'imports System dans une classe [ par Kornebrume ] Bonjour à tous.J'essai d'écrire une classe qui me permet d'éditer les propriétés de différents éléments (combobox, textbox, richtextbox, label, etc .. Le ClassName ! [ par capo666 ] salut ,Vous connaisser surement deja l'API Getclassname ! qui permet de récupérer le nom de la classe de la fenetre désirer. Maintenant je me demandai Annuler couper/copier/coller dans une Richtextbox [ par mJuJu ] Salut à tous.Voilà. Je travaille en VB6. J'utilise le menu contextuel dans des richtextbox (AutoVerbMenu = true). En ce qui concerne le couper, copier


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, 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
Temps d'éxécution de la page : 0,484 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.