Sayfa: [1]   Aşağı git
  Yazdır  
Gönderen Konu: Picture nesnesinin içindeki görüntüleri kaydetme  (Okunma Sayısı 1112 defa)
0 Üye ve 1 Ziyaretçi konuyu incelemekte.
YuKo_CaN
קєรเ๓เรt
Master Üye
******


Karma: 104
Offline Offline

Cinsiyet: Bay
Mesaj Sayısı: 2044

PeSiMiST


Üyelik Bilgileri


« : 08 Mart 2008, 07:42:04 »




Soru
picture nesnesi içine 8 tane image nesnesi gömdüm..
save picture picture1.image aldğımda hep boş bi kayıt çıkıyo...onu nasıl halledicem....




Cevap
imagelerden ayrı ayrı kaydedin ya da kayıt için resimleri birleştirip picture nesnesine atın ve sonra picture nesnesinden kayıt yapın. Basit bir örnek yazdım. Uygun şekilde düzenlersin.

Private Sub Command1_Click()
ü = 0: s = 0
For don = 1 To 8
Picture1.PaintPicture Image1(don - 1).Picture, s, ü, Image1(don - 1).Width, Image1(don - 1).Height, 0, 0, Image1(don - 1).Width, Image1(don - 1).Height, &HCC0020
s = s + Image1(don - 1).Width
If don Mod 2 = 0 Then ü = ü + Image1(don - 1).Height: s = 0
Next don
SavePicture Picture1.Image, "C:\Documents and Settings\3680\Desktop\Yeni Klasör\resim.bmp"

End Sub





Logged

Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap
Resimlerin Görüntülenmesine Izin Verilmiyor
Resimleri Görebilmek Için Üye Ol veya Giris Yap

Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap
Resimlerin Görüntülenmesine Izin Verilmiyor
Resimleri Görebilmek Için Üye Ol veya Giris Yap

Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap
Resimlerin Görüntülenmesine Izin Verilmiyor
Resimleri Görebilmek Için Üye Ol veya Giris Yap
Pan
Ziyaretçi



« Yanıtla #1 : 26 Mayıs 2008, 18:57:06 »

s.a. dostum
SavePicture Picture1.Image, "C:\Documents and Settings\3680\Desktop\Yeni Klasör\resim.bmp"

SavePicture Picture1, "C:\Documents and Settings\3680\Desktop\Yeni Klasör\resim.bmp" şeklinde yaparsan sorunun düzelecektir.

yani "picture1.image" yi yanlızca "picture1" yap
Logged
Sayfa: [1]   Yukarı git
  Yazdır  

 
Gitmek istediğiniz yer: