Jag har letat runt efter hur man snyggt och smidigt listar upp alla teckensnitt i en combo box i vb.net. Det verkar inte vara som i gamla vb 6, så jag undrar om det finns någon som vet hur det går till? du menar typ http://www.vbaccelerator.com/home/NET/Code/Controls/ListBox_and_ComboBox/Font_Picker/article.asp jo.. men det verkar hänga mycket på C#-kod.. =P.. hmm Jahapp.. verkade inte som att någon hittade ett bra svar, men jag pillade lite extra själv och lyckades iaf komma fram till något som fungerar bra.fonts i combo
En bonus skulle det ju vara om någon också kunde visa ett smidigt sätt att lista upp deras namn med deras egna stil i combon.Sv: fonts i combo
Sv:fonts i combo
för övrigt så verkar det som att jag dessutom har trubbel med att ändra fontstorlek i textboxen...
Tex såhär:
Dim keff As Single = 12
Texten.SelectionFont = New Font(Texten.SelectionFont, keff)
Den verkar fortfarande inte förstå att det är värdet på emSize som ska ändras utan istället försöker den ändra newStyle, och stilen blandar sig med olika kombinationer av fetstil och understruket, etc.
Sv: fonts i combo
Så här blev koden för att lista alla fonts i combo-boxen för mig (Texten är en rich textbox)
Dim oFF As Drawing.FontFamily
Dim mFC As New FontConverter
comFont.Items.Clear() 'töm combo-boxen så den inte bara fylls på med samma igen
For Each oFF In System.Drawing.FontFamily.Families 'så går man igenom alla fonts i systemet
If oFF.IsStyleAvailable(FontStyle.Regular) = False Then
'De här fontsen går inte att lista in?
Else
'Bra font som fungerar, lägg in den =)
comFont.Items.Add(oFF.Name)
'comFont.Font = mFC.ConvertFromString(oFF.Name)
End If
Next
Så om det är fler som undrar, kan det i varje fall göras såhär.