Resim Büyütme

[yanginci34]

Arkadaşlar formdaki göre bildiğim bütün örnekleri inceledim ama istediğim şekilde birşey bulamadım. Userformun içinde çeşitli nesneler ( buton, listbox, textbox vb gibi ) var
ayrıca Image1 nesneside var ben Image1 nesnesine tıklayınca resimin boyutu userform kadar olsun ama sadece resimi göstersin userformda bulunan tüm nesneler gözükmesin ve yine tıklayınca eski halini alsın.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu kullanabilirsiniz. Kırmızı kısımdaki sayıları kendi Image1 nesnenize göre düzenleyiniz.
Dilerseniz bu kısım bir değişkene aldırılıp kullanılabilir.

Private Sub Image1_Click()
Image1.PictureSizeMode = 3
If Image1.Width = Me.Width Then
    With Image1
        .Left = 6
        .Top = 80
        .Width = 60
        .Height = 60
    End With
Else
    With Image1
        .ZOrder (fmTop)
        .Left = 0
        .Top = 0
        .Width = Me.Width
        .Height = Me.Height
    End With
End If
End Sub

 

[yanginci34]

Hocam elinize sağlık çok güzel tam istediğim gibi olmuş.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar diliyorum...