ik heb een combobox die ik fill met de font families:
nu wil ik de geselecteerde text uit de RTF de geselecteerde fontfamily geven uit de combobox. voor de fontsize deed ik het zo:
dit doet het precies zoals ik wil, maar als ik nu het volgende doe:
dan doet tie dus niks, hij geeft in visual studio al gelijk een blauwe onderstreping met een overload waarschuwing. Ik heb het al op allerlei manieren geprobeerd bv.
Dim newFont As System.drawing.font = cmbFontFamily.SelectedItem
en
Dim newFont As System.drawing.fontfamily = cmbFontFamily.SelectedItem
en nog wat dingen maar niks helpt
ik denk zelf dat die waarde uit cmbFontFamily.SelectedItem niet voldoet als zijnde fontfamily maar ik weet het niet zeker
wie ziet er wat ik verkeerd doe.
code:
1
2
3
4
5
6
7
8
9
10
| Dim f As System.Drawing.Text.InstalledFontCollection = New _
System.Drawing.Text.InstalledFontCollection
Dim fFamily As FontFamily
For Each fFamily In f.Families
cmb.Items.Add(fFamily.Name)
Next |
nu wil ik de geselecteerde text uit de RTF de geselecteerde fontfamily geven uit de combobox. voor de fontsize deed ik het zo:
code:
1
2
3
4
5
6
7
8
9
| Try
Dim currentFont As System.Drawing.Font = Input.SelectionFont
Input.SelectionFont = New Font( _
currentFont.FontFamily, _
cmbFontSize.SelectedItem, _
currentFont.Style)
Catch ex As Exception
End Try |
dit doet het precies zoals ik wil, maar als ik nu het volgende doe:
code:
1
2
3
4
5
6
7
8
9
| Try
Dim currentFont As System.Drawing.Font = Input.SelectionFont
Input.SelectionFont = New Font( _
cmbFontFamily.SelectedItem, _
currentFont.Size, _
currentFont.Style)
Catch ex As Exception
End Try |
dan doet tie dus niks, hij geeft in visual studio al gelijk een blauwe onderstreping met een overload waarschuwing. Ik heb het al op allerlei manieren geprobeerd bv.
Dim newFont As System.drawing.font = cmbFontFamily.SelectedItem
en
Dim newFont As System.drawing.fontfamily = cmbFontFamily.SelectedItem
en nog wat dingen maar niks helpt
ik denk zelf dat die waarde uit cmbFontFamily.SelectedItem niet voldoet als zijnde fontfamily maar ik weet het niet zeker
wie ziet er wat ik verkeerd doe.
This space for rent. Serious inquiries only please.