Bu bir reklamdır.




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
Admin
Mesajlar: 70133
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





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.

 
Yapman gerekenleri yaparsan, mutlu olursun. (Z.Ç)

Copyright © 2014 AjansMail
Her hakkı saklıdır.