commondialog property

[ale500]

vedi se ti può essere d'aiuto.....e ricorda tentar non nuoce, il fumo si!!!!!

In questo esempio viene visualizzata la finestra di dialogo Carattere e gli attributi del carattere di una casella di testo vengono impostati in base alle selezioni dell'utente:

Private Sub Command1_Click()
    ' Imposta CancelError su True.
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    ' Imposta la proprietà Flags.
    CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth
    ' Visualizza la finestra di dialogo Carattere.
    CommonDialog1.ShowFont
    Text1.Font.Name = CommonDialog1.FontName
    Text1.Font.Size = CommonDialog1.FontSize
    Text1.Font.Bold = CommonDialog1.FontBold
    Text1.Font.Italic = CommonDialog1.FontItalic
    Text1.Font.Underline = CommonDialog1.FontUnderline
    Text1.FontStrikethru = CommonDialog1.FontStrikethru
    Text1.ForeColor = CommonDialog1.Color
    Exit Sub
ErrHandler:
    ' L'utente ha scelto il pulsante Annulla.
    Exit Sub
End Sub