PC Toledo

Enviado: **17 Jul 2014 13:34**

Boa tarde...
Existe alguma maneira de fazer a quebra de linha na MSGBox e família, do jeito que é feito no Alert com o ponto-e-vírgula?
No Alert:

Código: Selecionar todos

Alert('Primeira Linha ; Segunda Linha ; Terceira Linha')

Tõ fazendo no msgbox mas tenho que inserir uma quebra de linha

Código: Selecionar todos

Public Quebra := chr(13) + chr(10)
MsgBox( 'Primeira Linha'+Quebra+'Segunda Linha'+Quebra+'Terceira Linhas')

Se tiver algum caractere especial fica mais fácil né ?!?!?

Obrigado

Rubens

Enviado: **17 Jul 2014 14:08**

Não sei se entendi bem. Mas se for isto espero que te ajude:

Código: Selecionar todos

#include <hmg.ch>

Function Main()
MsgBox( 'Primeira Linha'+CRLF+'Segunda Linha'+CRLF+'Terceira Linha')

MsgBox(StrTran('Primeira Linha ; Segunda Linha ; Terceira Linha'," ; ",CRLF))
Return Nil

A variável Quebra, veja que eu a removi. Na HMG e creio que na Minigui Ext também já possui a constante CRLF.
Daí não precisa cria outra igual.

Obs.: Apague o outro tópico que saiu duplicado Rubens. Só você e o Toledo podem. Atente para o "x" que tem no seu segundo tópico, clique nele e confirme para apagá-lo.

Enviado: **17 Jul 2014 15:53**

Certo Pablo...

Com esta linha posso criar uma função tipo

Código: Selecionar todos

Msg( cTexto )

e receber o Texto e usar a função que você postou...

Código: Selecionar todos

Function Msg( cTexto ) 
MsgBox(StrTran(cTexto," ; ",CRLF))
Return nil

Daí não terei que alterar todas msgs do prg.

Obrigado...

p.s. Me desculpem pelo segundo post... não sei o que aconteceu... não foi intencional

Rubens

Enviado: **17 Jul 2014 18:04**

Isso mesmo Rubens, captou a ideia !

PC Toledo

Quebra de Linha MSGBox e familia

Quebra de Linha MSGBox e familia

Quebra de Linha MSGBox e familia

Quebra de Linha MSGBox e familia

Quebra de Linha MSGBox e familia