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