| Cemalizim | 21 Temmuz 2008 18:40 |
İmlecin Hareket Alanını Sınırlamak
PHP- Kodu:
Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Command1_Click()
Dim r As RECT
r.Left = Left / Screen.TwipsPerPixelX + 5
r.Top = Top / Screen.TwipsPerPixelY + 22
r.Bottom = (Top + Height) / Screen.TwipsPerPixelY - 5
r.Right = (Left + Width) / Screen.TwipsPerPixelX - 5
ClipCursor r
End Sub
Private Sub Command2_Click()
Dim r As RECT
r.Left = 0
r.Top = 0
r.Bottom = Screen.Height / Screen.TwipsPerPixelX
r.Right = Screen.Width / Screen.TwipsPerPixelY
ClipCursor r
End Sub
Private Sub Form_Load()
Label1.BackColor = 255
End Sub
Private Sub Timer1_Timer()
If Label1.BackColor = 255 Then
Label1.BackColor = 65535
Else
Label1.BackColor = 255
End If
End Sub
Alıntıdır | 