+- 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ığı: Çember (/konu-cember.html)
Cvp: Çember - accessman - 06/02/2010
mutlaka oluyor olmalı
elips neden olmasın
daire olurken
bir sürü yere baktım
ama hep rapor için elips çizimi var
altıncı mesajda ki gibi
dairenin çizildiği yere elips çizmem lazım
mutlaka bir bilen olmalı
http://bytes.com/topic/access/answers/607398-draw-ellipse-access-image-control
burada anlatılmış ama ingilizce eksik kod bilgiside hiç olmayınca anlayamadım
yardımlarınızı bekliyorum
Cvp: Çember - nihatkr - 06/02/2010
(06/02/2010, 08:55)accessman yazdı: mutlaka oluyor olmalı
elips neden olmasın
daire olurken
bir sürü yere baktım
ama hep rapor için elips çizimi var
altıncı mesajda ki gibi
dairenin çizildiği yere elips çizmem lazım
mutlaka bir bilen olmalı
http://bytes.com/topic/access/answers/607398-draw-ellipse-access-image-control
burada anlatılmış ama ingilizce eksik kod bilgiside hiç olmayınca anlayamadım
yardımlarınızı bekliyorum
accessman,
sanırım aradığın böyle birşey. örneği incele.
Cvp: Çember - ercansahin - 06/02/2010
Sn nihat hocam, son noktayı koymuşsunuz, teşekkürler..
Cvp: Çember - accessman - 06/02/2010
tam tamına
teşekkürler
hürmetler nihatkr
Cvp: Çember - nihatkr - 06/02/2010
soruyu çözümlenmiş sorular kısmına taşıya biliriz sanırım.
Cvp: Çember - accessman - 06/02/2010
size zahmet birde şu kodlara bakabilirmisiniz
Private Sub cmdDrawEllipse_Click()
Dim X As Long, Y As Long
Dim ElipseWidth As Integer, ElipseHeight As Integer
X = 2000
Y = 1000
ElipseWidth = 1200
ElipseHeight = 600
Circle (X, Y), ElipseWidth, , , , ElipseHeight / ElipseWidth
End Sub
ve
Public Sub DrawEllipse((LeftX As Long, TopY As Long), radius As
Long,,,,aspect As Long))
Dim hNewPen As Long
Dim hOldPen As Long
Dim hNewBrush As Long
Dim hOldBrush As Long
hNewPen = apiCreatePen(PS_SOLID, m_DrawWidth, m_ForeColor)
If TempFillColor <0 Then
hNewBrush = apiCreateSolidBrush(TempFillColor)
Else
' Use FillColor Prop
hNewBrush = apiCreateSolidBrush(m_FillColor)
End If
hOldPen = SelectObject(m_hDC, hNewPen)
hOldBrush = SelectObject(m_hDC, hNewBrush)
apiEllipse m_hDC, LeftX, TopY, LeftX + diameter, TopY + diameter
Call SelectObject(m_hDC, hOldPen)
Call DeleteObject(hNewPen)
Call SelectObject(m_hDC, hOldBrush)
Call DeleteObject(hNewBrush)
Me.DIBtoPictureData
End Sub
ben bunları bir örneğe eklemeye çalıştım olmadı
bunları nasıl çalışır hale getirebiliriz