Elips çizmek

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

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

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

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

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

teşekkürler sn.esrefigit