AccessTr.neT

Tam Versiyon: Çember
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4
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
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
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
teşekkürler
bunlar Access içinmi yoksa vb içinmi
Vb için olduğunu belirtmiştim. Sanırım gözünüzden kaçtı. Saygılarımla
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
Sayfalar: 1 2 3 4