FONTE DO COMMON DIALOG

GUGSDAJUBS 22/07/2005 12:10:51
#95562
Ae pessoal, num sei o que tah acontecendo.... quando tento usar o ShowFont do Common Dialog, ele exibe uma mensagem de erro dizendo que não tem fontes instaladas... mas eu tenho... alguém sabe o pq disso?

Abraços.
TRUHILLO 22/07/2005 13:05:42
#95581 Resposta escolhida 
On Error GoTo fErr
With dlgExibith
  .FontName = txtTable.Font.Name
  .FontSize = txtTable.Font.Size
  .FontBold = txtTable.Font.Bold
  .FontItalic = txtTable.Font.Italic
  .Flags = cdlCFBoth Or cdlCFNoSimulations
  .ShowFont
  txtTable.Font.Name = .FontName
  txtTable.Font.Size = .FontSize
  txtTable.Font.Bold = .FontBold
  txtTable.Font.Italic = .FontItalic
End With
Exit Sub
fErr:
Select Case Err.Number
  Case 32755, 24574: Err.Clear: Exit Sub
  Case Else: Msgbox "Ocorreu um erro na exibição das fontes.", vbCritical
End Select


Tente usar o código acima.
O CommonDialog pega as configurações atuais de fonte do txtTable e depois aplica as configurações que você definiu na caixa de diálogo.
Tópico encerrado , respostas não são mais permitidas
Voltar