Aggiungi le seguenti istruzioni Imports nella parte superiore del file del modulo che contiene l'editor di testo e la casella combinata :
Importazioni System.DrawingImports
System.Drawing.Text
2
Copia e incolla il seguente codice nella classe del form :
private Sub Form1_Load ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles MyBase.LoadDim IFC Come InstalledFontCollection = New InstalledFontCollection ( ) ComboBox1.Items.AddRange ( ifc.Families ) End Sub private Sub
ComboBox1_SelectedIndexChanged ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles ComboBox1.SelectedIndexChangedRichTextBox1.Font = New Font ( ComboBox1 . SelectedText , 12) End Sub
3
Premere " F5 " per eseguire l'applicazione . Il controllo Casella combinata avrà font installati tutti del computer. Quando si cambia il tipo di carattere , la RichTextEditor utilizzerà il carattere selezionato .
Programmazione © www.354353.com