Schriftart ändern mit dem CommonDialog Steuerelement VB-Version:  VB5, VB6
	Views:  14.417

Mit dem Standard-Dialog-Steuerelement können Sie dem Benutzer anbieten, die Schriftart - z. B. in einem Editor - zur Laufzeit zu ändern.

Für unser Beispiel benötigen Sie eine TextBox (Text1), deren MultiLine-Eigenschaft auf True gesetzt ist, einen CommandButton (cmdFont) sowie das CommonDialog Control, das Sie über " Komponenten hinzufügen" auswählen. Dann noch folgenden Code:

Private Sub cmdFont_Click()
  ' wird im "CommonDialog" auf "Abbrechen" geklickt,
  ' wird (wenn CancelError = True ist) ein Laufzeitfehler ausgelöst.
  On Error Resume Next
  With CommonDialog1
    .CancelError = True
 
    ' Die Flags-Eigenschaft muss auf cdlCFScreenFonts,
    ' cdlCFPrinterFonts oder cdlCFBoth gesetzt werden,
    ' bevor das Dialogfeld Schriftart angezeigt wird,
    ' sonst tritt der Fehler "Keine Schriftarten vorhanden" auf.
    .Flags = cdlCFEffects Or cdlCFBoth
 
    ' Dialogfeld Schriftart anzeigen
    .ShowFont
 
    If Err = 0 Then
      ' Text markieren und Benutzereingaben übernehmen
      Text1.SelStart = 0
      Text1.SelLength = 999
      Text1.FontName = .FontName
      Text1.FontBold = .FontBold
      Text1.FontItalic = .FontItalic
      Text1.FontSize = .FontSize
      Text1.FontStrikethru = .FontStrikethru
      Text1.FontUnderline = .FontUnderline
    End If  
  End With
End Sub

Starten Sie Ihr Programm, geben Sie Text in die TextBox ein und klicken Sie auf den CommandButton um die Schriftauswahl aufzurufen. Ändern Sie die Schriftart und z. B. die Schriftgröße und klicken Sie auf OK. Der gesamte eingegebene Text wurde geändert.