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