Discussion :

[stracoma]

Bonsoir
J'ai une question à vous poser:
Me.Height et Me.Width donnent les dimensions de la fenêtre y compris les bord et la barre de titre.
Comment avoir les dimensions de juste l'espace de travail, sans les bords ni la barre de titre.
J'ai essayé Me.Working.Area mais ça n'existe pas.
J'en ai besoin pour faire déplacer en diagonale un petit panel carré du coin sup gauche vers le coin inf droit en utilisant un timer. Avec ce code:

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
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Height = 600
        Me.Width = 600
        Me.Panel1.Top = 0
        Me.Panel1.Left = 0
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.Panel1.Top < Me.Height - Me.Panel1.Height Then
            Me.Panel1.Top += 1
            Me.Panel1.Left += 1
        Else
            Me.Timer1.Enabled = False
        End If
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Timer1.Interval = 5
        Me.Timer1.Enabled = True
    End Sub
 
 
End Class

le panel dépasse les limites de la fenêtre
Merci à vous

[Sehnsucht]

Form.ClientSize

[stracoma]

Merci pour la réponse.
Mais l'IDE me dit qu'on ne peut pas assigner une valeur à Form.ClientSize (je croix : readonly).
Je me suis débrouillé avec ce code, ça marche bien, mais je ne sais pas ce qu'en diront les experts:

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
Public Class Form1
    Dim x As Integer = Me.Height - Me.ClientSize.Height
    Dim y As Integer = Me.Width - Me.ClientSize.Width
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Height = 600 + x
        Me.Width = 600 + y
        Me.Panel1.Top = 0
        Me.Panel1.Left = 0
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Timer1.Interval = 2
        Me.Timer1.Enabled = True
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.Panel1.Top < Me.Height - Panel1.Height - x Then
            Me.Panel1.Top += 1
            Me.Panel1.Left += 1
        Else
            Me.Timer1.Enabled = False
        End If
    End Sub
 
End Class

Merci