userformdaki resmi büyült ve küçült

[orkuncan5]

Userforma eklenen resmi büyültme ve küçültme kodunu nasıl yaparız

 

[halit3]

Userforma eklenen resmi büyültme ve küçültme kodunu nasıl yaparız

Böyle birşeymi istiyorsunuz.

 

[orkuncan5]

Evet Halit Bey Güzel olmuş.Ellerinize sağlık.Acaba mause ile resmi tutup image1 içinde kaydırabilirmiyiz.

 

[halit3]

Bu seferde resmi mause ile büyütüp küçültüyor

 

[halit3]

Evet Halit Bey Güzel olmuş.Ellerinize sağlık.Acaba mause ile resmi tutup image1 içinde kaydırabilirmiyiz.

Excelde image nesnesinin bu olay yordamı yok.
yani Image1 e ait OLEDragDrop özelliği yok.

vb.6 da aşağıdaki gibi kodu yapınca çalışıyor.

 Private Sub Image1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, Y As Single)
 Image1.Picture = LoadPicture(Data.Files(1))
 End Sub

 

[1Al2Ver]

Sayın halit3 merhaba,

Paylaşımlar için teşekkürler.

 

[halit3]

Sayın halit3 merhaba,

Paylaşımlar için teşekkürler.

Teşekkürler iyi çalışmalar

 

[orkuncan5]

Halit Bey teşekkür ederim.Güzel çalışma olmuş.

 

[halit3]

Halit Bey teşekkür ederim.Güzel çalışma olmuş.

İyi çalışmalar

 

[orkuncan5]

Userforma resim ekleyip mause ile tutup büyütebiliyorum ama resmin hepsi userforma gelmediğinden resmin geriyekalan yerlerini görmek için mause ile tekrar tuttuğumda tekrardan küçülüyor ve diğer yerlerini göremiyorum.Yani resmi büyüttüp bıraktığımda resmin o haliyle kalarak tekrar tuttuğumda büyültmeye devam etmek istiyorum.

 

[halit3]

Userforma resim ekleyip mause ile tutup büyütebiliyorum ama resmin hepsi userforma gelmediğinden resmin geriyekalan yerlerini görmek için mause ile tekrar tuttuğumda tekrardan küçülüyor ve diğer yerlerini göremiyorum.Yani resmi büyüttüp bıraktığımda resmin o haliyle kalarak tekrar tuttuğumda büyültmeye devam etmek istiyorum.

Burada kodun işlevi resimi küçültmek veya büyütmük değil resim nesnesini yani image nesnesini büyütüp küçültmek yapılıyor.

Resimi tam göstermek için OptionButton seçenek düğmelerini tıklamalısınız.