AccessTr.neT

Bul · 04/02/2010, 20:20

iyi akşamlar

pb.DrawCircle 10, 10, 400, vbWhite

bu kod içi beyaz bir daire çiziyor
içi şeffaf bir çember çizmek için ne yazmalıyız

Bul · 05/02/2010, 02:19

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

ile raporda elips çiziliyor
ama ben formdaki image nesnesinde elips çizmek istiyorum
nasıl yapabilirim

Bul · 05/02/2010, 02:32

VB de Shape Özelliği,

0-5 arasında değerler alarak değişik şekillerin çizilmesini sağlar.
0 Dikdörtgen
1 Kare
2 Elips
3 Çember
4 Oval Dörtgen
5 Oval Kare

FillStyle Özelliği,

0-7 arasında değerler alarak Şeklin içini boyamak için kullanılacak deseni belirtir.

0 Tam dolu
1 Nesnenin Zemin Rengi (Şeffaf)
2 Yatay Çizgi
3 Dikey Çizgi
4 Sola eğik
5 Sağa eğik
6 Kareli
7 Çapraz

Örn.

Kod:

Private Sub Combo1_Click()

   If Combo1.Text = " " then

     Shape_deneme = 0

   ElseIf Combo1.Text = "Çember" Then Shape_deneme.Shape = 3

   End If

End Sub



Private Sub Combo2_Click()

   If Combo1.Text = " " then

     Shape_deneme = 0

   ElseIf Combo2.Text = "Şeffaf" Then Shape_deneme.FillStyle = 1

   End If

End Sub 



Private Sub Form_Load()

  Combo1.AddItem "Çember"

  Combo2.AddItem "Şeffaf"

  Shape_deneme.BorderStyle = 1

  Shape_deneme.BorderWidth = 10

End Sub

Umarım işinize yarar. Kolay gelsin

Bul · 05/02/2010, 02:47

teşekkürler
bunlar Access içinmi yoksa vb içinmi

Bul · 05/02/2010, 02:49

Vb için olduğunu belirtmiştim. Sanırım gözünüzden kaçtı. Saygılarımla

Bul · 05/02/2010, 02:55

accessde elips çizme şansımız yokmu

bu galiba bilgisayarcının eklediği açı çizdeki çember
ben biraz değiştirdim
açı çiz analiz formuna bir bakın

bana elips lazım

AccessTr.neT

Çember

Çember

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

Giriş yap

Hesap oluştur

Konu Linkleri