Return New Font(f, ToggleMask(f.Style, mask)) Private Function toggleFontStyle( ByVal f As Font, ByVal mask As FontStyle) As Font RtbChat.SelectionFont = toggleFontStyle(rtbChat.SelectionFont, FontStyle.Underline) RtbChat.SelectionFont = toggleFontStyle(rtbChat.SelectionFont, FontStyle.Italic) RtbChat.SelectionFont = toggleFontStyle(rtbChat.SelectionFont, FontStyle.Bold) RtbChat.SelectionAlignment = ToggleMask(HorizontalAlignment.Left, HorizontalAlignment.Right) RtbChat.SelectionAlignment = ToggleMask(HorizontalAlignment.Left, HorizontalAlignment.Left) RtbChat.SelectionAlignment = ToggleMask(HorizontalAlignment.Left, HorizontalAlignment.Center) Private Sub frmChat_KeyDown( ByVal sender As Object, ByVal e As ) Handles Me. Private Sub cbUnderscore_Click( ByVal sender As Object, ByVal e As System.EventArgs) Handles cbUnderscore.Click Private Sub cbItalic_Click( ByVal sender As Object, ByVal e As System.EventArgs) Handles cbItalic.Click Private Sub cbBold_Click( ByVal sender As Object, ByVal e As System.EventArgs) Handles cbBold.Click
0 Comments
Leave a Reply. |