Private Sub Form_Activate() Me.ScaleMode = vbPixels Picture1.ScaleMode = vbPixels Picture1.Width = 16000 HScroll1.Max = Picture1.Width HScroll1.Value = 0 MsgBox "j'ai donc une image de " & Picture1.Width & " pixels" & vbCrLf & _ "soit de " & ScaleX(Picture1.ScaleWidth, Me.ScaleMode, vbCentimeters) & " centimètres" End Sub Private Sub HScroll1_Change() Picture1.Left = -HScroll1.Value End Sub Private Sub HScroll1_Scroll() HScroll1_Change End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPicture1.Picture = LoadPicture("D:\......bmp")
Image1.Picture = LoadPicture("D:\........bmp")
WIDTHINITIAL = Picture1.Width
HEIGHTINITIAL = Picture1.Height
FacteurZoom = 4.5
Image1.Height = HEIGHTINITIAL * FacteurZoom
Image1.Width = WIDTHINITIAL * FacteurZoom
SizeImage Picture1, Image1.Picture, Image1.Width, Image1.Height
HScrollBar1.Max = Picture1.Width - Picture3.Width
VScrollBar1.Max = Picture1.Height - Picture3.Height
Private Sub SizeImage(Picture As PictureBox, ImageSize As Picture, WidthImage As Single, HeightImage As Single)
Picture.Picture = LoadPicture("")
Picture.Width = WidthImage
Picture.Height = HeightImage
Picture.PaintPicture ImageSize, 0, 0, WidthImage, HeightImage
Picture.Refresh