- 27 Ocak 2007
- 3,178
- 1
- 603
mouse un tıkladığı yer ve linelı buton örneği
Kod:
Private Sub Form_Activate()
Show
For a = 0 To 900
b = b + 2
z = z + 0.5
Line (a, 1000 - a)-(a, a), RGB(b, b, b) 'sol yan
Line (2000 - a, a)-(2000 - a, 1000 - a), RGB(b, b, b) ' sağ yan
Line (a, a)-(2000 - a, a), RGB(b, b, b) 'üst taraf
Line (a, 1000 - a)-(2000 - a, 1000 - a), RGB(b, b, b) 'alt taraf
Next
Me.CurrentX = 450
Me.CurrentY = 200
Form1.Font.Size = 26
Form1.ForeColor = RGB(200, 155, 255)
c = "EMİN"
Print c
For d = 0 To 500
e = e + 2
Line (4000 + d, 8000 - d)-(4000 + d, 7000 + d), RGB(0, e, 0) 'sol yan
Line (6000 - d, 7000 + d)-(6000 - d, 8000 - d), RGB(0, e, 0) 'sağ yan
Line (4000 + d, 7000 + d)-(6000 - d, 7000 + d), RGB(0, e, 0) 'üst taraf
Line (4000 + d, 8000 - d)-(6000 - d, 8000 - d), RGB(0, e, 0) 'alt taraf
Next
Me.CurrentX = 4450 'yazıya x değeri şeçiyoruz
Me.CurrentY = 7250 'yazıya y değeri şeçiyoruz
Form1.Font.Size = 26 'yazının büyüklük değeri veriyoruz
Form1.ForeColor = RGB(200, 155, 100) 'yazıya renk şeçiyoruz
c = "ÇIKIŞ"
Print c
For s = 0 To 500
g = g + 2
Line (2000 + s, 1000 - s)-(2000 + s, s), RGB(g, g, 0) ' sol
Line (4000 - s, s)-(4000 - s, 1000 - s), RGB(g, g, 0) ' sağ
Line (2000 + s, s)-(4000 - s, s), RGB(g, g, 0)
Line (2000 + s, 1000 - s)-(4002 - s, 1000 - s), RGB(g, g, 0)
Next
Me.CurrentX = 2200
Me.CurrentY = 250
Form1.Font.Size = 18
Form1.ForeColor = RGB(200, 155, 100)
c = "MSGBOX"
Print c
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X >= 0 And X <= 2000 And Y >= 0 And Y <= 1000 Then
MsgBox "emin"
ElseIf X >= 2000 And X <= 4000 And Y >= 0 And Y <= 1000 Then
MsgBox "msgbox butonuna basıldı"
ElseIf X >= 4000 And X <= 6000 And Y >= 7000 And Y <= 8000 Then
End
End If
For g = 3000 To 5000
Line (1000 / g, 3000 * g)-(2500 * g, 3000 / g), g * 10000
Next
End Sub