Çember
Tarih
04/02/2010 20:20
Konu Sahibi
accessman
Yorumlar
19
Okunma
3962
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
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
Cevapla


accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
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
Cevapla


ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.733
14/11/2008
Ankara
Ofis 2010 32 Bit
Dün,15:47
Çözüldü 
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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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


accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
teşekkürler
bunlar Access içinmi yoksa vb içinmi
@benbendedeilem
Cevapla


ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.733
14/11/2008
Ankara
Ofis 2010 32 Bit
Dün,15:47
Çözüldü 
Vb için olduğunu belirtmiştim. Sanırım gözünüzden kaçtı. Saygılarımla
Cevapla


accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
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


Ek Dosyalar
.rar   Açı Çiz.rar (Dosya Boyutu: 142,9 KB / İndirme Sayısı: 11)
@benbendedeilem
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi



Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya