1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
|
Private Sub Redimmensionne(Etat As Integer)
Select Case Etat
Case 1:
CoeffReduc = CoeffReduc + 100
LongueurSurForm = 0
For a = 0 To i
Picture1(a).Cls
Picture1(a).AutoRedraw = True
If a = 0 Then
Picture1(a).PaintPicture Picture1(a), 0, 0, Picture1(a).Width - CoeffReduc, Picture1(a).Height - CoeffReduc, 0, 0, Picture1(a).Width, Picture1(a).Height
Else
Picture1(a).Move Picture1(a - 1).Left + Picture1(a - 1).Width, Picture1(a - 1).Top
Picture1(a).PaintPicture Picture1(a), 0, 0, Picture1(a).Width - CoeffReduc, Picture1(a).Height - CoeffReduc, 0, 0, Picture1(a).Width, Picture1(a).Height
End If
Picture1(a).AutoSize = True
Picture1(a).Width = Picture1(a).Width - CoeffReduc
Picture1(a).Height = Picture1(a).Height - CoeffReduc
Picture1(a).AutoRedraw = False
LongueurSurForm = LongueurSurForm + Picture1(a).Width
Next
' For a = 0 To i
' Picture1(a).Picture = Picture1(a).Image
' Next
Redimm = 2
Exit Sub
Case 2:
Picture1(i).Cls
Picture1(i).AutoRedraw = True
Picture1(i).Move Picture1(i - 1).Left + Picture1(i - 1).Width, Picture1(i - 1).Top
Picture1(i).PaintPicture Picture1(i), 0, 0, Picture1(i).Width - CoeffReduc, Picture1(i).Height - CoeffReduc, 0, 0, Picture1(i).Width, Picture1(i).Height
Picture1(i).Width = Picture1(i).Width - CoeffReduc
Picture1(i).Height = Picture1(i).Height - CoeffReduc
Picture1(i).AutoRedraw = False
LongueurSurForm = LongueurSurForm + Picture1(i).Width
End Select
End Sub |
Partager