Commondialog

[Guest - Cleison -]

Dialogo.Flags = &H1

Dialogo.ShowFont

If Dialogo.FontName = "" Then

Dialogo.FontName = False

Else

TXTTexto.FontName = Dialogo.FontName

TXTTexto.FontSize = Dialogo.FontSize

TXTTexto.FontBold = Dialogo.FontBold

TXTTexto.FontItalic = Dialogo.FontItalic

End If

TXTTexto.FontName = Dialogo.FontName

'NESTA LINHA ESTA DANO UM ERRO, CASO EU CLICAR EM ''CANCELAR'', ISSO ACONTECE NA PRIMEIRA VEZ QUE CHAMO O CommonDialog, mas caso escolho alguma fonte, nas proxima, assim que eu clicar na aparece o erro.

Gostaria de saber, qual função ou evento que tenho que usar para evitar este erro?

[Graymalkin]

A propriedade CancelError está habilitada (com True)? Caso positivo, isso realmente vai acontecer quando você clicar no Cancelar e serve justamente para você poder detectar quando este é pressionado (você pode usar as instruções de tratamento de erro [On Error Goto e On Error Resume Next] para isso).

Abraços,

Graymalkin

[Guest - Cleison -]

bom dia... grande mestre, rs rs rs, a respeito do CancelError, esta ''False'', ah... outra coisa... estou aprendendo agora a programar, quando você falou no codigo que poderia usar, fiquei totalmente perdido. Ainda estou com o Problema. Abraços

[Graymalkin]

Ok, mas qual a mensagem de erro que aparece então?

Abraços,

Graymalkin