[VB.NET] fontstyle

[toost]

ik ben bezig met een simpele textverwerker te maken. Nu ben ik aan gekomen bij de knopjes bold/italic/underline. Het princiepe is niet moeilijk maar de uitwerking wat meer ik heb de volgende code:

code:

        If Input.SelectionFont.Underline Then
            Dim ifont As New Font(Input.Font, FontStyle.Regular)
            Input.SelectionFont = ifont
        Else
            Dim ifont1 As New Font(Input.Font, FontStyle.Underline)
            Input.SelectionFont = ifont1
        End If

Hij werkt zoals hij zo moeten. Druk je op de knop dan underline, istie al underline dan regular. Maar dit houd in dat de tekst alleen bold of alleen underlined of alleen italic kan zijn. En uiteraard is dit niet praktisch. Wie kan mij vertellen hoe ik dan meerdere fontstyle aan een stukje tekst kan mee geven.

Maar hier volgt waarschijnlijk nog een vraag op. Want als een stukje tekst bold en italic is en je wil de bold er af hebben, dus je drukt op de knop en de fontstyle wordt weer regular ben je dus ook italic kwijt. Dit is uiteraard op te lossen door te zoeken op meerdere fontstylen, maar dit lijkt me wel omslachtig. Dus een if in een in. Iemand die me hier mee kan helpen ?

greets TooST

[whoami]

FontStyle is een 'Flags' enumerated type. Dat wil zeggen dat je de verschillende enum-values kunt combineren mbhv + of |

code:

FontStyle.Bold + FontStyle.Italic

of

code:

FontStyle.Bold | FontStyle.Italic

[royteusink]

Controleer gewoon of de geselecteerde tekst ook nog bold is ^^

Klik bold

als font is italic & bold dan
italic + regular
anders
italic + bold


Je kan dergelijke smilies achterwege laten....

[ Voor 21% gewijzigd door whoami op 24-04-2006 10:39 ]

[toost]

whoami, thnx dat wist ik nog niet, denk dat ik daar wel mee uit de voeten kan.

[PaulZ]

Ik heb ooit hier ook wel eens mee gestoeid:

code:

    Private Sub BTN_BOLD_Activate(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles BTN_BOLD.Activate
        If Not Me.TB_RAPTEXT.SelectionFont Is Nothing Then
            Dim currentFont As System.Drawing.Font = Me.TB_RAPTEXT.SelectionFont
            Dim newFontStyle As System.Drawing.FontStyle
            Try
                'BOLD uit
                If Me.TB_RAPTEXT.SelectionFont.Bold = True Then
                    newFontStyle = currentFont.Style - FontStyle.Bold
                'BOLD aan
                Else
                    newFontStyle = currentFont.Style + FontStyle.Bold
                End If

                Me.TB_RAPTEXT.SelectionFont = New Font( _
                   currentFont.FontFamily, _
                   currentFont.Size, _
                   newFontStyle)
            Catch ex As Exception
            End Try
        End If
    End Sub

Kan misschien nog wel wat aan verbeterd worden, maar als aanzetje misschien wel te gebruiken voor je.

[toost]

Ik zou niet weten wat er aan verbeterd kan worden, want het doet precies wat het moet doen, THNX!

[PaulZ]

Overigens: als je ooit nog eens met spellingscontrole gaat stoeien houd ik me aanbevolen

[toost]

Ik stuur je even een mailtje Paul (op je hotmail)