Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
21/01/2011 00:08
Konu Sahibi
brsknm
Yorumlar
4
Okunma
2315
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

brsknm

Aktif Üye
Kullanici Avatari
Aktif Üye
B.... K....
40
17/01/2009
0
Bursa
Teknisyen
Ofis 2013 32 Bit
20/06/2017,09:48
Çözüldü 
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


Cevapla

alpeki99

Düşünmek en zor iştir...
Kullanici Avatari
Uzman
O....
6.092
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
Bugün,08:50
Çözüldü 
Bu iş için activex bileşenlerini kullanabilirsiniz. Sadece boyut küçültmekle kalmayıp düzenleme vb. çok sayıda işlem yapabilirsiniz.


AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla

brsknm

Aktif Üye
Kullanici Avatari
Aktif Üye
B.... K....
40
17/01/2009
0
Bursa
Teknisyen
Ofis 2013 32 Bit
20/06/2017,09:48
Çözüldü 
activex bileşenlerini konusunu biraz açabilirmisiniz visual basic te daha yeniyim


Cevapla

alpeki99

Düşünmek en zor iştir...
Kullanici Avatari
Uzman
O....
6.092
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
Bugün,08:50
Çözüldü 
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


AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla

brsknm

Aktif Üye
Kullanici Avatari
Aktif Üye
B.... K....
40
17/01/2009
0
Bursa
Teknisyen
Ofis 2013 32 Bit
20/06/2017,09:48
Çözüldü 
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


Ek Dosyalar
.rar   MFreeImage.rar (Dosya Boyutu: 315,66 KB / İndirme Sayısı: 25)
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Webden Resim Çağırma estapan 6 324 09/09/2017, 21:57 estapan
Çözüldü İlişkili Combobox - Resim Çağırma tsots 13 545 06/09/2017, 21:34 ozanakkaya
Çözüldü Formda Resim Ekleme mharman 4 403 13/05/2017, 19:29 mharman
Çözüldü Access Uygulamada Resim Çözünürlüğü Ayarı? mehami 2 259 22/04/2017, 07:28 mehami
Çözüldü Accesste Seçilen Resim Sabit-Diğer Resimler Random Nasıl Yapılır? mehami 6 738 17/04/2017, 13:02 mehami

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.