mettre une couleur grise pour le texte d'un textbox dont la propriété readonly est true

**AngeAbstraction** · 30/09/2012, 19h58

bonjour,
dans mon formulaire de modification des informations d'un stagiaire j'ai une zone de texte qui contient la description de la filière du stagiaire je veux que la couleur de ce qui est écrit dans cette zone soit grise alors j'ai écrit le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Try
            Connexion = New SqlConnection("Data Source=ordinateur;" _
            & "Initial Catalog=GestionStagiaires;Integrated Security=True")
            Connexion.Open()
            Commande = New SqlCommand("SELECT * FROM STAGIAIRE WHERE " _
            & "CODESTAGIAIRE=" & ComboBoxCodesStagiaires.SelectedItem() & _
            "", Connexion)
            DataReader = Commande.ExecuteReader()
            DataReader.Read()
            With TextBoxCodeStagiaire
                .ForeColor = Color.Gray
                .Text = DataReader(0)
            End With
            With TextBoxNom
                .ForeColor = Color.Gray
                .Text = DataReader(1)
            End With
            With TextBoxPrenom
                .ForeColor = Color.Gray
                .Text = DataReader(2)
            End With
            With DateTimePickerDateNaissance
                .Value = DataReader(3)
            End With
            With ComboBoxCodesGroupes
                .ForeColor = Color.Gray
                .DropDownStyle = ComboBoxStyle.DropDown
                .Text = DataReader(4)
                .DropDownStyle = ComboBoxStyle.DropDownList
            End With
            With ComboBoxCodesFilieres
                .ForeColor = Color.Gray
                .DropDownStyle = ComboBoxStyle.DropDown
                .Text = DataReader(5)
                .DropDownStyle = ComboBoxStyle.DropDownList
            End With
            With TextBoxEmail
                .ForeColor = Color.Gray
                .Text = DataReader(6)
            End With
            With TextBoxTel
                .ForeColor = Color.Gray
                .Text = DataReader(7)
            End With
            With TextBoxVille
                .ForeColor = Color.Gray
                .Text = DataReader(8)
            End With
            With TextBoxPays
                .ForeColor = Color.Gray
                .Text = DataReader(9)
            End With
            Commande = New SqlCommand("SELECT LIBELLEFILIERE FROM FILIERE WHERE CODEFILIERE =" _
            & DataReader(5), Connexion)
            DataReader.Close()
            DataReader = Commande.ExecuteReader()
            DataReader.Read()
            With TextBoxLibelleFiliere
                .ForeColor = Color.Gray
                .Text = DataReader(0)
            End With
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Gestionnaire de stagiaires")
        Finally
            If Connexion.State = ConnectionState.Open Then
                Connexion.Close()
            End If
        End Try

.
toutes les zones de texte ont la couleur grise sauf celle de la description de la filière et je ne sais pas pourquoi.
s'il vous plaît,est-ce que quelqu'un pourrait m'aider.
merci d'avance pour votre aide.