resimleri image nesnesinin boyutuna donusturme?

[Kemal Demir]

Arkadaslar Merhaba,

Private Sub CommandButton3_Click()
On Error Resume Next
TextBox1 = ""
TextBox1 = "C:\MyDownloads\resim\"
TextBox2.Value = TextBox2.Value + 1
TextBox1 = TextBox1.Value & TextBox2 & ".jpg"
Image1.Picture = LoadPicture(TextBox1.Text)
Image1.PictureAlignment = fmPictureAlignmentCenter
Image1.PictureSizeMode = fmPictureSizeModeStretch

End Sub

Arkadaslar Yukarıdaki kodda anlasıldıgı gibi ilgili "C:\MyDownloads\resim\" dosyadan userform üzerine monte edilmiş bir image nesnesınden görüntülüyorum.

Sizlerden Öğrenmek istediğim durum;

1.jpg dosyasının Boyutları

Width=350
Height=500


Form Üzerindeki İmage nesnesının Boyutu ise

Height=240
Width=162

Resim Dosyalarının Boyutu ne olursa olsun İmage nesnesine göre resmi oturtabilirmiyiz.

Umarım İstediğim durumu size Açıklayacı bir şekilde anlatmısımdır.

NOT:Image1.PictureSizeMode = fmPictureSizeModeStretch
Yukarıdaki Gibi Durumu Stretch etmeden ölçülü küçültmemiz söz konusumudur.

Teşekkürederim Arkadaşlar.