Como Abro A Opcao De Font No Vb ?

[PedroBarreto]

já tentei com.showfont mais não deu, ele fala que não tem fonts estaladas no painel de controle.

Eu tambem queria saber como faz para que a font escolhida seja enviada ao text1

Eu tentei

Text1.font = com.font

Mais não deu

[PedroBarreto]

Na verdade eu quero sabe como que abre aquela tela que podem mudar a font e muitas outras coisas igual aquela que tem no MSN me ajudem.

[Graymalkin]

já tentei com.showfont mais não deu, ele fala que não tem fonts estaladas no painel de controle.

Esse problema tem uma solução aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=54556

Eu tambem queria saber como faz para que a font escolhida seja enviada ao text1

Eu tentei

Text1.font = com.font

Mais não deu

Você tem que fazer assim:

    Text1.FontBold = com.FontBold
    Text1.FontItalic = com.FontItalic
    Text1.FontName = com.FontName
    Text1.FontSize = com.FontSize
    Text1.FontStrikethru = com.FontStrikethru
    Text1.FontUnderline = com.FontUnderline

Abraços,

Graymalkin

[PedroBarreto]

Esplique isso.

CD1.Flags = cdlCFEffects Or cdlCFBoth

[Graymalkin]

Esplique isso.

CD1.Flags = cdlCFEffects Or cdlCFBoth

A explicação já está na página informada no tópico que indiquei.

Abraços,

Graymalkin