vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: Combobox Fontauswahl mit angepasst formatierten DropDown-Einträgen 
Autor: Dideldum
Datum: 07.03.23 18:27
Jetzt bin ich ein bisserl weiter...
Aber umso verwirrter.

Test-Code: 
If tsc_TextEditor_RTFBox.SelectionFont IsNot Nothing Then
 
    Dim newString As String = _
      sym_TextEditor_Format_cob_Schriftart.SelectedItem.ToString
    Dim newFont As New Font(newString, CInt( _
    tsc_TextEditor_RTFBox.SelectionFont.Size + 0.5), _
    tsc_TextEditor_RTFBox.SelectionFont.Style)
 
    Debug.Print(newFont.FontFamily.ToString & " ... `" & newFont.Name & "´" & "" & _
      "/ " & newString & " - " & tsc_TextEditor_RTFBox.SelectionFont.Size & " -" & _
      "" & tsc_TextEditor_RTFBox.SelectionFont.Style)
 
    tsc_TextEditor_RTFBox.SelectionFont = newFont
End If
Ergebnis des testhalber eingebauten Debug.Prints ist z.B. wenn ich in meiner Combo_Schriftart die Schriftart "Segoe UI Semilight" auswähle:

"[FontFamily: Name=Microsoft Sans Serif] ... `Microsoft Sans Serif´ / [FontFamily: Name=Segeo UI Semilight] - 12 - 0"

Also übernimmt die Variable "newFont" nicht neue Font mit den dieser übergebenen Werte.

Selbst, wenn ich die neue Font vereinfacht so definiere: 
Dim newFont As New Font( _
  sym_TextEditor_Format_cob_Schriftart.SelectedItem.ToString, 12, _
  FontStyle.Regular)
bleibt die Variable "newFont" auf der Standard-Einstellung mit "MS Sans Serif" als FontFamily.

Mit 
Dim newFont As New Font("Playbill", 12, FontStyle.Regular)
funktioniert es aber.

Also liegt es am String, den ich aus dem selectedItem der Combo_Schriftart übernehme.

Was mache ich denn falsch, dass ich "newFont" nicht die Auswahl der Combo-Schriftart zuordnen kann?

EDIT:
Oh Mann - Fehler gefunden und vor Stirn patsche... 
If tsc_TextEditor_RTFBox.SelectionFont IsNot Nothing Then
 
    Dim cboString As FontFamily = _
      sym_TextEditor_Format_cob_Schriftart.SelectedItem
    Dim newFont As New Font(cboString.Name, CInt( _
    tsc_TextEditor_RTFBox.SelectionFont.Size + 0.5), _
    tsc_TextEditor_RTFBox.SelectionFont.Style)
    tsc_TextEditor_RTFBox.SelectionFont = newFont
End If
So funzt es

Beitrag wurde zuletzt am 07.03.23 um 18:36:11 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Combobox Fontauswahl mit angepasst formatierten DropDown-Ein...475Dideldum04.02.23 23:19
Re: Combobox Fontauswahl mit angepasst formatierten DropDown...335Manfred X05.02.23 10:38
Re: Combobox Fontauswahl mit angepasst formatierten DropDown...290Dideldum05.02.23 23:08
Re: Combobox Fontauswahl mit angepasst formatierten DropDown...292Kuno6006.02.23 01:32
Re: Combobox Fontauswahl mit angepasst formatierten DropDown...227Manfred X06.02.23 08:40
Re: Combobox Fontauswahl mit angepasst formatierten DropDown...185Dideldum11.02.23 18:59
Re: Combobox Fontauswahl mit angepasst formatierten DropDown...188Dideldum05.03.23 18:19
Re: Combobox Fontauswahl mit angepasst formatierten DropDown...160Dideldum06.03.23 16:27
Re: Combobox Fontauswahl mit angepasst formatierten DropDown...111Dideldum07.03.23 18:27
Re: Combobox Fontauswahl mit angepasst formatierten DropDown...112Dideldum09.03.23 21:46

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 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