High-Tech Santé Médecine Droit-Finances

Connecter

sa Xbox 360

au Xbox Live

Rechercher : dans
Par :

Changer couleur de fond textbox vb 2005

Dernière réponse le 5 jan 2009 à 13:32:37 bastien88, le 5 jan 2009 à 10:58:22 
 Signaler ce message aux modérateurs

Bonjour, j'ai un programme avec dedans une textbox. Lorsqu'on demarre le programme cela charge un fichier texte dans ma textbox. Je voulais savoir comment on peu changer la couleur de fond selon les caracteres qui se trouve dans le texte. Moi j'ai mis sa: 

If MonFichier = "." Then
                BackColor = Color.Blue
            ElseIf MonFichier = "!" Then
                BackColor = Color.Cyan
            ElseIf MonFichier = "?" Then
                BackColor = Color.Red
            ElseIf MonFichier = "," Then
                BackColor = Color.Yellow
            End If
Configuration: Windows XP
Internet Explorer 7.0

Meilleures réponses pour « changer couleur de fond textbox vb 2005 » dans :
Changer de fond d'écran VoirPour Windows XP et versions antérieures Pour Windows Vista Obtenir des fonds d'écran Solution plus rapide Comment changer l'arrière-plan du Bureau ? Un fond d'écran est une image utilisée en arrière-plan de votre bureau. Lors d'une...
[Windows XP] Interdire le changement du fond d'écran VoirVous avez des collègues farceurs au bureau, qui changent votre papier peint ? Ou vous avez prêté votre PC à un ami, qui a chamboulé votre arrière-plan ? Cet article vous indiquera comment interdire le changement de votre fond d'écran. Pour cela...
Gnome - changer rapidement de fond d'écran VoirChanger rapidement de fond d'écran Vous l'avez peut être remarqué : pour changer le fond d'écran de Nautilus, vous devez ouvrir l'image avec le visionneur, puis faire "image > définir comme papier peint". Ce n'est, ni très pratique, ni très...
Posez votre question Répondre

1

bastien88, le 5 jan 2009 à 11:50:24

Up!

   
Répondre à bastien88

2

mikebzh, le 5 jan 2009 à 12:43:33

Essaie plutôt ça

[code]
Private Sub Text1_Change()
With Text1
If InStr(.Text, ".") Then
.BackColor = &HFF0000 'bleu
ElseIf InStr(.Text, "!") Then
.BackColor = &HFF& 'rouge
ElseIf InStr(.Text, "?") Then
.BackColor = &HFFFF& 'jaune
Else
.BackColor = &H80000005 'blanc
End If
End With
End Sub
[\code]

Salut

   
Répondre à mikebzh

3

 bastien88, le 5 jan 2009 à 13:32:37

Nikel je te remercie^^

   
Répondre à bastien88
Posez votre question Répondre
Ils ont besoin de votre aide