Não estou conseguindo abrir o seletor de fontes com o common dialog, estou usando o seguinte codigo:

 

On Error Resume Next
   CD.CancelError = True
   CD.ShowFont
   CD.Flags = cdlCFScalableOnly
   If Err.Number = 0 Then
       Text1.Text = CD.FontName
   End If

 

mas quando eu rodo aparece uma mensagem dizendo que não há fontes instaladas....
e que é pra abrir a pasta fontes do painel de controle pra instalar as fontes....

mas tem um monte de fontes instaladas!
O q devo fazer???

Obrigado!

se vc quiser somente lista as fontes do seu sistema ai vai:

 

Dim nCont As Integer
  For nCont = 0 To Screen.FontCount - 1
     List1.AddItem Screen.Fonts(nCont )
  Next

Boa dica, mas eu queria abrir aquela janelinha p/ que o usuario possa selecionar a fonte desejada....

 

vlw!

Segundo o help do VB, para usar a seleção de fontes, na propriedade Flags você OBRIGATORIAMENTE deverá usar um dos parâmetros abaixo:

cdlCFBoth = &H3;

cdlCFPrinterFonts = &H2 ou

cdlCFScreenFonts = &H1

Qualquer outro parâmetro irá gerar o erro que você está recebendo.

 

Um abraço,

Sandro