Discussion :

[Nico-xs]

Langage : VB.Net
Framework : 1.1
IDE : VS 2003

Bonjour, je travaille actuellement sur une application avec un module calendrier. Dans ce dernier, il me faudrait déplacer des controles (label) par un simple mouvement de souris.

J'ai trouvé des codes sur ce forums me permettant de le faire via un drag&drop. Seulement j'aimerais qu'on voit rellement le trajet de mon controle.
J'ai donc vu qu'on pouvait utilisé une API. Seulement je n'ai trouvé qu'un code en C#.

Déclaration :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
using System.Runtime.InteropServices;
 
private const int HTCAPTION = 0x2;
private const int WM_NCLBUTTONDOWN = 0xA1;
 
[DllImport("User32.dll")] 
public static extern bool ReleaseCapture(); 
 
[DllImport("User32.dll")] 
public static extern int SendMessage(IntPtr hWnd, int Msg, int wParam, int lParam);

Sur événement MouseDown du panel1

Code :

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

1
2
3
4
5
6
7
8
9
10
 
private void panel1_MouseDown(object sender, System.Windows.Forms.MouseEventArgs e)
{
     if (e.Button == MouseButtons.Left) 
     { 
         ReleaseCapture(); 
        SendMessage(this.panel1.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0); 
      } 
 
}

J'aimerais si possible qu'on m'éclaire (pas trop, il fait deja bien chaud : ) ) au niveau de la déclaration. (les convertisseurs de code ne donnant pas grand chose.
En effet, à quoi correspondent les "0x2" et "0xA1" ?
Et comment traduire le DLL Imports

Merci d'avance.

[guitoux1]

private const int HTCAPTION = 0x2;
private const int WM_NCLBUTTONDOWN = 0xA1;

Ce sont les valeurs des constantes en hexa (en fin je crois)

Et comment traduire le DLL Imports

Je connais pas trop VB.Net mais tout ce qui change je crois entre C# et VB.Net au niveaux des attributs c'est les "[" et "]" qui se transforment en "<" et ">".
A vérifier mais je penses que c'est ça

[Nico-xs]

Ok pour l'hexa, c'est visiblement ca et ca passe en mettant

Code :

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

= Hex("0x2")

Maintenant je n'arrive vraiment pas a traduire les fonctions

Code :

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

1
2
3
4
5
[DllImport("User32.dll")] 
public static extern bool ReleaseCapture(); 
 
[DllImport("User32.dll")] 
public static extern int SendMessage(IntPtr hWnd, int Msg, int wParam, int lParam);

(C'est bien < > à la place de [ ])
Merci guitoux

[Nico-xs]

J'ai réussi à régler le problème.

Je met la source au cas ou ca puisse servir à quelqu'un.

(Ne pas oublier de faire l'imports de System.Runtime.InteropServices)

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
#Region "API - Deplacement du panel"
    Private Const HTCAPTION As Integer = 2
    Private Const WM_NCLBUTTONDOWN As Integer = 161
 
 
    <DllImport("User32.dll")> _
    Public Shared Function ReleaseCapture() As Boolean
    End Function
 
    <DllImport("User32.dll")> _
   Public Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    End Function
 
    Private Sub pnlNouvelleAct_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlNouvelleAct.MouseDown
        ReleaseCapture()
        SendMessage(Me.pnlNouvelleAct.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0)
    End Sub
#End Region

[b_lob]

Merci ca m'a bien aidé !! Eventuellement saurais tu quelles sont les fonctions a importer pour gerer le docking du panel ?

Merci !