Discussion :

[Ehjoe]

Bonjour,

Savez-vous comment déplacer une form sans bandeau en vbNet ?

En plus j'ai un autre problème, la form se colle dans le coin origine, alors que je lui dis de se mettre au milieu de l'écran ?

Je joins la source zipée (si sa passe) pour ceux qui ont une éditeur vbNet...

Voici mon code, tout se passe dans les Load puis dans les Mouse...

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
 
' form 4 :  ' flash
Option Explicit On
Public Class Form4
 '
 '---Début API SetWindowPos
 Private Declare Function SetWindowPos Lib "User32" _
    (ByVal hWnd As Int32, _
    ByVal hWndInsertAfter As Int32, _
    ByVal X As Long, ByVal Y As Int32, _
    ByVal cx As Long, ByVal cy As Int32, _
    ByVal wFlags As Long) As Int32
 Private Const HWND_TOPMOST = -1
 Private Const SWP_NOSIZE = &H1
 Private Const SWP_NOMOVE = &H2
 Private Const SWP_SHOWWINDOW = &H40
 Const Flags = &H2 Or &H1 Or &H40 Or &H10
 '---fin API SetWindowsPos
 '
 Dim passe As Long
 Dim deplace As Boolean
 Dim r As Long
 
 
 Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  deplace = False
  passe = 1
  Timer1.Interval = 30
  Timer1.Enabled = True
  r = SetWindowPos(Me.Handle, -1, 0, 0, 0, 0, Flags) ' toujours visible
  My.Application.DoEvents()
  Me.StartPosition = FormStartPosition.CenterScreen
 End Sub
 
 
 Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  Select Case passe Mod 2
   Case 0, 2, 4, 6, 8, 10, 12, 14, 15, 18, 20, 22, 24 : Me.BackColor = Color.Black
   Case 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50 : Me.BackColor = Color.Black
   Case 1, 3, 5, 7, 9 : Me.BackColor = Color.Red
   Case 11, 13, 15, 17, 19 : Me.BackColor = Color.Green
   Case 21, 23, 25, 27, 29 : Me.BackColor = Color.Blue
   Case 31, 33, 35, 37, 39 : Me.BackColor = Color.Yellow
   Case 41, 43, 45, 47, 49 : Me.BackColor = Color.White
  End Select
  passe = passe + 1
  If passe > 50 Then passe = 0
 End Sub
 
 
 Sub Form4_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClick
  deplace = False
  Timer1.Enabled = False ' fin
  Me.Close()
 End Sub
 
 
 Sub Form4_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
  deplace = True
 End Sub
 
 
 Sub Form4_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
  If e.Button <> Windows.Forms.MouseButtons.Left Or deplace = False Then Exit Sub
  deplace = True
  My.Application.DoEvents()
  Me.Left = e.X - 5 ' form = 10 * 10 pixels
  Me.Top = e.Y - 5
  Me.Refresh()
 End Sub
 
 
 Sub Form4_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
  If deplace = True Then
   My.Application.DoEvents()
   Me.Left = e.X - 5
   Me.Top = e.Y - 5
   Me.Refresh()
  End If
  deplace = False
 End Sub
 
 
 Sub Form4_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
  r = SetWindowPos(Me.Handle, -2, 0, 0, 0, 0, Flags) ' n'est plus toujours visible
  Form1.laform(2) = False
  Form1.laform(3) = False
  Form1.laform(4) = False
 End Sub
 
End Class

En vous remerciant, cordialement.

[Graffito]

Bonjour,

Il faut faire dans l'event MouseMove quelquechose comme:

Code :

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

1
2
3
4
5
6
7
 
Point MousePosition = System.Windows.Forms.Control.MousePosition;
int DeltaX = MousePosition.X - PrevMousePosition.X;
int DeltaY = MousePosition.Y - PrevMousePosition.Y;
MyForm.SetDesktopLocation(MyForm.Location.X+DeltaX, MyForm.Location.Y+DeltaY);
PrevMousePosition.X = PrevMousePosition.X + DeltaX; 
PrevMousePosition.Y = PrevMousePosition.Y + DeltaY;

Dans le MouseDown, on aura initialisé PrevMousePosition:

Code :

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

1
2
 
PrevMousePosition = System.Windows.Forms.Control.MousePosition;

[tomlev]

pour placer la form au centre, il faut initialiser StartPosition avant le Load (dans le constructeur par exemple, ou directement dans le designer)

A quoi sert l'appel à SetWindowPos ? qu'est-ce que tu cherches à faire que tu ne pourrais pas faire directement avec les méthodes et propriétés de la Form ?

