yapabilir
boş bir rapora kodu kopyala
Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As Integer)
Dim renk As Long
Dim ust As Single, sol As Single
Dim en As Single, yuksek As Single
ScaleMode = 3
ust = 100
sol = 200
en = 400
yuksek = 300
renk = RGB(255, 0, 0)
Line (ust, sol)-(en, yuksek), renk, B
End Sub
300x400 lük dikdörtgen
aslında burada çizilen dikdörtgen değildir.sadce sol üstten sağ alta belirtilen miktarda uzayan bir eğik çizgidir.biz bunu kalın bir çizgi haline B komutu ile getirdiğimiz için kare veya dikdörtgen görüyorsun
Oyas belirtilen ölçülerde kare veya dikdörtgeni çizmek için Line (ust, sol)-(en, yuksek), renk komutundaki en ve yükseklik ayarları ile ust ve sol değerlerini değiştirirrek
toplam 4 satır kod yazarak elde edebiliriz
Son Düzenleme: 18/04/2009, 15:12, Düzenleyen: adnanyurdakul.