resim boyut küçültme - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: resim boyut küçültme (/konu-resim-boyut-kucultme.html) |
resim boyut küçültme - brsknm - 21/01/2011 merhabalar benim sorum aslında visual basic ile alakalı ama oraya konu açamadım yetkiniz yok diyor resim byutları ile ilgili bir sıkımtım var aşağıdaki gibi printscreen resmini kaydediyorum ama buyut çok fazla 3 mb oluyor acaba bunu 300 kb kadar kodlarla kaydederken düşürebilirmiyim bir bilgisi olan varmı nette aradım aradım bulamadım yardımcı olursanız sevinirim ... Private Sub Command1_Click() Form1.Hide Sleep 200 DoEvents Call keybd_event(vbKeySnapshot, 0, 0, 0) DoEvents Sleep 200 Screenshot (Dir1.Path & "\" & Text1.Text + ".jpg") Form1.Show Text1.SetFocus End Sub Cvp: resim boyut küçültme - alpeki99 - 21/01/2011 Bu iş için activex bileşenlerini kullanabilirsiniz. Sadece boyut küçültmekle kalmayıp düzenleme vb. çok sayıda işlem yapabilirsiniz. Cvp: resim boyut küçültme - brsknm - 22/01/2011 activex bileşenlerini konusunu biraz açabilirmisiniz visual basic te daha yeniyim Cvp: resim boyut küçültme - alpeki99 - 22/01/2011 Uzantısı DLL veya OCX olan dosyalardır. Bu dosyalar sizin yapacağınız işleri hazır olarak yapmakta veya kolaylaştırmaktadır. Mesela resim boyutlandırmak için kod yazmanıza gerek kalmaz. Aynen buton özelliklerinden buton üzerindeki yazıyı, rengini vs. ayarladığınız gibi eklentinin özelliklerinden de ayarlar yapabilirsiniz. Eklenilen resimin uzantısının otomatik olarak Png olması, yeniden boyutlandırılma, web kameradan resim alınması vb. işlemleri yaptırabilirsiniz. Örnek olarak : Amara ActiveX Cvp: resim boyut küçültme - brsknm - 23/01/2011 internette yabancı bir siteden buldum paylaşmak istiyorum eklentiden dll dosyasını system32 içine atın bat dosyası ile de kaydettirin txt dosyasınıda çalışmanıza modül olarak akleyin çalışmamın Command1_Click deki son hali aşağıdaki gibidir herkese saygılar Dim dib As Long Dim bOK As Long Private Sub Command1_Click() Form1.Hide Sleep 200 DoEvents Call keybd_event(vbKeySnapshot, 0, 0, 0) DoEvents Sleep 200 ScreenShot App.Path & "\screenshot.bmp" DoEvents dib = FreeImage_Load(FIF_BMP, App.Path & "\screenshot.bmp", 0) DoEvents bOK = FreeImage_Save(FIF_JPEG, dib, (Dir1.Path & "\" & Text1.Text) + ".jpeg", 0) FreeImage_Unload (dib) Form1.Show Text1.SetFocus End Sub |