t'enerve pa! voila un ptit code que je viens tou juste de faire pour toi!!! (a amélioré...) Alors tu prends une form avec une picturebox (picture1) en mode autoredraw=true, un Shape (shape1) en rectangle et en visible=false et tu colle tout ca dans la source:
Dim x0, y0
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x0 = X: y0 = Y
Shape1.Top = Y: Shape1.Left = X
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If Button = 1 Then
Shape1.Height = Y - y0
Shape1.Width = X - x0
Shape1.Visible = True
End If
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape1.Visible = False
Picture1.Line (x0, y0)-(X, Y), , B
End Sub
voila!!! comme ca grace au shape1 tu voit la forme de ton rectangle, et c'est franchement tres simple a comprendre (et a améliorer pasque qd même c'est fais en 2 sec...)
Allez, @+ et bonne prog!
AntiSlash
rem: la methode a Psycho est franchement pas terrible
|