حرکت موس روی پنجره و بدست آردن هندل آن پنجره

[hamid123]

چگونه می توان برنامه ای نوشت که وقتی موس روی یکی از پنجره های خارج از فرم
مثلا My computer انتقال داده شد هندل آن فرم در یک TextBox نمایش داده
شود.؟

[Ariyan]

با استفاده از تابع WindowFromPoint و GetCursorPos به این شکل:


Option Explicit
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI
x As Long
y As Long
End Type

Private Sub Form_Load()
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
Dim MP As POINTAPI
GetCursorPos MP
Text1.Text = WindowFromPoint(MP.x, MP.y)
End Sub

[gostaham]

درود بر شما
چگونه می توان هنگامی که موس روی یک متن خارج از برنامه حرکت می کند محتوی متن را خواند
مثل برنامه نارسیس

سپاس