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