!! Fareyi Kilitleme !!
-
Option Explicit
Private Type Rect
left As Long
top As Long
right As Long
bottom As Long
End Type
Declare Sub clipcursor Lib "user32" (lprect As Any)
Private Sub Command1_Click()
Dim r As Rect
Form1.ScaleMode = 3
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.TwipsPerPixelX
clipcursor r
End Sub
-
Bu Kodları Nereye Yazacaiz..?
-
HaDeS bunu yazdı:
-----------------------------
Bu Kodları Nereye Yazacaiz..?
-----------------------------
not defterine yaz kaydet. sonra çalıştır bak gör mevzuyu. -
Eheh visual basic bölümünde arkadaş bu kodları nereye yazıcaz diyor
-
ben bunda gülecek bişey bulamıyorum sormasında komık olannne halada anlamış değilim şu fare kilitlemeyi sahi nereye yazıcaz
-
baq şimdik
----Option Explicit
Private Type Rect
left As Long
top As Long
right As Long
bottom As Long
End Type
Declare Sub clipcursor Lib "user32" (lprect As Any)
-------
burayı olduğu gibi fomun general declerations kısmına yapıştır.
sonra 2 tane command buton ekle ve 1. butonun click olayına aşasını yapıştır.
------------------
Dim r As Rect
Form1.ScaleMode = 3
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
------------------
2. butonun click olayınada aşasını yapıştır.
------------------
Dim r As Rect
r.left = 0
r.top = 0
r.bottom = Screen.Height / Screen.TwipsPerPixelX
r.right = Screen.Width / Screen.TwipsPerPixelX
clipcursor r
--------------------
ok. -
Ulem adam nereye yazacaz diyo visual basic adlı programa yazıcaksın..
-
Hehehhehehehe hahhehehhahe
ulen varya -
sendkeys komutu ile home ve enter tuşlarını gönderirsen mouse kilitlenir. okadar komuta falan gerek yok.
Toplam Hit: 3061 Toplam Mesaj: 9