ControlTipText multirighe

Question

Buongiorno a tutti,

Dopo diverse ricerche senza risultati mi rivolgo a voi per ricevere aiuto. Ho la necessità di aggiungere ai miei commandbutton che si trovano su una userform delle informazioni mediante la proprietà controltiptext. Fino qui niente di speciale, quello che serve a me e avere queste informazioni su diverse righe, la domanda è come si fa? Grazie

Answer 1

Ciao Geacs,

Dopo diverse ricerche senza risultati mi rivolgo a voi per ricevere aiuto. Ho la necessità di aggiungere ai miei commandbutton che si trovano su una userform delle informazioni mediante la proprietà controltiptext. Fino qui niente di speciale, quello che serve a me e avere queste informazioni su diverse righe, la domanda è come si fa? 

Non credo che si possa inserire alcun interruzioni di riga nel testo dei tooltip per i controlli sulla Userform. 

Tuttavia, per aggirare il problema, si potrebbe aggiungere un controllo label e sfruttare  gli eventi MouseMove dei controlli di interesse e della Userform stessa per rendere visible/nascondere il controllo Label e per visualizzare le informazioni voluti su diverse righe.

A titolo di esempio, crea una Userform con due CommandButton (cbProva1 e cbProva2) e un controllo Label (Label1). Nel modulo di codice della Userform, incolla il seguente codice:

'=========>>

Option Explicit

'--------->>

Private Sub UserForm_Initialize()

    myToolTipLabel.Visible = False

     cbProva1.Tag = "Pippo ama Pluto" & vbNewLine & "Lui non ama te!"

    cbProva2.Tag = "Questa  e'la prima riga del tooltips per for cbProva2" _

                    & vbNewLine _

                    & "Questa e'la seconda riga!"

End Sub

'--------->>

Private Sub UserForm_MouseMove(ByVal Button As Integer, _

ByVal Shift As Integer, _

ByVal X As Single, ByVal Y As Single)

    myToolTipLabel.Visible = False

End Sub

'--------->>

Private Sub cbProva1_MouseMove(ByVal Button As Integer, _

ByVal Shift As Integer, _

ByVal X As Single, _

ByVal Y As Single)

    myToolTipLabel.Visible = True

    myToolTipLabel.Top = cbProva1.Top + cbProva1.Height + 5

    myToolTipLabel.Left = cbProva1.Left

    myToolTipLabel.Caption = cbProva1.Tag

End Sub

'--------->>

Private Sub cbProva2_MouseMove(ByVal Button As Integer, _

ByVal Shift As Integer, _

ByVal X As Single, _

ByVal Y As Single)

    myToolTipLabel.Visible = True

    myToolTipLabel.Top = cbProva2.Top + cbProva2.Height + 5

    myToolTipLabel.Left = cbProva2.Left

    myToolTipLabel.Caption = cbProva2.Tag

End Sub

'<<=========

 Potresti scaricare il mio file di prova Geacs20160519.xlsm a:

https://www.dropbox.com/s/x8asq9ilh69s1z3/Geacs20160519.xlsm?dl=0

===

Regards,

Norman

Answer 2

Ciao Geacs,

 l'ho provato e non ti nascondo che mi piace. L'ho trovato molto utile.

Grazie a te, Geacs, per il cortese riscontro.

Quando hai un po' di tempo per gioccare con le Userform, potresti trovare il seguente link di Stephen Bullen di interesse:

       **http://www.oaltd.co.uk/DLCount/DLCount.asp?file=FormFun.zip**

===

Regards,

Norman

Answer 3

Ciao Norman, l'ho provato e non ti nascondo che mi piace. L'ho trovato molto utile. Grazie ancora.