Çember

1 2 3 4
04/02/2010, 20:20

accessman

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
05/02/2010, 02:19

accessman

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
05/02/2010, 02:32

ercansahin

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
05/02/2010, 02:47

accessman

teşekkürler
bunlar Access içinmi yoksa vb içinmi
05/02/2010, 02:49

ercansahin

Vb için olduğunu belirtmiştim. Sanırım gözünüzden kaçtı. Saygılarımla
05/02/2010, 02:55

accessman

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
1 2 3 4