Resmi Büyült & Küçült

[ZorBey_]

Merhaba İyi Çalışmalar

Resim Büyültme Veya Küçültmede
Yardımınızı Rica Ediyorum

Şöyleki Form Açıldığında Resimler Normal Geliyor
Resmi Büyüt Butonunu Tıkladığımda
Resmi Yüzde 10 Oranında Büyültsün Zoom Yapsın
Eğer Resim Büyüt Butonunu Bir Daha Tıklarsam
İlk Açılışa Göre Yüzde 20 Büyültmüş Olmalı
Yani Her Tıklamada Yüzde 10 Arttırarak
Resmi Büyültmeli
Ayni Şekilde Resmi Küçült Butonu Tıklandığında
Her Tıklamada Yüzde 10 Oranında
Resmi Küçültmeli
Şimdiden Teşekkür Ederim
İyi Çalışmalar.

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton2_Click()
Me.Image1.Height = Me.Image1.Height * 1.1
Me.Image1.Width = Me.Image1.Width * 1.1
End Sub

Private Sub CommandButton3_Click()
Me.Image1.Height = (Me.Image1.Height) - (Me.Image1.Height * 0.1)
Me.Image1.Width = (Me.Image1.Width) - (Me.Image1.Width * 0.1)
End Sub

 

[ZorBey_]

Merhaba
Sayın Orion1
İlgilendiğiniz İçin
Çok Teşekkür Ederim
Burada Bir Sorun oluştu
Şöyle Her Büyütme Ve Küçültmede
Image1 De Büyüyor Veya Küçülüyor
Image1 İlk Açıldığındaki Boyutu İle
Kalmalı İçindeki Resim Yakınlaşmalı
Veya Uzaklaşmalı
Rica Etsem Tekrar Bakabilirmisiniz
Teşekkür Ederim
İyi Çalışmalar.

 

[Orion1]

Merhaba
Sayın Orion1
İlgilendiğiniz İçin
Çok Teşekkür Ederim
Burada Bir Sorun oluştu
Şöyle Her Büyütme Ve Küçültmede
Image1 De Büyüyor Veya Küçülüyor
Image1 İlk Açıldığındaki Boyutu İle
Kalmalı İçindeki Resim Yakınlaşmalı
Veya Uzaklaşmalı
Rica Etsem Tekrar Bakabilirmisiniz
Teşekkür Ederim
İyi Çalışmalar.

Özelliklerine baktım maalesef böyle bir özellik göremedim,İmage nesnesi için.
Bekleyelim bakalım biraz ,belki yapan arkadaş çıkar.

 

[ZorBey_]

Merhaba
Sayın Orion1
Çok Sağolun
İlgilenmeniz Ve Çok Kısa Bir
Zamanda Cevapladığınız İçin
Çok Teşekkür Ederim
Allah Razı Olsun
İyi Çalışmalar.