|
|
| Resmin yazıcıdan çıkartılması |
Resmin yazıcıdan çıkartılması her zaman için yeni başlayan programcılara sorun oluşturmaktadır.
Bizim önereceğimiz, sınanmış, hızlı ve sorunsuz yöntem "paintpicture" yöntemidir.
Bilindiği gibi "PaintPicture" yöntemi ile bir resmi başka bir nesneye, istenilen konumdan, istenilen ölçekte, aktarmak mümkündür.
Aşağıda örnekte "picture1" nesnesi içine alınmış bir resmin, "printer" nesnesi içine 1.2 ölçeğinde büyültülerek yazılması kodlanmıştır.
Private Sub Command1_Click()
Dim X1, X2, Y1, Y2
X2 = Picture1.Width
Y2 = Picture1.Height
X1 = X2 * 1.2 'Ölçek
Y1 = Y2 * 1.2 'Ölçek
Printer.PaintPicture Picture1.Image, 0, 0, X1, Y1, 0, 0, X2, Y2
End Sub
|
| :: Bu sayfaya 1.624 kere bakıldı :: | |
