Vb De Mouse Kontrol Yardım Ltfn
-
Arkdaşlar vb de pc nin mouse sini sanal olrk hareket ettrip istedtğm noktalra tıklanmsnı sağlamam lazım bilgisi olanlardan cwp beklyom pls...bunun bir apisi var ama olmyr olmyr olmyr yapan arkdaşlardan yrdm ..
Type MOUSE_EVENT_RECORD
dwMousePosition As COORD
dwButtonState As Long
dwControlKeyState As Long
dwEventFlags As Long
End Type
' ButtonState flags
Const FROM_LEFT_1ST_BUTTON_PRESSED = &H1
Const RIGHTMOST_BUTTON_PRESSED = &H2
Const FROM_LEFT_2ND_BUTTON_PRESSED = &H4
Const FROM_LEFT_3RD_BUTTON_PRESSED = &H8
Const FROM_LEFT_4TH_BUTTON_PRESSED = &H10
buda apisi ^^^^
-
biraz beklersen kordinatlara göre mausu hareket ettiren birşeyler yaparım
-
bekliyorum çok saol
-
forma iki text kutusu koy, text1 ve text2 adında, bi tane de buton koy command1 diye ve şu kodları al.Setcursorpos apisi ile yapıyoruz, text1 x, text2 de y kordinatını belirliyor, bunu geliştirmek de senin elinde, mesela for next döngüsü kullanarak sürekli hareket halinde yapabilirsin v.s...
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click()
Call SetCursorPos(Text1, Text2)
End Sub
-
elin kolun dert görmsin yazdın prog run time eror vermesin çok saol ertan bide o kordinata click yapmak mümkünmü dür yüzssüzlk olamassa
-
:) text1 ve text2 değerlerine sayı girersen vermez,
neyse iki proje yaptım, biri deminki olay, koordinata göre mouse imlecini yönlendiriyor,diğeri de mouse u forma kilitliyor/açıyor, yani mouse senin formun dışından başka bir yere gidemiyor :)
incele iki örneğide..
http://www.sendspace.com/file/8rfzc7 -
yok yaw run time error almadım :) ztn mantığı çzdüm anında o raya girbilcen kordinat sein ekran çöünrlüğnündeki piksel sayına eş değer yani pc 800x600 daysa ordada max bunlar girilr gibi.....
şimdk bn diorum ki atıyorum mouseyi 554x850 ci piksellere getiridm buraya double click yapamsnı istyrm bu nası yaparız :D
-
hımmmmmm şimdi anladım hoca :)
oke bakalım bi -
puhah bu forma mouse kitleme çok matrak bşi yaw :D yaptın progarma ekle bnu millet açtımı kalsın orda bide şu butonların adnı formun load olayna koyamn kopardı bni züper sin yaw bu kdr üşengç olnr ancak :D:D
-
clicker yapıyorsun galiba :)
-
o butonların ismini niye yaptım biliyor musun, kodları verecektim burda sonra dedim projeyi göndereyim.O yüzden öyle oldu neyse
senin apileri falan kullandık, tek tıklama yapıyordu, ben bir timer ekledim butondaki kodu bir kez daha çalıştırarak iki kez tıklamış oluyor, istesen timerdeki kodu silip
Private Sub Timer1_Timer()
Command1_Click Timer1.Enabled = False
End Sub
yapabilrisin,aynı şey.. Neyse sorun olursa sorarsın, içinde exe si de var :) direk dene bakim :)
http://www.sendspace.com/file/wzpsl1
Toplam Hit: 3771 Toplam Mesaj: 17