Aralık
11th 2007
Posted under Visual Basic
Asagidaki code API-Funksiyonunu kullanarak Mouse kaybeder ve tekrar ortaya cikarir…
Continue Reading »
Aralık
11th 2007
Posted under Visual Basic
Private Type RECT
left As Long
top As Long
right As Long
bottom As Long
End Type
Private Type POINT
x As Long
y As Long
End Type
Aralık
11th 2007
Posted under Visual Basic
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
Continue Reading »
Aralık
11th 2007
Posted under Visual Basic
Mouse’un form üzerindeki her hareketinde renk değişir ve mouse’un koordinatlarını verir. Bu olayı labela yazdırır.
Forma 2 adet textbox ve 1 adet label eklioruz. Kodları formun mousemove olayına yazıyoruz.
Continue Reading »
