[VB6]Redimmenssionnent d'un controle à la souris??

Question

Bonjour, 

Je travail sur un outil permettant de deplacer des controle dans une picturebox. J'aimerai pouvoir redimmensionner ces controles via la souris. 
Lorsque ma souris survol les extr&#233;mit&#233;s d'un control, je change le curseur en fl&#232;che. J'arrive &#224; redimmensionner un control &#224; partir de l extremit&#233; droite et de l'extr&#233;mit&#233; du bas. Mais pour les deux autres, je dois jou&#233; avec le Left pour l extremit&#233; gauche et Top pour lextr&#233;mit&#233; du dessus. 

Le probl&#232;me , &#224; partir de ces 2 extr&#233;mit&#233;, si je veux les retr&#233;cir et que je bouge la souris rapidement, le contr&#244;le se d&#233;place... :s 

Merci de votre aide  

++

ScSami · Answer

Ben a toi de cr&#233;er une variable pour bloquer &#231;a.

Par exemple :

Dim varAntiBouger As Boolean

Private Form_Load()
 varAntiBouger = False
End Sub

Private Sub Ev&#233;nement_Un()

 If varAntiBouger = True Then Exit Sub

 varAntiBouger = True
 ...
 'Ton code If x y Then varAntiBouger False: Exit Sub
 ...

 varAntiBouger = False

End Sub

Private Sub Ev&#233;nement_Deux()
 'Idem mais avec, pourquoi pas, une autre variable!

End Sub

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )<

[VB6]Redimmenssionnent d'un controle à la souris??

1 réponse

Discussions similaires