Changer taille d'un control au runtime avec souris

wico2002 Messages postés 71 Date d'inscription mardi 8 janvier 2002 Statut Membre Dernière intervention 19 octobre 2012 - 2 déc. 2003 à 14:59
cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 - 2 déc. 2003 à 17:43
Désoler dans mon dernier message j'ai opublier de préciser avec la souris.

Je veux changer la taille d'un controle (label ou textbox)pendant l'execution en cliquant dessus et en glissant la souris...

Merci
wico2002

1 réponse

cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 9
2 déc. 2003 à 17:43
Voici unemothode pour modifier la taille d'un control
de maniere dynamique :
(ex. avec un commandbutton)

Option Explicit

Private Moving As Boolean

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Moving = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If Moving Then
Command1.Width = X - Command1.Left
Command1.Height = Y - Command1.Top
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Moving = False
End Sub

@+

E.B.
0