مخفی و ظاهر کردن کرسور موس

[omid-vbAuto]

با سلام

من از برنامه زیر جهت مخفی و آشکار سازی علامت موس در محدوده های تعریف شده استفاده می کنم.اما نمی دونم این کدها کار نمی کنند.یعنی اونجائی که باید دیده بشن ، ذیذه نمی شند.

با تشکر

[Mani_rf]

سلام. با استفاده از این کد می توانی این کار را انجام دهی. کامل هم کار می کند :


Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Cursor.Hide()
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Cursor.Show()
End Sub

[omid-vbAuto]

سلام. با استفاده از این کد می توانی این کار را انجام دهی. کامل هم کار می کند :


Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Cursor.Hide()
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Cursor.Show()
End Sub

سلام

خوب من هم از همین کد استفاده می کنم.اما وقتی از کد تو رویداد move پنل و یا خود فرم استفاده می کنم .عمل نمیکنه که هیچ . ایراد هم میگره!!! مگه شما نمونه برنامه رو که گذاشتم ندیدین؟

[Mani_rf]

خب به خاطر اینه که Event هات رو درست انتخاب نکردی؛ به اون شکلی که نوشتی بار برنامه خیلی بالا میره و احتمالا باحرکت سریع موس برنامه از کار می افته.
به این شکل عمل کن :

Private Sub Panel1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel1.MouseEnter
Me.Text = "panel"
Cursor.Hide()
End Sub
Private Sub Panel1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel1.MouseLeave
Me.Text = "form"
Cursor.Show()
End Sub