Ho scritto il seguente Codice:
codice:Private Sub ImportaOn(sender As Object, e As EventArgs) Handles IconaImport.MouseEnter IconaImport.Image = My.Resources.Importa_B IconaImport.BackColor = Color.White IconaImport.BorderStyle = 2 Application.DoEvents() End Sub Private Sub ImportaOff(sender As Object, e As EventArgs) Handles IconaImport.MouseLeave IconaImport.Image = My.Resources.Importa Application.DoEvents() IconaImport.BackColor = Color.Transparent Application.DoEvents() IconaImport.BorderStyle = 0 Application.DoEvents() End Sub
ma nonstante l'uso esagerato di "Applicatio.DoEvents()", quando il Mouse lascia l'Icona, il comando "MouseLeave" non viene eseguito.
O meglio, viene eseguito in maniera casuale, solo quando gli pare, e l'icona rimane nello stato che si genera con il comando "MouseEnter".
Per farla ritornare allo stato relativo al comando "Mouseleave", bisogna passarci sopra nuovamente e talvolta anche più volte.
Posso anche pensare che sia il mio Mouse che non funziona bene, ...
Qualcuno ha qualche idea?