+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Çember (/konu-cember.html)
Çember - accessman - 04/02/2010
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
Cvp: Çember - accessman - 05/02/2010
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
Cvp: Çember - ercansahin - 05/02/2010
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 SubCvp: Çember - accessman - 05/02/2010
teşekkürler
bunlar Access içinmi yoksa vb içinmi
Cvp: Çember - ercansahin - 05/02/2010
Vb için olduğunu belirtmiştim. Sanırım gözünüzden kaçtı. Saygılarımla
Cvp: Çember - accessman - 05/02/2010
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