Forum di Excel e VBA, per condividere esperienze e risolvere problemi su:
Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
Testo in Label
- Hai un problema con Excel?
Testo in Label
di gargiu data: 12/08/2015 15:25:04
Ciao a tutti, ho il seguente quesito.
È possibile tramite VBA gestire il testo in una Label modificandone le caratteristiche al passaggio del mouse, come succede nei siti web, che quando il mouse passa sopra ad un testo a cui é associato un link, questo viene evidenziato in grassetto e sottolineato?
Grazie
di Vecchio Frac data: 12/08/2015 16:07:19
Sì, devi gestire l'evento MouseMove della Label (e del form per ripristinare l'aspetto della label quando togli il mouse).
di gargiu data: 12/08/2015 16:22:11
Grazie per la risposta... effettivamente ci avevo provato a lavorare con l'evento MouseMove, applicando il codice che vedi sotto, che sarà sicuramente ridicolo, ma non capisco come correggerlo e come applicare oltre alla caratteristica "Underline" anche l'aspetto "Bold".
Se mi fai qualche esempio di codice....!?!?
Grazie
Private Sub Label9_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label9.Font.Underline End Sub
di gargiu data: 12/08/2015 16:33:24
Un passo avanto l'ho fatto correggendo il codice con l'aggiunta: "... = True".
Effettivamente il testo vine sottolineato quando passo sopra con il mouse. Però la sottolineatura poi rimane.
Come correggo il codice per poi togliere la sottolineatura quando il mouse non é più sopra la Label9?
Private Sub Label9_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label9.Font.Underline = True End Sub
di Vecchio Frac data: 12/08/2015 20:18:41
Rileggi quello che ti ho scritto tra parentesi (sapendo che avresti avuto questo problema te lo avevo già suggerito, il modo).
di gargiu data: 13/08/2015 07:52:13
Ho capito grazie, mi era sfuggito il suggerimento.
- Vuoi Approfondire?
