Monico9385
Messages postés279Date d'inscriptionlundi 29 mars 2004StatutMembreDernière intervention 6 août 2007
-
7 oct. 2004 à 19:58
Flachy Joe
Messages postés2103Date d'inscriptionjeudi 16 septembre 2004StatutMembreDernière intervention21 novembre 2023
-
10 oct. 2004 à 17:05
Bah voila, pour mon logiciel j'ai besoin que ma borderstyle de la form soit a 0, mais on ne peut pas la bouger apres. Comment puis je faire???
Flachy Joe
Messages postés2103Date d'inscriptionjeudi 16 septembre 2004StatutMembreDernière intervention21 novembre 20231 8 oct. 2004 à 10:07
Déplacement de la fenêtre en click_droit déplaceùment à partir de n'importe quel point.
Le Scaletype doit être en pixel
Dim deplX As Long, deplY As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
'debut du déplacement deplX X: deplY Y
tm_mov.Enabled = True
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'fin du déplacement
tm_mov.Enabled = False
End Sub
Private Sub tm_mov_Timer()
Dim pt As POINTAPI
GetCursorPos pt
pt.X = pt.X * Screen.TwipsPerPixelX
pt.Y = pt.Y * Screen.TwipsPerPixelY
Move pt.X - deplX, pt.Y - deplY
End Sub
tm_move est un timer dont le pas de temps doit être assez faible pour ne pas avoir un déplacement saccadé, l'api getcursorpos et le type PointApi doivent être définient dans un module.
Monico9385
Messages postés279Date d'inscriptionlundi 29 mars 2004StatutMembreDernière intervention 6 août 2007 8 oct. 2004 à 13:52
Merci. Mais comment on fait pour declarer une api?
Et sinon tu parles de bouger la form avec un clic droit, moi je veux le faire avec le gauche. C'est pareil???
Sinon pour repondre a Neo.balastik, qund je dis bouger, c'est deplacer la form.