Donanım



Google Reklamları





Donanım ile ilgili benzer olabilecek konular...

0 Üye ve 1 Ziyaretçi konuyu incelemekte.


11 Kasım 2007, 01:47:28
Forum
Forum Sitesi
Admin
Mesajlar: 86806












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


Forumlar okunmak ve paylaşmak içindir...


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.