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,220 Visualizações
RSS
wolneypk
 wolneypk
(@wolneypk)
Posts: 188
Estimable 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?

"O impossível, é só uma questão de tempo"

 
Postado : 05/10/2013 11:19 am
Fernando Fernandes
 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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

Mauro, obrigado pela alternativa!
Ficou perfeita!

Forte abraço man!

"O impossível, é só uma questão de tempo"

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