طبعا كلكم عارفين الدالة دى
Private Declare Function GetCursor Lib "user32" () As Long
تعمل زى الفل ولكن عند تصغير الفورم تتوقف عن العمل
ما الحل؟؟؟
و هل يوجد بديل؟
Moore’s Law – “Number of transistors in chips doubles every 18 months”. – Every 10 years, processors are 100 times more powerful.
Gilder’s Law – “Bandwidth grows at least three times faster than computer power”. – Assuming bandwidth doubles every 12 months; every 10 years, it is 1000 times better.
عزيزي
GetCursor تعطيك مقبض لأيقونة الماوس في برنامجك فقط
لو راجعت التعريف هنا
http://msdn.microsoft.com/library/default....s/getcursor.asp
ستلاحظ
اقتباسretrieves a handle to the current cursor
عندما يكون الفورم في حالة التصغير فلن تستطيع الحصول على اي معلومات ...
ولاخذ معلومات عن الماوس بشكل عام في اي مكان من الشاشة
اقتباسTo get information on the global cursor, even if it is not owned by the current thread, use GetCursorInfo.
لذا عليك استخدام GetCursorInfo
http://msdn.microsoft.com/library/default....tcursorinfo.asp
ما اعتقد انه بدك مثال جاهز , بقية العمل عليك ..
1) تصريح الدالة والتركيب
2) اسناد قيمة لحجم التركيب
3)استدعاء الدالة في جملة شرط
4)استخراج المعلومات المراده
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
شكرا جزيلا يا Cipher و هذه المعلومات اظنها كافيه
جارى التجربه...................
Moore’s Law – “Number of transistors in chips doubles every 18 months”. – Every 10 years, processors are 100 times more powerful.
Gilder’s Law – “Bandwidth grows at least three times faster than computer power”. – Assuming bandwidth doubles every 12 months; every 10 years, it is 1000 times better.
Option Explicit Private Type PointAPI X As Long Y As Long End Type Private Type CursorInfo cbSize As Long flags As Long hCursor As Long ptScreenPos As PointAPI End Type Dim cursor as CursorInfo Private Declare Function GetCursorInfo Lib "User32.dll" (ByRef pCI As CursorInfo) As Long Private Sub Timer1_Timer() cursor.cbSize = Len(cursor) Call GetCursorInfo(cursor) Label1.Caption = cursor.cbSize & " " & cursor.flags & " " & cursor.hCursor & cursor.ptScreenPos.X & cursor.ptScreenPos.Y End Sub
الدالة تعمل....
روعه....
الف شكر :lol:
تم تعديل هذه المشاركة بواسطة NUCLEAR في 7 يناير 2006 في 00:01
Moore’s Law – “Number of transistors in chips doubles every 18 months”. – Every 10 years, processors are 100 times more powerful.
Gilder’s Law – “Bandwidth grows at least three times faster than computer power”. – Assuming bandwidth doubles every 12 months; every 10 years, it is 1000 times better.
هذا الموضوع مغلق.