Elips çizmek - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Elips çizmek (/konu-elips-cizmek.html) Sayfalar:
1
2
|
Elips çizmek - accessman - 03/02/2010 iyi günler arkadaşlar formda veya raporda elips çizmek için ne yap(z)mamız lazım eklediğim örnekte rapor ayrıntısına bir kısmı dolu daire(veya çember) çiziyor elips nasıl çizebiliriz Cvp: Elips çizmek - accessman - 03/02/2010 bu çizgi çekiyor Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer) Dim sngMidPt As Single, intI As Integer ' Set scale to pixels. Me.ScaleMode = 3 ' Calculate midpoint. sngMidPt = Me.ScaleHeight / 2 ' Loop to draw line down horizontal axis pixel by pixel. For intI = 1 To Me.ScaleWidth Me.PSet(intI, sngMidPt) Next intI End Sub benim amacım formda ayrıntı üstünde elips çizmek ve mouse sol tuş basılı tutarak ayrıntı üzerinde gezerken nokta koymak Cvp: Elips çizmek - accessman - 03/02/2010 sngHCtr = Me.ScaleWidth / 2 ' Horizontal center. sngVCtr = Me.ScaleHeight / 2 ' Vertical center. sngRadius = Me.ScaleHeight / 3 ' Circle radius. burada me.scalewidth demek ayrıntının genişliği demek mi ayrıca rapor ayrıntısında geçerli bu kod nasıl formda da kullanabiliriz Cvp: Elips çizmek - accessman - 04/02/2010 cevap yazılmamasını sukut ikrardan gelir kaidesince evet olarak algılayıp me.scalewidth kelimesini ayrıntının genişliği olarak kabul edebilirmiyiz Cvp: Elips çizmek - esrefigit - 04/02/2010 raporda elips kodu Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer) On Error Resume Next Dim sngHorizontal As Single Dim sngVertical As Single Dim sngRadius As Single sngHorizontal = Me.ScaleWidth / 1.5 sngVertical = Me.ScaleHeight / 3.5 sngRadius = Me.ScaleHeight / 1.3 Me.DrawWidth = 2 Me.Circle (sngHorizontal, sngVertical), sngRadius, vbRed, , , 0.3 End Sub herhangi bir kaydın bir özelliğine göre o kayda elips çizsin diyorsan If IsNull(kontrolununadı) Then Me.Circle (sngHorizontal, sngVertical), sngRadius, vbRed, , , 0.3 End If form üzerine gelince draw yapılmaz ancak api ile bir şey yapılabilir ancak oda yapacağın uygulamayı kasar bunun yerine form üzerine emf formatında bir resim eklersin tabii arkası boş elips şeklinde istediğin gibi gösterir gizlersin Cvp: Elips çizmek - accessman - 04/02/2010 teşekkürler sn.esrefigit |