Bonjour!
Je recherche un programme talentueux pr repondre a ce problème:
J'ai une form avec borderstyle: NONE
et en fait je voudrai simuler le resize (quand on se met sur un bord la souris change de curseur et alors on peut la déplacer pour agrandir ou rétrécir la form)
Pour simuler le bord j'ai mis un label. J'essaie dans un premier temps de le faire pour le bord gauche et en plus ca marche mais il reste un problème que je n'arrive pas a résoudre :
Je voudrai limité le rétrécisement de la fenetre pour qu'il ne sois pas inférieur a une certainre valeur. Je voudrais que la largeur de la fenetre ne sois jamais inférieur a 500 et donc qu'on ne puisse pas la rétrécir plus. Mais je n'y arrive pas donc je me remet a vous la communauté VB6.0.
Je vous met mon code :
'Elargir les bords
Private Down As Integer, DepartX As Integer, DepartY As Integer
Private Sub Form_Load()
Form1.Width = 1000
Form1.Height = 1000
Label1.Top = 0
Label1.Left = 0
Label1.Height = 1000
Label1.Width = 25
End Sub
Private Sub label1_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
MousePointer = 9
If Down = True And Button = 1 Then
If x > DepartX Then
Form1.Left = Form1.Left + Abs((x - DepartX))
Form1.Width = Form1.Width - Abs((x - DepartX))
ElseIf x < DepartX Then
Form1.Width = Form1.Width + Abs((x - DepartX))
Form1.Left = Form1.Left - Abs((x - DepartX))
End If
End If
End Sub
Private Sub form_mousemove(Button As Integer, Shift As Integer, x As Single, Y As Single)
MousePointer = 0
End Sub
Private Sub label1_mousedown(Button As Integer, Shift As Integer, x As Single, Y As Single)
Down = True
DepartX = x
DepartY = Y
End Sub
Private Sub label1_mouseup(Button As Integer, Shift As Integer, x As Single, Y As Single)
Down = False
End Sub
Voila merci bcp !!!
A++++