Pour déplacer une fenêtre sans bordure, tu peux utiliser ce composant (également disponible dans la librairie Dvp.NET)

[Ehjoe]

pour placer la form au centre, il faut initialiser StartPosition avant le Load (dans le constructeur par exemple, ou directement dans le designer)

A quoi sert l'appel à SetWindowPos ? qu'est-ce que tu cherches à faire que tu ne pourrais pas faire directement avec les méthodes et propriétés de la Form ?

Pour déplacer une fenêtre sans bordure, tu peux utiliser ce composant (également disponible dans la librairie Dvp.NET)

Bonjour,

Merci, je vais voir pour le DragMachin... je ne connais pas, mais ton exemple est en C ,(# ?).

Avec l'API je veux mettre au premier plan et toujours au premier plan de toutes les applications.

Pour startPositon, as-tu un exemple qui tourne et l'endroit exact où je dois le mettre ?

Le "designer", c'est quoi ? Sont-ce les propriétés de forms, dans ce cas il est déjà à "center" (en plus de la form).

Au plaisir, cordialement.

Joe.

Bonjour,

Il faut faire dans l'event MouseMove quelquechose comme:

Code :

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

1
2
3
4
5
6
7
 
Point MousePosition = System.Windows.Forms.Control.MousePosition;
int DeltaX = MousePosition.X - PrevMousePosition.X;
int DeltaY = MousePosition.Y - PrevMousePosition.Y;
MyForm.SetDesktopLocation(MyForm.Location.X+DeltaX, MyForm.Location.Y+DeltaY);
PrevMousePosition.X = PrevMousePosition.X + DeltaX; 
PrevMousePosition.Y = PrevMousePosition.Y + DeltaY;

Dans le MouseDown, on aura initialisé PrevMousePosition:

Code :

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

1
2
 
PrevMousePosition = System.Windows.Forms.Control.MousePosition;

Bonjour, merci, je vais voir ça, cordialement; Joe

[tomlev]

Merci, je vais voir pour le DragMachin... je ne connais pas, mais ton exemple est en C ,(# ?).

Tu n'as pas besoin de connaitre C#, prend juste la DLL et ajoute la en référence de ton projet. Ensuite tu as juste à poser le composant DragMoveProvider dans le designer, et à mettre la propriété EnableDragMove à true

Le "designer", c'est quoi ?

Euh... ben le concepteur graphique, je suppose que tu codes pas tes Forms entièrement à la main ?

[chrismonoye]

Bonsoir,
pour le premier plan, la propriété du formulaire "TopMost" égale à vrai, ne suffit t'elle pas ?

[Ehjoe]

Bonsoir,
pour le premier plan, la propriété du formulaire "TopMost" égale à vrai, ne suffit t'elle pas ?

Bonsoir,

En réponse, merci, mais "non", TopMost je crois ne concerne que la form et non l'application en entier, mais cet API utilisée fonctionne très bien.

Cordialement.

Joe.
.

Bonjour,

Merci à tous, c'est résolu :

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
43
44
45
46
47
48
49
50
 
 Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Me.Left = (My.Computer.Screen.Bounds.Width / 2) - (Me.Width / 2)
    Me.Top = (My.Computer.Screen.Bounds.Height / 2) - (Me.Height / 2)
    DeplacementDeForm.RendreMobile(Me) ' appel de la classe
  End Sub
'---------
Public Class DeplacementDeForm
  Public Shared Sub RendreMobile(ByVal frm As Form)
    Dim c As New DeplacementDeForm(frm, frm)
  End Sub
 
 
  Public Shared Sub RendreMobile(ByVal frm As Form, ByVal control As Control)
    Dim c As New DeplacementDeForm(frm, control)
  End Sub
 
 
#Region "Variables privée"
  Private m_ClickPoint As Point
  Private m_Control As Control
  Private m_Frm As Form
#End Region
 
 
#Region "Création"
  Public Sub New(ByVal frm As Form, ByVal control As Control)
    m_Frm = frm
    m_Control = control
    AddHandler m_Control.MouseDown, AddressOf _MouseDown
    AddHandler m_Control.MouseMove, AddressOf _MouseMove
  End Sub
#End Region
 
 
#Region "Methodes"
  Sub _MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
    m_ClickPoint = New Point(e.X, e.Y)
  End Sub
 
 
  Sub _MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)
    If (e.Button = MouseButtons.Left) Then
      Dim p As Point = m_Frm.Location
      m_Frm.Location = New Point(p.X - m_ClickPoint.X + e.X, p.Y - m_ClickPoint.Y + e.Y)
    End If
  End Sub
#End Region
 
End Class ' DeplacementDeForm

Cordialement.