vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2019
 
zurück
Rubrik: CommonDialog01.05.02
Schriftart ändern mit dem CommonDialog Steuerelement

VB-Version:  VB5, VB6
 Views:  11.529 

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.

Diese Seite wurde bereits 11.529 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2019 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel