Discussion :

[Théophille]

Bonjour,

J'ai un soucis plutôt bête, j'ai une textBox dans une grid qui me renvoie des valeurs de la bdd

Code :

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

1
2
3
4
5
<Grid x:Name="LayoutRoot" Style="{StaticResource CalendarDayPanelStyle}">
        .
        .
      <TextBlock x:Name="TotalHours" FontWeight="Bold" HorizontalAlignment="Center" Grid.Row="1" VerticalAlignment="Bottom" Foreground="Blue" FontSize="14" />
</Grid>

Et j'ai écrit une courte méthode en essayant des cast pour changer la couleur du texte de la textBlock "TotalHours" en rouge quand son contenu (une variable double également nommée "TotalHours" dans la base de données) est supérieur à 12.3.

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
    Public Sub TotalHours_Change()
 
        Dim TotalHours As Double
        Dim Hours As String
 
        Hours = CStr(TotalHours) ' ou Hours = Convert.ToString(TotalHours)
        If TotalHours > 12.3 Then
 
            Hours.ForeGround = New SolidColorBrush(Colors.Red)
 
        Else
            Hours.ForeGround = New SolidColorBrush(Colors.Blue)
 
        End If
    End Sub

Mais cela ne fonctionne pas, je ne sais pas comment m'y prendre pour qu'il comprenne que c'est le contenu en double qui doit changer de couleur. (je précise que je suis sur du silverlight/asp, et qu'il ne semble pas connaitre les propriétés ForeColor, ou Color, d'où l'utilisation de Foreground)

Merci d'avance,
Cordialement

[mactwist69]

Bonjour,

Est ce que ton TextBox a sa propriété ReadOnly a True ? ou Enabled a False ?
Car si c'est le cas, le texte ne changera pas de couleur.

Si on est dans ce cas, il faut rendre Enable a true, (ou readonly a false), changer la couleur et remettre la propriété comme tu le souhaites.

[Sankasssss]

Bonjour,

votre méthode est assez spéciale.
Vous déclarer de nouveau TotalHours en double alors que c'est un textBlock sur l'interface, donc vous n'avez plus accès au méthode et propriété du textBlock qui est masqué par la nouvelle variable.
Ceci devrait déjà mieux fonctionner :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Public Sub TotalHours_Change()
 
        Dim Hours As Double
 
        Hours = TotalHours.Text ' ou Hours = Convert.ToString(TotalHours)
        If Hours > 12.3 Then
 
            TotalHours.Foreground = New SolidColorBrush(Colors.Red)
 
        Else
            TotalHours.Foreground = New SolidColorBrush(Colors.Blue)
 
        End If
    End Sub

[Théophille]

Bonjour et merci pour vos réponses,

Mactwist69, les propriétés que tu as cité ne sont pas disponibles sur mon textBlock (et non textbox comme je l'ai appelé par erreur dans ma première phrase).
Quand à Sankasssss, je ne peux pas attribuer la valeur TotalHours.Text à ma variable Hours puisque cette dernière est de type Double (InvalidCastException : conversion from string "" to type 'Double' is not valid)
d'où mon "essai de cast"

[_Ez3kiel]

Bonjour et merci pour vos réponses,

Mactwist69, les propriétés que tu as cité ne sont pas disponibles sur mon textBlock (et non textbox comme je l'ai appelé par erreur dans ma première phrase).
Quand à Sankasssss, je ne peux pas attribuer la valeur TotalHours.Text à ma variable Hours puisque cette dernière est de type Double (InvalidCastException : conversion from string "" to type 'Double' is not valid)
d'où mon "essai de cast"

Bonjour,

Double.TryParse

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
        Dim Hours As Double
 
        If Double.TryParse(TotalHours.Text, Hours) Then
            If Hours > 12.3 Then
 
                TotalHours.Foreground = New SolidColorBrush(Colors.Red)
 
            Else
                TotalHours.Foreground = New SolidColorBrush(Colors.Blue)
 
            End If
        End If

[Théophille]

Merci pour votre réponse, j'ai fais encore quelques modifications sur le reste du code, donc il y a eu des changements mais mon code fonctionne.

Finalement j'ai utilisé ToString :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
...
For Each record As ElementCalendar
Dim convers = FindName(record.ToString)
Dim textblock As TextBlock = convers.TotalHours
textblock.Text = record.TotalHours
 
If record.TotalHours > 12.3 Then
 convers .TotalHours.Foreground = New SolidColorBrush(Colors.Red)
 
ElseIf
.....