Colorer une partie d'un contrôle LabelRésolu

Question

Bonjour,
Voila je souhaite faire une console du style de MS-DOS, le seul problème c'est que je voudrais qu'une partie du  texte du label s'afiche d'une autre couleur que l'ensemble du texte. Est-ce que cela est possible ou suis-je obligé d'utiliser un autre controle tel que le RichTextBox ?

Merci de votre aide

jmfmarques · Accepted Answer

Il te suffit d'utiliser une picturebox, pour celà...
Tu en insères une sans bordures et tu y "dessines" ton texte (méthode Print)
Rien ne t'empêche à ce propos de ne pas utiliser du tout un autre contrôle et de dessiner ton texte directement sur ta forme, si ces "labels" ne doivent pas recevoir d'événement click.

cs_casy · Answer

c'est justement le RTB qu'il faut utiliser dans ce cas là. Regarde du coté de SelText.Forecolor (de mémoire, pas sur que ce soit exactement ça)

---- Sevyc64  (alias Casy) ---- # LE PARTAGE EST NOTRE FORCE #

cs_casy · Answer

Tu te complique la vie Jacques, le RichTextBox est parfait pour écrire en couleur

---- Sevyc64  (alias Casy) ---- # LE PARTAGE EST NOTRE FORCE #

cs_DARKSIDIOUS · Answer

Utiliser des labels pour faire une console, là je comprends plus tout !

Pareil pour utiliser un picturebox !!!!

Il vaut bien mieux dessiner sur la feuille comme tu le préconise plutôt qu'alourdir inutilement l'application avec des pictureboxes !

Stan631 · Answer

Bein je ne suis pas vaiment chaud pour pour le RTB... Le PictureBox me conviendra tout a fait.

Merci beaucoup pour votre aide,
Stan

jmfmarques · Answer

Attends, je te fait vite fait bien fait un petit exemple d'écriture sur ta form (beaucoup moins cher qu'une pictureBox)...
Me faut 3 minutes...

jmfmarques · Answer

Voilà :
Une Form avec propriété AutoRedraw = True
une pictureBox (propriété autoredraw = true)

Un bouton de commande Command1

Private Sub Command1_Click()
   ecrire Me, "toto", 1500, 500, vbBlack, True
   ecrire Me, " titi", CurrentX, CurrentY, vbRed, False
   ecrire Me, "tata", 1500, 700, vbBlue, True
   ecrire Picture1, "coucou", 10, 10, RGB(90, 150, 20), False
End Sub


Private Sub ecrire(dans As Object, texte As String, oux As Integer, ouy As Integer, couleur As Long, reste As Boolean)
  CurrentX = oux
  CurrentY = ouy
  dans.ForeColor = couleur
  If True Then
    dans.Print texte;
  Else
   dans.Print texte
  End If
End Sub

Tu peux également définir la Font, sa taille, son style, etc... si tu le veux (utilise pour celà l'objet Font)

Stan631 · Answer

Merci c'est vrai qu'il est plus judicieux de l'ecrire dirrectement sur la form. 
Je vais utiliser cette methode pour mon programme.

Merci encore
Stan

jmfmarques · Answer

Ouillr (j'ait fait trop vite et tu pourrais un jour te demander ce qui arrive avec une picturebox !...)

Corrige vite en ajoutant ce que j'ai mis en gras, bien sur ! :

  dans.CurrentX =  oux
   dans. CurrentY  = ouy

Colorer une partie d'un contrôle Label

9 réponses

Votre réponse

Discussions similaires