تشخیص Mouse Pointer

[Pr0grammer]

سلام...
چطوري ميشه تشخيص داد MousePointer در يک زمان خاص چيه؟! (حتي خارج از برنامه)
منظورم اينه که حتي اگه موس رو از برنامه خودمون ببريم بيرون و وارد يک محيط ويراستار متني کنيم خوب 100% Pointer عوض ميشه ..... چطوري اينو يا حالتهايي مشابه اين رو تشخيص بديم؟؟

[Pr0grammer]

امروز داشتم تاپیک هایی که خودم ایجاد کرده بودم رو نگاه می کردم :لبخند: که این تاپیک رو دیدم که بی جواب مونده بود ، در صورتی که جوابش رو خودم بدست آورده بودم!

گفتم بهتره که راهش رو اینجا مطرح کنم شاید بعداً دوستان عزیز دیگه ای بهش احتیاج داشته باشن! (هر چند بعد از 4 ماه دارم می نویسم :لبخند:)


برای بدست آوردن mouse Cursor میشه از API استفاده کرد؛ به این روش :


Private Declare Function GetCursor Lib "user32" () As Long
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long

Private Sub Form_Paint()
DrawIcon Me.hdc, 0, 0, GetCursor
End Subامیدوارم مفید باشه، موفق باشید :قلب: