Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
04/02/2010 20:20
Konu Sahibi
accessman
Yorumlar
19
Okunma
5532
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

accessman

Aktif Üye
 Belirtilmemiş
 2.367
 561
 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

Kullanici Avatari

accessman

Aktif Üye
 Belirtilmemiş
 2.367
 561
 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

Kullanici Avatari

ercansahin

Uzman
ER.... ŞA....
 44
 3.740
 69
 14/11/2008
 Bursa
 
 Ofis 2010 32 Bit
 27/11/2018,13:27
Çö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



Kullanici Avatari

accessman

Aktif Üye
 Belirtilmemiş
 2.367
 561
 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

Kullanici Avatari

ercansahin

Uzman
ER.... ŞA....
 44
 3.740
 69
 14/11/2008
 Bursa
 
 Ofis 2010 32 Bit
 27/11/2018,13:27
Çözüldü 
Vb için olduğunu belirtmiştim. Sanırım gözünüzden kaçtı. Saygılarımla



Kullanici Avatari

accessman

Aktif Üye
 Belirtilmemiş
 2.367
 561
 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


Konuyu Okuyanlar: 1 Ziyaretçi

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
123444