Differenze tra le versioni di "Far apparire un Balloon, quando si passa con il mouse su un menu"
| Riga 1: | Riga 1: | ||
Il caso in questione è quello in cui si vuole far apparire un ''Balloon'' su un ''Menu'', quando, passandoci sopra, venga rilevato che non sono stati creati ancora dei sub-menu (nel nostro esempio almeno uno, che chiameremo: ''Menu2''). | Il caso in questione è quello in cui si vuole far apparire un ''Balloon'' su un ''Menu'', quando, passandoci sopra, venga rilevato che non sono stati creati ancora dei sub-menu (nel nostro esempio almeno uno, che chiameremo: ''Menu2''). | ||
| − | Provvederemo a porre una ''Label'' (purché questa non dia fastidio ad eventuali altri oggetti prossimi al ''Menu'') proprio in modo contiguo al ''Menu''. La ''Label'' potrà anche essere posta totalmente al di sopra del ''Menu'': la ''Label'' non riuscirà a coprire l'azione del ''Menu'', il quale resterà comunque perfettamente funzionante | + | Provvederemo a porre una ''Label'' (purché questa non dia fastidio ad eventuali altri oggetti prossimi al ''Menu'') proprio in modo contiguo al ''Menu''. La ''Label'' potrà anche essere posta totalmente al di sopra del ''Menu'': la ''Label'' non riuscirà a coprire l'azione del ''Menu'', il quale resterà comunque perfettamente funzionante. |
Verrà, quindi, così sollevato l'evento ''_Enter'', quando il mouse entrerà nella ''Label'': | Verrà, quindi, così sollevato l'evento ''_Enter'', quando il mouse entrerà nella ''Label'': | ||
'''Public''' Sub Label1_Enter() | '''Public''' Sub Label1_Enter() | ||
| + | <FONT color=#006400>' ''Qui un comando qualsiasi... ad esempio:''</font> | ||
If IsNull(Me.Controls["Menu2"]) Then | If IsNull(Me.Controls["Menu2"]) Then | ||
Balloon.Warning("Attenzione ! Sotto-Menu assenti", Label1) | Balloon.Warning("Attenzione ! Sotto-Menu assenti", Label1) | ||
| Riga 13: | Riga 14: | ||
| − | Un'alternativa | + | Un'alternativa può essere quella di verificare il passaggio del mouse nell'area del ''Menu'', tenendo conto delle coordinate .X ed .Y assunte dal puntatore del mouse ad ogni suo spostamento. In questo caso, però, la verifica potrà avvenire solo se il mouse viene spostato tenendo premuto un suo tasto. |
| + | |||
| + | Esempio: | ||
| + | '''Public''' Sub Form_MouseMove() | ||
| + | |||
| + | Select Case Mouse.X | ||
| + | Case 15 To 50 | ||
| + | If Mouse.Y < 20 Then Print "Il mouse sta passando sul Menu !" | ||
| + | End Select | ||
| + | |||
| + | '''End''' | ||
Versione delle 17:09, 14 mag 2013
Il caso in questione è quello in cui si vuole far apparire un Balloon su un Menu, quando, passandoci sopra, venga rilevato che non sono stati creati ancora dei sub-menu (nel nostro esempio almeno uno, che chiameremo: Menu2). Provvederemo a porre una Label (purché questa non dia fastidio ad eventuali altri oggetti prossimi al Menu) proprio in modo contiguo al Menu. La Label potrà anche essere posta totalmente al di sopra del Menu: la Label non riuscirà a coprire l'azione del Menu, il quale resterà comunque perfettamente funzionante. Verrà, quindi, così sollevato l'evento _Enter, quando il mouse entrerà nella Label:
Public Sub Label1_Enter()
' Qui un comando qualsiasi... ad esempio:
If IsNull(Me.Controls["Menu2"]) Then
Balloon.Warning("Attenzione ! Sotto-Menu assenti", Label1)
Endif
End
Un'alternativa può essere quella di verificare il passaggio del mouse nell'area del Menu, tenendo conto delle coordinate .X ed .Y assunte dal puntatore del mouse ad ogni suo spostamento. In questo caso, però, la verifica potrà avvenire solo se il mouse viene spostato tenendo premuto un suo tasto.
Esempio:
Public Sub Form_MouseMove()
Select Case Mouse.X
Case 15 To 50
If Mouse.Y < 20 Then Print "Il mouse sta passando sul Menu !"
End Select
End
