drag and drop از داخل فرم به پنجره های بیرونی

[Payman62]

سلام.
دیدید تو بعضی برنامه ها مثل تاک قفل کن های مسنجر 1 آیکونی رو فرم هست که میکشنش یا درگش میکنن رو یه پنجره دیگه و اون پنجره دورش سیاه میشه. چه طوری میشه از این آیکون ها در فرم قرار داد؟

[H_SH_VB]

خوب یعنی میخای ایکن موست عوض شه؟

[Payman62]

نه. میخوام یه آیکون رو فرم بذارم بعد هنگام اجرا برنامه بشه اون آیکون رو drag and drop کرد یا بشه اونو کشید رو یه پنجره دیگه.
بعد وقتی پنجره ای مشخص شد کارای لازم رو روی اون پنجره انجام بدم. این تاک قفل کن های یاهو اینجورین مثل برنامه یاهیک.
در واقع میخوام به کاربر امکان انتخاب پنجره های مختلف رو بدم. این کار رو با روش دیگه ای انجام دادم ولی میخوام یه بارم با این روش که آیکونو بکشم امتحان کنم.

[Payman62]

برنامه یاهیک رو این جا گذاشتم که ببینیدش. این تاک قفل کن مال سال ها پیشه ولی جالبه تستش کردم هنوزم به خوبی کار میکنه.

[H_SH_VB]

من این کارو کردم قبلا تو سورسام میگردم بهت میگم

[Payman62]

ممنون منتظرم.

[H_SH_VB]

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.MousePointer = 99
Me.MouseIcon = Image1.Picture
End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.MousePointer = 1
Me.MouseIcon = Image1.Picture

GetCursorPos Pt
mWnd = WindowFromPoint(Pt.X, Pt.Y)

End Sub
امیدوارم به دردت بخوره

[Payman62]

GetCursorPos Pt این قسمت error میده.
ببین من میخوام وقتی پنجره ای انتخاب شد هندلشو به دست بیارم.

[H_SH_VB]

خوب شما توابع و ثوابت و Type هارو تعریف کردی؟

[Payman62]

H_SH_VB ممنون از کمکت.مشکلشو حل کردم. ولی یه مشکل دیگه هست. ببین یاهیک رو ببین چه جوری کار میکنه. هر پنجره ای رو میتونه هندلشو به دست بیاره. چه فکوس رو اون پنجره باشه چه نباشه. ولی با روش شما حتما باید قبلش پنجره رو کلیک کنیم تا فکوس رو اون پنجره باشه وگرنه نمیتونه هندل پنجره رو بده. بعد میخواستم مثل همین یاهیک با کشیدن آیکون رو هر پنجره اون پنجره دورش سیاه شه ولی با این روش نمیشه.