Skip to main content

AccessTr.neT


Çember

Çember

Çözüldü #1
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
@benbendedeilem
Son Düzenleme: 04/02/2010, 20:20, Düzenleyen: accessman.
Cevapla
Çözüldü #2
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
@benbendedeilem
Son Düzenleme: 05/02/2010, 02:20, Düzenleyen: accessman.
Cevapla
Çözüldü #3
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
Cevapla
Çözüldü #4
teşekkürler
bunlar Access içinmi yoksa vb içinmi
@benbendedeilem
Cevapla
Çözüldü #5
Vb için olduğunu belirtmiştim. Sanırım gözünüzden kaçtı. Saygılarımla
Cevapla
Çözüldü #6
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
.rar Açı Çiz.rar (Dosya Boyutu: 142,9 KB | İndirme Sayısı: 11)
@benbendedeilem
Son Düzenleme: 05/02/2010, 02:57, 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
Task