Discussion :

[Martipit]

Bonjour

Je me tourne une nouvelle fois vers vous afin d'obtenir votre aide.

Voilà sous Visual basic 2010 expres j'ouvre une form dans laquelle mes labels sont déplaçables en cliquant et en les bougeant avec la souris au moyen du 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
Private Sub Annonce_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        'Défini les labels déplacables
        SetMoveable(LabTextParam)
        SetMoveable(LabOnAppel)
        SetMoveable(LabNomInterprete)
        SetMoveable(LabTitre)
        SetMoveable(LabNomTitre)
    End Sub
 
    Dim depart As Point
    Dim deplacement As Boolean = False
 
    Private Sub SetMoveable(ByRef ctl As Control)
        AddHandler ctl.MouseDown, AddressOf Generic_MouseDown
        AddHandler ctl.MouseMove, AddressOf Generic_MouseMove
        AddHandler ctl.MouseUp, AddressOf Generic_MouseUp
    End Sub
 
    Private Sub Generic_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        'Mémorisation du point de départ
        depart = e.Location
        deplacement = True
    End Sub
 
    Private Sub Generic_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        If deplacement Then
            Dim bt As Control = DirectCast(sender, Control)
            Dim loc As Point
            loc.X = bt.Location.X + e.Location.X - depart.X
            loc.Y = bt.Location.Y + e.Location.Y - depart.Y
 
            'Chargement de la nouvelle position du control
            bt.Location = loc
          End If
    End Sub
 
    Private Sub Generic_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        deplacement = False
    End Sub

Ce que j'aimerais c'est qu'à la fermeture,de la fenetre, la nouvelle position soit mémorisée et qu'elle soit appliquée aux ouvertures suivantes.

J'ai enter d'enregistrer la position par la formule suivante :

Code :

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

1
2
3
My.settings.CoordonnesXLabXXXX = LabXXX.location.X
My.settings.CoordonnesYLabXXXX = LabXXX.location.X
My.settings.save()

Et de la rappeler par la formule suivante à l'initialisation de la form:

Code :

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

LabXXX.location = New point (CoordonnesXLabXXXX+","+CoordonnesYLabXXXX)

Mais rien ne fonctionne

Pourriez-vous m'aider sur ce coup là ?

Merci par avance pour vos réponses.

@+ Martipit

[Sankasssss]

Bonsoir,

et avec :

Code :

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

LabXXX.location = New point (CoordonnesXLabXXXX , CoordonnesYLabXXXX)

car point sur MSDN :

Code :

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

1
2
3
4
5
'Declaration
Public Sub New ( _
	x As Integer, _
	y As Integer _
)

Parameters

x
Type: System.Int32
The horizontal position of the point.
y
Type: System.Int32
The vertical position of the point.

[Martipit]

Salut

Merci à toi Kansasssss pour cette réponse.

@+ Martipit

[Pol63]

pour marqué un topic comme résolu, il ne faut pas modifier le titre, mais cliquer sur le bouton "résolu" en bas de la page