Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
18/04/2009 13:12
Konu Sahibi
ekremenis
Yorumlar
5
Okunma
1803
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

ekremenis

Üye
Kullanici Avatari
Üye
E....
27
6
29/12/2008
0
Eskişehir
Ofis XP
05/07/2017,12:23
Çözüldü 
örneğin değerlerini verdiğimiz 150x150 ebatında bir kare yapılabilirmi


Cevapla

adnanyurdakul

Aktif Üye
Kullanici Avatari
Aktif Üye
88
2
05/02/2009
19
Manisa
Ofis 2003
03/06/2016,23:55
Çözüldü 
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


Cevapla

Seruz

Uzman
Kullanici Avatari
Uzman
S.... U....
1.550
7
30/10/2008
814
Tekirdağ
Ofis XP
17/10/2017,17:32
Çözüldü 
Elbette, örnek rapor ektedir.
(Kodları Access'in Visual Basic Help kısmından aldım)

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
    ' Call the Drawline procedure
    DrawLine
End Sub
Sub DrawLine()
    Dim rpt As Report, lngColor As Long
    Dim sngTop As Single, sngLeft As Single
    Dim sngWidth As Single, sngHeight As Single

    Set rpt = Reports!KareCizenRapor
    ' Set scale to pixels.
    rpt.ScaleMode = 3
    ' Top inside edge.
    sngTop = rpt.ScaleTop + 5
    ' Left inside edge.
    sngLeft = rpt.ScaleLeft + 5
    ' Width inside edge.
    sngWidth = rpt.ScaleWidth - 10
    ' Height inside edge.
    sngHeight = rpt.ScaleHeight - 10
    ' Make color red.
    lngColor = RGB(255, 0, 0)
    ' Draw line as a box.
    rpt.Line (sngTop, sngLeft)-(sngWidth, sngHeight), lngColor, B
End Sub


Ek Dosyalar
.rar   Kare.rar (Dosya Boyutu: 7,96 KB / İndirme Sayısı: 44)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

ekremenis

Üye
Kullanici Avatari
Üye
E....
27
6
29/12/2008
0
Eskişehir
Ofis XP
05/07/2017,12:23
Çözüldü 
Sayın, Seruz ve yurdakul arkadaşlar ilginiz için çok teşekkür ediyorum. uzun zamandır dışardaydım yeni cevap yazabiliyorum. burada benim sorum bir form da vereceğimiz ölçüler doğrultusunda kare çizdirmekti. yinede çok teşekkür ediyorum. sağolun. iyiki varsınız.


Cevapla

Seruz

Uzman
Kullanici Avatari
Uzman
S.... U....
1.550
7
30/10/2008
814
Tekirdağ
Ofis XP
17/10/2017,17:32
Çözüldü 
Alıntı:burada benim sorum bir form da vereceğimiz ölçüler doğrultusunda kare çizdirmekti.


O zaman bir dahaki sefere konu başlığını yazarken daha dikkatli olun.

Çünkü konu başlığınız aynen şöyle:
Alıntı:ACCESS raporda Çizim Yapılabilirmi


Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

ekremenis

Üye
Kullanici Avatari
Üye
E....
27
6
29/12/2008
0
Eskişehir
Ofis XP
05/07/2017,12:23
Çözüldü 
kusura bakmayın internet ve forum olaylarına pek hakim değilim. Afedersiniz.


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Raporda Satırbaşı Nasıl Eklenir. furens 3 102 22/09/2017, 09:49 furens
Çözüldü Raporda Verilerin Hepsi Çıkmasın. ankaram 8 578 17/06/2017, 10:36 ankaram
Çözüldü Formda Raporda Çıkmasını İstemediğimiz Yeri Seçme ankaram 6 550 07/06/2017, 10:06 ankaram
Çözüldü altform verilerini raporda yatay sıralamak mümkün mü? hbal09 3 356 07/06/2017, 01:03 ozanakkaya
  Formda Bulunan Departman Bölümü Raporda Çıkmıyor. ankaram 9 544 01/06/2017, 12:34 ankaram

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