VB NET 2003 Drag +Form + borderstyle = none + Impossible???????Résolu

Question

Bonjour tout le monde.
Apr&#232;s des heures de recherche sur le net dans les forums les sources... je fait enfin appel a vous!
Voila mon probl&#232;me je voudrais que, lorsque je clique ds ma form n'importe ou et que je laisse le bouton gauche enfonc&#233;, ma form bouge en meme temps que ma souris. Cela parait tout b&#234;te en effet mais pour avoir un effet parfaitement fluide sans bavure je gal&#232;re alors voici mon code( j'ai essayer d'adapter un code vb6 en vb net car la converstion automatique merde (il y a des choses que vb net ne comprend pas et que vb 6 comprenait))
'D&#233;claration
Dim curx 
As 
Double



Dim cury 
As 
Double



Dim curxinst 
As 
Double



Dim curyinst 
As 
Double



Dim winx 
As 
Double



Dim winy 
As 
Double


'Commencement du code (ne pas tenir compte des labels



Private 
Sub Form1_MouseDown(
ByVal sender 
As 
Object, 
ByVal e 
As System.Windows.Forms.MouseEventArgs) 
Handles 
MyBase.MouseDown


curx = Cursor.Position.X


cury = Cursor.Position.Y


winx = 
Me.Left


winy = 
Me.Top



Me.DoDragDrop(
Me, DragDropEffects.Move)



End 
Sub



Private 
Sub Form1_DragOver(
ByVal sender 
As 
Object, 
ByVal e 
As System.Windows.Forms.DragEventArgs) 
Handles 
MyBase.DragOver



Me.SetDesktopLocation(
Me.Left + (curxinst - curx), 
Me.Top + (curyinst - cury))



End 
Sub



Private 
Sub Timer1_Tick(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Timer1.Tick


Label1.Text = "X:" & Cursor.Position.X & " Y:" & Cursor.Position.Y


curxinst = Cursor.Position.X


curyinst = Cursor.Position.Y


Label2.Text = "X:" & 
Me.Left & " Y:" & 
Me.Top



End 
Sub



Private 
Sub Form1_Load(
ByVal sender 
As 
Object, 
ByVal e 
As System.EventArgs) 
Handles 
MyBase.Load


Timer1.Interval = 1


Timer1.Start()



End 
Sub



Private 
Sub Button1_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Button1.Click



Me.SetDesktopLocation(0, 0)



End 
Sub


Voila merci de bien vouloir analyser cela pour moi et de me faire part de vos propositions (si possible une source tte b&#234;te avec une form et le code pour la faire bouger)
Sinon ne tenez pas compte des labels c pour faire des tests enfin bref laiC tomB ca :P

Vincent ;)

neo022 · Accepted Answer

J'ai retravailler un peu le code voici ce que ca donne et ca marche :P


'System.Drawing.Point sert a relev&#233; un point dans l'espace de coordonn&#233;e (X,Y)



Private PtClick 
As System.Drawing.Point



Private 
Sub Form1_MouseDown(
ByVal sender 
As 
Object, 
ByVal e 
As System.Windows.Forms.MouseEventArgs) 
Handles 
MyBase.MouseDown



'Ici on utilise la variable attribuer au MouseEventArgs (qui sert a tout les ev&#234;nements qui requiert la souris je pensse



'on v&#233;rifie que le bouton enfoncer est bien le bouton de gauche



'puis on attribue des coordonn&#233;es a ptclick. Ces coordonn&#233;es sont les coordonn&#233;es en X et en Y de la souris d'ou e.X et e.Y



If e.Button = Windows.Forms.MouseButtons.Left 
Then PtClick = 
New System.Drawing.Point(e.X, e.Y)



End 
Sub



Private 
Sub Form1_MouseMove(
ByVal sender 
As 
Object, 
ByVal e 
As System.Windows.Forms.MouseEventArgs) 
Handles 
MyBase.MouseMove



'Ici on dit que si la souris bouge sur la forme et que le bouton gauche est appuy&#233;



If e.Button = Windows.Forms.MouseButtons.Left 
Then



'alors la form appel&#233; Mybase va changer de "location" donc aura de nouvelle coordonn&#233;e donc New System.Drawing.point



'et la c'est l'&#233;quation pour modifier sans bavure la position de la fenetre soir



'position de la form au coingauche en X + (la position de la souris actuel en X - la position de la souris en X au premier clique)



'position de la form au coinhaut en Y + (la position de la souris actuel en Y- la position de la souris en Y au premier clique)



MyBase.Location = 
New System.Drawing.Point(
MyBase.Left + (e.X - PtClick.X), 
MyBase.Top + (e.Y - PtClick.Y))



End 
If



End 
Sub


Merci bcps Charles en plus je pense avoir compris tout le code (ps si dans mes commentaire je me suis plant&#233; n'h&#233;siter pas a me le dire :P) .
Je pensais qu'il fallais obligatoirement paC par un drag c pour ca que je me suis aussi embrouill&#233;
Vincent ;)

Utilisateur anonyme · Answer

Bonjour,

J'ai pas trop regarder le code mais je vois que tu fais quelque chose de fort bien compliqu&#233;.
Celui l&#224; devrai faire ce que tu veut en plus simple.

Private PtClick As System.Drawing.Point
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown  If e.Button Windows.Forms.MouseButtons.Left Then PtClick e.Location
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
  If e.Button = Windows.Forms.MouseButtons.Left Then
    MyBase.Location = New System.Drawing.Point(MyBase.Left + (e.X - PtClick.X), MyBase.Top + (e.Y - PtClick.Y))
  End If
End Sub

Kenji
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

neo022 · Answer

Oki merci pour le code! Cela dit le e.lovation il ne le reconnais pas cela doit venir du fait que tu dois avoir la version 2005 et que moi j'ai que la version 2003 voici les option qu'il me propose : 


e.(b utton or cliks or  delta or empty or gettype or X or Y)
aussi stp pourais tu expliquer les ligne de ton code avec les byval je comprend pas grand chose je suis d&#233;butant de plus j'apprend un peu tout seul donc c pas facile :P merci d'avance!

Vincent ;)

Utilisateur anonyme · Answer

Attention MyBase n'est pas le nom de la Form mais l'obejet qu'h&#233;rit&#233; la classe (donc, ici c'est bien la Form, mais ca aurait tr&#232;s bien pu &#234;tre autre chose)

Kenji
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

neo022 · Answer

On aurais pu mettre me a la place de mybase comme ca on est sur! :P

Vincent ;)

Utilisateur anonyme · Answer

Non plus

Je parle bien de ce commentaire
'alors la form appel&#233; Mybase va changer de "location" ...

Mybase renvoie l'obejet qu'h&#233;rite la classe
MyClass renvoie tout ce que la classe contient sauf l'obejet qui l'h&#233;rite
Me renvoie les deux (MyBase et MyClass)

Donc dans le code, tout est bon.
Mais le commentaire aurait du &#234;tre
'alors la form appel&#233; Form1 va changer d'emplacement ...

Donc pour r&#233;sumer, il est pr&#233;f&#233;rable d'utiliser MyBase et MyClass que Me (histoire qu'on s'y retrouve mieux) mais ce n'est pas obligatoire.

Kenji
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

VB NET 2003 Drag +Form + borderstyle = none + Impossible???????

6 réponses

Discussions similaires