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
| Option Explicit
Private Sub Form_Load()
Me.ScaleMode = vbPixels
Picture1.ZOrder (1)
Picture1.ScaleMode = vbPixels
Picture1.AutoSize = True
'adapter, image de 4556 pixels de large par 1321 pixels de haut
Picture1.Picture = LoadPicture("C:\PersoFrancis\Montage.jpg")
Picture1.Move 22, 22
HScroll1.Move 22, 4, Me.ScaleWidth - 40, 17
VScroll1.Move 4, 22, 17, Me.ScaleHeight - 40
End Sub
Private Sub Form_Activate()
HScroll1.Value = HScroll1.Max
VScroll1.Value = VScroll1.Max
End Sub
Private Sub Form_Resize()
If Me.WindowState <> vbMinimized Then
HScroll1.Move 22, 4, Me.ScaleWidth - 40, 17
HScroll1.Max = Picture1.ScaleWidth + (VScroll1.Left + VScroll1.Width)
HScroll1.Min = Me.ScaleWidth - (VScroll1.Left + VScroll1.Width)
VScroll1.Move 4, 22, 17, Me.ScaleHeight - 40
VScroll1.Max = Picture1.ScaleHeight + (HScroll1.Top + HScroll1.Height)
VScroll1.Min = Me.ScaleHeight - (HScroll1.Top + HScroll1.Height)
End If
End Sub
Private Sub HScroll1_Change()
Picture1.Left = (HScroll1.Value - Picture1.ScaleWidth)
End Sub
Private Sub HScroll1_Scroll()
HScroll1_Change
End Sub
Private Sub VScroll1_Change()
Picture1.Top = (VScroll1.Value - Picture1.ScaleHeight)
End Sub
Private Sub VScroll1_Scroll()
VScroll1_Change
End Sub |