Donanım



Google Reklamları


0 Üye ve 1 Ziyaretçi konuyu incelemekte.


11 Kasım 2007, 01:47:28
Forum
Admin
Mesajlar: 86852
Türkiye'nin En Faydalı Forumu...


















Sponsorlu Bağlantılar

sponsorlu bağlantılar

Farenin Pozisyonunu Bulmak ve Değiştirmek
(Modul)(General)(Declaration)
 
 
 
Type PointApi
 
X As Long
 
Y As Long
 
End Type
 
 
 
Global FareXY As PointApi
 
 
 
Declare Function GetCursorPos Lib "user32" (lpPoint As PointApi) As Long
 
Declare Function SetCursorPos Lib "user32" (ByVal x As Long, _
 
ByVal y As Long) As Long
 
 
 
Private Sub Form_Click() ‘ Farenin yeri
 
Z = GetCursorPos(PointApi)
 
MsgBox "Fare Pozisyonu : (" & FareXY.Y & "," & FareXY.Y & ") "
 
End Sub
 
 
 
Private Sub Command1_Click() ‘ Farenin yerini değiştirmek
 
X = Val(InputBox("X ?"))
 
Y = Val(InputBox("Y ?"))
 
Z = SetCursorPos(x, y)
 
MsgBox "Fare Pozisyonu: (" & X & "," & Y & ")"
 
End Sub

ALINTIDIR


sponsorlu bağlantılar










Donanım ile ilgili benzer olabilecek konular...


Bu Konunun Linki : 

Yukarıdaki linki arkadaşlarınıza göndermek için kullanabilirsiniz. Bu sayfada Donanım ile ilgili olarak; Donanım hakkında bilgiler nedir yazıları veya şiirleri Temel programlama örnekleri, dersleri, ders notları, program kursları, script dilleri, bedava scriptler, algoritmalar... gibi bilgileri veya indirme linklerini, sözleri veya resimleri Donanım siteleri gibi benzer birçok konuları bulabilirsiniz.

 
Gerçek mutluluk, ancak gerçek sevgi ile yaşanabilir.

Copyright © 2006-2016 AjansMail
Her hakkı saklıdır.