بدست آورن نام کنترلی که در فرم هم اکنون ماوس بر روی اون هست

[milad.biroonvand]

سلام دوستان

من یک label دارم ، حالا می خوام ماوس در فرم موقعی که حرکت می کنه ، بر روی هر کنترلی که رفت ، نامش در اون lable که دارم نشون داده بشه ، اینکار به چه صورت انجام داده میشه ؟

[milad.biroonvand]

سلام دوستان

من یک label دارم ، حالا می خوام ماوس در فرم موقعی که حرکت می کنه ، بر روی هر کنترلی که رفت ، نامش در اون lable که دارم نشون داده بشه ، اینکار به چه صورت انجام داده میشه ؟


بنظرم اینکار در رویداد mouse move فرم نوشته میشه .

[b.mahsa]

سلام
باید رو event onmousehover هر کنترل بنویسد lable1.text = "control.name

[milad.biroonvand]

سلام
باید رو event onmousehover هر کنترل بنویسد lable1.text = "control.name


سلام دوست عزیز

مرسی از پاسختون ، ولی کنترل های من زمان اجرا هستن .

[pirmard]

سلام دوست عزیز

مرسی از پاسختون ، ولی کنترل های من زمان اجرا هستن .

خوب چه ایرادی داره ؟
مگه کنترلهایی که ران تایم ساخه میشن ایونت ندارن ؟ !

[b.mahsa]

کد زیر رو تست کنین امیدوارم به دردتون بخوره.


private sub AddButton()
Dim b as new button()
AddHandler b.MouseHover, AddressOf test
end sub

private sub test(sender as object, e as eventargs)
msgbox("test")
end sub

[Hossis]

اين رو امتحان کنيد


Private Sub form_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TableLayoutPanel1.MouseMove, Me.MouseMove
Dim ctl As Control = Me.GetChildAtPoint(e.Location)
If ctl Is Nothing Then ctl = TableLayoutPanel1.GetChildAtPoint(e.Location)
If Not ctl Is Nothing Then
Me.Text = ctl.Name
End If
End Sub

[milad.biroonvand]

اين رو امتحان کنيد


PrivateSub form_MouseMove(ByVal sender AsObject, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TableLayoutPanel1.MouseMove, Me.MouseMove
Dim ctl As Control = Me.GetChildAtPoint(e.Location)
If ctl IsNothingThen ctl = TableLayoutPanel1.GetChildAtPoint(e.Location)
IfNot ctl IsNothingThen
Me.Text = ctl.Name
EndIf
EndSub



کد خوبیه ولی رو هر کنترلی که ببریش درست جواب نمی ده