Discussion :

[younesssoleil]

Bonjour;
Je souhaite créer des bouttons dynamiquement et qui peuvent se déplacer avec la souris.
voici le code ci-dessous qui fonctionne avec :
AddHandler m_TextBoxes(i).MouseHover, AddressOf mouvementqui relie mon action à la procédure "mouvement" qui doit laisser libre le déplacement des bouttons.... c'est cette procédure que je n'arrive pas à la créer.
Merci de votre aide.

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
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim nom_action As String
        nom_action = InputBox("Nom de l'action", "Sport Action")
 
        ' Get the index for the new control.
        Dim i As Integer = m_TextBoxes.Length
 
        ' Make room.
        ReDim Preserve m_TextBoxes(i)
 
        ' Create and initialize the control.
        m_TextBoxes(i) = New Button
        With m_TextBoxes(i)
            .Name = "TextBox" & i.ToString() + 1
 
            If m_TextBoxes.Length < 2 Then
                ' Position the first one.
                .SetBounds(8, 8, 100, 20)
            Else
                ' Position subsequent controls.
                .Left = m_TextBoxes(i - 1).Left
                .Top = m_TextBoxes(i - 1).Top + m_TextBoxes(i - _
                    1).Height + 4
                .Size = m_TextBoxes(i - 1).Size
            End If
 
            ' Save the control's index in the Tag property.
            ' (Or you can get this from the Name.)
            m_TextBoxes(i).Tag = i.ToString
            '.Tag = i
        End With
 
        ' Give the control an event handler.
 
        AddHandler m_TextBoxes(i).MouseHover, AddressOf mouvement
 
       ' Add the control to the form.
        Me.Controls.Add(m_TextBoxes(i))
        m_TextBoxes(i).Text = nom_action
 
    End Sub

[Graffito]

Je souahite crée des bouttons dynamiquement et qui peuvent se déplacer avec la souris.

Pour un déplacement dans le même container (Form, Panel, TabPage, ...), on peut le faire "à la main" en gérant les events Click, MouseDown, MouseMove et MouseUp:

• L'event Click étant potentiellement en conflit avec les autres events, on ne l'utilisera pas.
• L'event MouseDown servira à entrer dans un mode "déplacement de bouton" et à noter la position relative P du curseur dans le bouton.
• L'event MouseMove servira à déterminer la nouvelle position Q du curseur dans le bouton. Si on est en un mode "déplacement de bouton", on déplacera alors le bouton, en modifiant sa propriété Location de Q-P et on fera P=Q pour le move suivant.
• L'event MouseUp servira à exécuter ce qu'on faisait sur le click, à condition qu'il n'y ait eu aucun MouseMove. Dans tous les cas, remettre le mode "déplacement de bouton à false.

Penser aussi dans le MouseMove à limiter le déplacement de bouton pour éviter qu'il "sorte" de l'espace visible.

[younesssoleil]

Merci pour votre retour...
Tout d'adord;je vous informe que je developpe avec VB express 2010.
je ne sais toujours pas comment faire..).
En faite je crée des boutons dynamiquement avec le code ci-dessous; mais je ne sais pas rendre mes bouttons m_TextBoxes(i) libre pour se deplacer en les faisons glisser avec la souris.
Merci

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
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim nom_action As String
        nom_action = InputBox("Nom de l'action", "Sport Action")
 
        ' Get the index for the new control.
        Dim i As Integer = m_TextBoxes.Length
 
        ' Make room.
        ReDim Preserve m_TextBoxes(i)
 
        ' Create and initialize the control.
        m_TextBoxes(i) = New Button
        With m_TextBoxes(i)
            .Name = "TextBox" & i.ToString() + 1
 
            If m_TextBoxes.Length < 2 Then
                ' Position the first one.
                .SetBounds(8, 8, 100, 20)
            Else
                ' Position subsequent controls.
                .Left = m_TextBoxes(i - 1).Left
                .Top = m_TextBoxes(i - 1).Top + m_TextBoxes(i - _
                    1).Height + 4
                .Size = m_TextBoxes(i - 1).Size
            End If
 
            ' Save the control's index in the Tag property.
            ' (Or you can get this from the Name.)
            m_TextBoxes(i).Tag = i.ToString
            '.Tag = i
        End With
 
        ' Give the control an event handler.
        AddHandler m_TextBoxes(i).Click, AddressOf TextBox_TextChanged
 
        'AddHandler m_TextBoxes(i).MouseHover, AddressOf mouvement
 
        ' Add the control to the form.
        Me.Controls.Add(m_TextBoxes(i))
        m_TextBoxes(i).Text = nom_action
 
    End Sub

Regarde cette solution : http://stackoverflow.com/questions/1...-another-panel

Sinon, pour un déplacement dans le même container (Form, Panel, TabPage, ...), on peut le faire "à la main" en gérant les events Click, MouseDown, MouseMove et MouseUp:

• L'event Click étant potentiellement en conflit avec les autres events, on ne l'utilisera pas.
• L'event MouseDown servira à entrer dans un mode "déplacement de bouton" et à noter la position relative P du curseur dans le bouton.
• L'event MouseMove servira à déterminer la nouvelle position Q du curseur dans le bouton. Si on est en un mode "déplacement de bouton", on déplacera alors le bouton, en modifiant sa propriété Location de Q-P et on fera P=Q pour le move suivant.
• L'event MouseUp servira à exécuter ce qu'on faisait sur le click, à condition qu'il n'y ait eu aucun MouseMove. Dans tous les cas, remettre le mode "déplacement de bouton à false.

Penser aussi dans le MouseMove à limiter le déplacement de bouton pour éviter qu'il "sorte" de l'espace visible.

[Jeano81]

Salut à toi !

Si ça peut t'aider,j'ai eu un truc similaire à faire avec une form !

C'est la même chose en gros.

Voila le code :

on enregistre les coordonnées de la souris lors d'un clic (mousedown)

Code :

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

1
2
3
Private Sub Recherche_d_article_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown
      mouse_offset = New Point(e.X, e.Y)
End Sub

et ensuite on déplace le controle (ma form pour moi) à l'endroit où la souris ce situe - le point initial à l'aide du mousemove :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Recherche_d_article_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
 
        If e.Button = Windows.Forms.MouseButtons.Left Then
            mousePos.Offset(e.X - mouse_offset.X, e.Y - mouse_offset.Y)
            Me.Location = mousePos
        End If
 
End Sub

sans oublier de déclarer les Points :

Code :

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

1
2
Dim mousePos As Point = Control.MousePosition
Dim mouse_offset As Point

Voila j'espère que tu t'en sortira ! Ça devrait aller

[ebastien]

Bonjour,

Une astuce pour déplacer un Control avec la souris :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
[System.Runtime.InteropServices.DllImport("user32.dll")]
public static extern bool ReleaseCapture();
[System.Runtime.InteropServices.DllImport("user32.dll")]
public static extern int SendMessage(IntPtr hWnd, int wMsg, IntPtr wParam, IntPtr lParam);
 
private int WM_SYSCOMMAND = 0x0112;
private IntPtr SC_DRAGMOVE = new IntPtr(0xF012);
private IntPtr PtrNull = new IntPtr(0);
 
private void MyButton_MouseDown(object sender, MouseEventArgs e)
{           
      ReleaseCapture();
      SendMessage(MyButton.Handle, WM_SYSCOMMAND, SC_DRAGMOVE, PtrNull);
}

[wallace1]

@ebastien : très intéressant, je ne connaissais pas.
Merci