Fareyi Resim üzerine Taşıyıp Resmi Büyütmek

M_Kemal_Askeri · 27-09-2019, 18:41

Herkese selam,

Arkadaşlar ben bir form üzerinde gösterdiğim resimleri üzerine Fare imlecini getirdiğimde resim büyüsün, imleci çektiğimde normal boyutuna dönsün istiyorum.
resimler "Tbl_Emlak_Resimleri" tablosu üzerine "Frm_Dosya_Fotograf_Ekle" formu ile link olarak ekleniyor. "Frm_Dosya_Fotograf_Goster" formu ile de birden fazla fotoğraf sıra ile olarak gösteriliyor. Fotoğraflar fotograf isimli bir alana kayıtlı.

Bu bahsettiğim büyütme ve küçültmeyi nasıl yapabilirim? DoCmd.Movesize metodunu denedim ama çalışmadı...

teşekkür ederim...

Taruz · 27-09-2019, 20:28

(27-09-2019, 18:41)M_Kemal_Askeri demiş ki: Herkese selam,

Arkadaşlar ben bir form üzerinde gösterdiğim resimleri üzerine Fare imlecini getirdiğimde resim büyüsün, imleci çektiğimde normal boyutuna dönsün istiyorum.
resimler "Tbl_Emlak_Resimleri" tablosu üzerine "Frm_Dosya_Fotograf_Ekle" formu ile link olarak ekleniyor. "Frm_Dosya_Fotograf_Goster" formu ile de birden fazla fotoğraf sıra ile olarak gösteriliyor. Fotoğraflar fotograf isimli bir alana kayıtlı.

Bu bahsettiğim büyütme ve küçültmeyi nasıl yapabilirim? DoCmd.Movesize metodunu denedim ama çalışmadı...

teşekkür ederim...

Selamlar..

İmleç ile bunu yapmak uygulamanızı yorar bence.. Ben olsam bir düğme ya da yine tıklanabilecek bir denetim üzerinden uygulardım.. Resim kutusunun width ve height değerlerini artırıp eksilterek bunu yapabilirsiniz..

İmleçle ise mousemove olayında kullanabilirsiniz.. Büyütmek için resmin, küçültmek içinse formun ayrıntısı kullanılabilir..

halily · 27-09-2019, 23:21

aşağıdaki kodları formunuza ekleyip dener misiniz?
Resim0=resim kutusunun ismi
genişlikleri, yükseklikleri ve fare tekerini döndürürken ki büyüme oranları rasgele verdim kendi ihtiyacınıza göre değiştirirsiniz

Visual Basic
Dim Buyut As Integer
Private Sub Resim0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 If Buyut = 0 Then Buyut = 1
End Sub
Private Sub Ayrıntı_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Buyut = 0 Then Exit Sub
 Buyut = 0
 Resim0.Width = 6000
 Resim0.Height = 5000
End Sub
 
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
If Buyut = 0 Then exit sub
    If (Resim0.Width > 5000 And Count < 0) Then ' 5000 piksten küçük olamaz
        Resim0.Width = Resim0.Width * (1 + 0.1 * Count)
        Resim0.Height = Resim0.Height * (1 + 0.1 * Count)
    ElseIf (Resim0.Width < 12000 And Count > 0) Then '12000den büyük olamaz 
        Resim0.Width = Resim0.Width * (1 + 0.1 * Count)
        Resim0.Height = Resim0.Height * (1 + 0.1 * Count)
    End If
 
End Sub

M_Kemal_Askeri · 28-09-2019, 00:51

Sayın taruz ve halily hocalarım,

her ikinize de teşekkür ederim. Vermiş oldugunuz tavsiye ve kodları denedim. Resim büyüyor ancak resim kutusu içerisinde sağa sola, aşağı yukarı da hareket ediyor. Resim kutusu ölçüleri sabit olduğu sürece büyüme işlemi zaten istediğim sonucu da vermedi. Sanırım ben yanlış bir değerlendirme içine girdim. Benim maksadım, internette beyaz eşya firmalarının sayfalarına girildiğinde büyüteci ürün fotoğrafının üzerine getirdiğimizde veya varsa BÜYÜT butonuna basıldığında ekrandaki ürün fotoğrafı nasıl büyüyorsa ben de öyle istedim (yani Resim0 kutusunun dışına çıksın istedim Smile

. Ama sanırım zaten bunun için en azından fotoğrafların çözünürlüğü boyutu aynı olması lazım ki istenilen sonuca varılabilsin. Bendeki fotoğraflar değişik boyutlarda bu da uygun sonucları vermiyor. Ben bu işin üzerinde biraz daha çalışacağım. Sıkışırsam yine geleceğim yer sizin kapınız Smile

Saygılarımla...
Keep smiling...

halily · 28-09-2019, 16:22

aslında Windows'un kendi büyüteci var bir şekilde onu çağırabilsek sorun kalmayacak
büyüteç "windows tuşu" + "+" ile çağrılabiliyor ama "sendkey" ile halledemedim
"windows tuşu" nasıl çağrılır bulamadım

dsezgin · 29-09-2019, 06:49

Yeni bir kenarsiz form ile Form-icindeki-elemanlarin-form-boyutuyla-birlikte-boyutlanmasi Sn Berkan Öztürk'un konusu ile birlestirilerek, istenene ulasilabilirsiniz.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[RAPOR] Formdan Rapora Resim Aktarma	Pasham	7	738	02-06-2024, 00:41 Son Mesaj: Pasham
	[FORM] Acess Forma Resim Koyma	Pasham	14	1.053	25-05-2024, 03:02 Son Mesaj: dsezgin
	Resim Işaretleme Ve Raporlama	burhanb	1	311	06-03-2024, 11:26 Son Mesaj: dsezgin
	Sürekli Formda Kayda Uygun Resim Ekleme	yahyamacit	2	461	18-11-2023, 10:56 Son Mesaj: yahyamacit
	[VBA] Web Den Resim Linklerini Alma	hedefkaya	4	483	12-11-2023, 02:32 Son Mesaj: dsezgin
	[VBA] Sharepoint'e Resim Atabilme	benuva	1	348	10-08-2023, 18:07 Son Mesaj: dsezgin
	[RAPOR] Web Linkleri Ile Raporde Resim Görüntüleme	hedefkaya	2	440	28-03-2023, 13:47 Son Mesaj: hedefkaya
	Tablodaki Alana Resim Kopyalama	Erbil36	3	531	28-02-2023, 12:44 Son Mesaj: dsezgin

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL