Bir form üzerine çizim yapmak için daha önce belirttiğimiz gibi ScaleWidth(X) ve ScaleHeight(Y) koordinatlarından ve twip ölçü birimlerinden yararlanacağız. Form üzerinde çizeceğimiz bir noktanın koordinatını belirtirken formun üst sol köşesi (0,0) dır ve X değeri sağa doğru Y değeri ise aşağıya doğru artar. Formun üstündeki mavi bar bu değerler dışındadır.
Line
İstenilen koordinatlar arasında çizgi çizmek veya kutu çizmek için kullanılır.
Line(Xbaslangıç,Ybaslangıç)-(Xbitis,Ybitis),çizgi rengi ,BF
BF = Otomatik kutu yapmak için kullanılır.
Örnek 1
Private Sub Command1_Click()
Cls
Line (500, 500)-(2500, 2500)
End Sub
Örnek 2
Private Sub Command2_Click()
Cls
Line (500, 500)-(2500, 2500), RGB(200, 25, 12)
End Sub
Örnek 3
Private Sub Command3_Click()
Cls
Line (500, 500)-(2500, 2500), QBColor(5)
End Sub
Örnek 4
Private Sub Command4_Click()
Line (500, 500)-(2500, 2500), RGB(200, 25, 12), B
End Sub
Örnek 5
Private Sub Command4_Click()
Line (500, 500)-(2500, 2500), RGB(200, 25, 12), BF
End Sub
Örnek 6
Klavyeden girilen rakamlarla bir kutu çizmek.
Private Sub Command5_Click()
Dim a, b, c, d, e, f, g
a = InputBox("xbas")
b = InputBox("ybas")
c = InputBox("xbit")
d = InputBox("xbit")
e = InputBox("R rengi için 255 e kadar bir sayı gir")
f = InputBox("G rengi için 255 e kadar bir sayı gir")
g = InputBox("B rengi için 255 e kadar bir sayı gir")
Line (a, b)-(c, d), RGB(e, f, g), BF
End Sub
Örnek 7
BF kodunu kullanmadan bir kutu çizmek.
Private Sub Command6_Click()
Cls
Line (500, 500)-(500, 2000), RGB(250, 12, 35)
Line (2000, 500)-(2000, 2000), RGB(250, 12, 135)
Line (500, 2000)-(2000, 2000), RGB(25, 12, 235)
Line (500, 500)-(2000, 500), RGB(35, 112, 35)
End Sub
NOT= DrawWidth özelliğini anlat
Örnek 8
Private Sub Form_Resize()
Show
Cls
Dim i, stp
Form1.Width = Form1.Height
stp = Form1.ScaleWidth / 20
For i = 0 To Form1.ScaleHeight / 2 Step stp
ForeColor = i * 12
Line (i, i)-(Form1.ScaleWidth - i, Form1.ScaleHeight - i), , BF
Next
End Sub
Örnek 9
Bir üçgen çizmek için
Private Sub Command2_Click()
Cls
DrawWidth = 3
Line (500, 500)-(2000, 2000)
Line -(500, 2000)
Line -(500, 500)
End Sub
|
