Discussion :

[Marcolinho]

Bonjour, je cherche à stylé la barre de titre d'une Window.
Je ne sais pas si c'est faisable ?
Je sais qu'on peut tout enlever, et créer le tout nous même, mais il faut gérer tout les évenements de déplacement de la fenêtre, maximize, minimize, close ..., ou peut on récupérer le comportement de cette barre ?

Merci pour votre aide.

[Thomas Lebrun]

Il te faut modifier le template de la Window pour cela. Mais Expression Blend ne fonctionne pas très bien quand on veut faire ca

[Marcolinho]

Ok, j'essairai plus tard, pour le moment j'en ai refais une qui tiens la route, en en mettant le WindowStyle à none

Code vb.net :

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
 
 
    ' OwnedWindow déclaré comme propriété, et référencé dans la fenêtre conteneur
 
    Private Sub ImgMinimize_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles ImgMinimize.Click
        OwnedWindow.WindowState = Windows.WindowState.Minimized
    End Sub
 
    Private Sub ImgMaximize_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles ImgMaximize.Click
        maximize()
    End Sub
 
    Private Sub ImgClose_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles ImgClose.Click
        OwnedWindow.Close()
    End Sub
 
    Private Sub UCBandeau_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles Me.MouseDoubleClick
        maximize()
    End Sub
 
    Private Sub UCBandeau_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles Me.MouseDown
        drag = True
    End Sub
 
    Private Sub UCBandeau_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles Me.MouseUp
        drag = False
    End Sub
 
    Private Sub UCBandeau_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Input.MouseEventArgs) Handles Me.MouseMove
        If drag Then
            OwnedWindow.DragMove()
        End If
    End Sub
 
    Private Sub UCBandeau_MouseLeave(ByVal sender As Object, ByVal e As System.Windows.Input.MouseEventArgs) Handles Me.MouseLeave
        drag = False
    End Sub
 
    Private Sub maximize()
        If OwnedWindow.WindowState = Windows.WindowState.Normal Then
            OwnedWindow.WindowState = Windows.WindowState.Maximized
        Else
            OwnedWindow.WindowState = Windows.WindowState.Normal
        End If
    End Sub

Ca permet de gérer un comportement assez semblable (surtout grâce au DragMove()) qui simplifie beaucoup le déplacement de la fenêtre.

Je mets en Résolu du coup si l'autre solution est de modifier le Template !

[Louis-Guillaume Morand]

regarde le code source de dreamshield.developpez.com


il me semble que smyley a totalement customisé les fenêtres. du moins, dans la première version, c'était le cas