Skip to main content

AccessTr.neT


Çember

Çember

Çözüldü #13
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/60...ge-control

burada anlatılmış ama ingilizce eksik kod bilgiside hiç olmayınca anlayamadım
yardımlarınızı bekliyorum
@benbendedeilem
Son Düzenleme: 06/02/2010, 09:09, Düzenleyen: accessman.
Cevapla
Çözüldü #14
(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/60...ge-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.
.rar Açı Çiz.mdb.rar (Dosya Boyutu: 126,05 KB | İndirme Sayısı: 17)
FX-Etopla
Liste Kutusu Oluşturma
Cevapla
Çözüldü #15
Sn nihat hocam, son noktayı koymuşsunuz, teşekkürler..
Cevapla
Çözüldü #16
tam tamına
teşekkürler
hürmetler nihatkr
@benbendedeilem
Cevapla
Çözüldü #17
soruyu çözümlenmiş sorular kısmına taşıya biliriz sanırım.
FX-Etopla
Liste Kutusu Oluşturma
Cevapla
Çözüldü #18
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
@benbendedeilem
Son Düzenleme: 06/02/2010, 12:27, Düzenleyen: accessman.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da