Προσθέστε τις ακόλουθες δηλώσεις εισαγωγές στην κορυφή με τη μορφή αρχείου που περιέχει το πρόγραμμα επεξεργασίας κειμένου και σύνθετο πλαίσιο :
Εισαγωγές System.DrawingImports System.Drawing.Text
2
αντιγραφή και επικόλληση τον παρακάτω κώδικα στην κατηγορία της φόρμας σας :
Private Sub Form1_Load ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές MyBase.LoadDim ifc Όπως InstalledFontCollection = Νέα InstalledFontCollection ( ) ComboBox1.Items.AddRange ( ifc.Families ) End Sub
Private Sub ComboBox1_SelectedIndexChanged ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές ComboBox1.SelectedIndexChangedRichTextBox1.Font = New Font ( ComboBox1 . SelectedText , 12 ) End Sub
εικόνων 3
Πατήστε το " F5 " για να εκτελέσετε την εφαρμογή σας . Ο έλεγχος Combo Box θα έχει όλες τις εγκατεστημένες γραμματοσειρές του υπολογιστή . Όταν αλλάξετε τη γραμματοσειρά , το RichTextEditor θα χρησιμοποιήσει τη γραμματοσειρά που επιλέξατε .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα