Fóruns
Microsoft Excel - 2...
Formulários
Pulando linhas com ...
 
Notifications
Clear all

Pulando linhas com a Função ControlTipText

 
Formulários
Post Recente por wolneypk 11 anos atrás
3 Posts
2 Usuários
0 Reactions
1,214 Visualizações
RSS
 wolneypk
(@wolneypk)
Posts: 188
Reputable Member
Topic starter
 

Amigos, a função ControlTipText nos dá a possibilidade de deixar um comentário ou uma dica sobre um determinado objeto em nosso form certo?
Pois bem, para deixar mais apresentável essa dica, eu queria pular uma ou duas linhas na caixinha que aparece quando o mouse fica em cima do objeto.

Tipo, o texto deveria aparecer mais ou menos assim:

"Esse é o meu texto
Sim, esse é o meu texto"

Tentei fazer da seguinte maneira, mais não dei certo:

Image1.ControlTipText = "Orçamento mais recente:" & Chr(13) & Chr(13) & motivo_cancela

Alguém sabe se isso é possivel?

 
Postado : 05/10/2013 11:19 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Até onde eu sei, esta proprieddade não aceita WordWrap, sugiro adicionar um Label e colocar as seguintes rotinas no form :

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    Label1.Caption = "Orçamento mais recente:" & Chr(13) & "motivo_cancela"
    
End Sub


Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
    Label1.Caption = vbNullString
    
End Sub

[]s

 
Postado : 05/10/2013 6:04 pm
 wolneypk
(@wolneypk)
Posts: 188
Reputable Member
Topic starter
 

Mauro, obrigado pela alternativa!
Ficou perfeita!

Forte abraço man!

 
Postado : 07/10/2013 5:29 am
Forum Jump:
  Tópico Anterior
Próximo Tópico