prog220
یک شنبه 23 آبان 1389, 14:45 عصر
سلام دوستان این تابع که در زیر برای شما گذاشتم خاصیت Stretch را به picturebox اضافه میکند تا عکس بصورت مناسب دیده شود
Sub picStrech()
Picture1.Picture = Image1(1).Picture
Picture1.ScaleMode = 3
Picture1.AutoRedraw = True
Picture1.PaintPicture Picture1.Picture, _
0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, _
0, 0, _
Picture1.Picture.Width / 26.46, _
Picture1.Picture.Height / 26.46
Picture1.Picture = Picture1.Image
End Sub
Sub picStrech()
Picture1.Picture = Image1(1).Picture
Picture1.ScaleMode = 3
Picture1.AutoRedraw = True
Picture1.PaintPicture Picture1.Picture, _
0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, _
0, 0, _
Picture1.Picture.Width / 26.46, _
Picture1.Picture.Height / 26.46
Picture1.Picture = Picture1.Image
End Sub