Sign in to follow this  

CHARFORMAT2 and Richtextbox

Recommended Posts

from MSDN  charformat2 https://msdn.microsoft.com/en-us/library/windows/desktop/bb787883(v=vs.85).aspx

what means:

#if (_RICHEDIT_VER >= 0x0800)
  BYTE     bUnderlineColor;
#endif

is these means that windows 7 don't works with underline color?

is these means that:

If LoadLibrary("msftedit.dll") <> IntPtr.Zero Then
                baseParams.ClassName = "RICHEDIT50W"
            End If

don't works with bUnderlineColor charformat member?

PS: i can, and i'm testing, change the underline style, but the color seems be ignored.

Share this post


Link to post
Share on other sites

see the consts on VB 2010:

''' <summary> 
    ''' Specifies the underline styles for a segment of rich text. 
    ''' </summary> 
    Public Enum UnderlineStyle
        ''' <summary> 
        ''' No underlining. 
        ''' </summary> 
        None = 0

        ''' <summary> 
        ''' Single-line solid underline. 
        ''' </summary> 
        Normal = 1

        ''' <summary> 
        ''' Single-line underline broken between words. 
        ''' </summary> 
        Word = 2

        ''' <summary> 
        ''' Double-line underline. 
        ''' </summary> 
        [Double] = 3

        ''' <summary> 
        ''' 'Dotted' pattern underline. 
        ''' </summary> 
        Dotted = 4

        ''' <summary> 
        ''' 'Dash' pattern underline. 
        ''' </summary> 
        Dash = 5

        ''' <summary> 
        ''' 'Dash-dot' pattern underline. 
        ''' </summary> 
        DashDot = 6

        ''' <summary> 
        ''' 'Dash-dot-dot' pattern underline. 
        ''' </summary> 
        DashDotDot = 7

        ''' <summary> 
        ''' Single-line wave style underline. 
        ''' </summary> 
        Wave = 8

        ''' <summary> 
        ''' Single-line solid underline with extra thickness. 
        ''' </summary> 
        Thick = 9

        ''' <summary> 
        ''' Single-line solid underline with less thickness. 
        ''' </summary> 
        HairLine = 10

        ''' <summary> 
        ''' Double-line wave style underline. 
        ''' </summary> 
        DoubleWave = 11

        ''' <summary> 
        ''' Single-line wave style underline with extra thickness. 
        ''' </summary> 
        HeavyWave = 12

        ''' <summary> 
        ''' 'Long Dash' pattern underline. 
        ''' </summary> 
        LongDash = 13

        ''' <summary> 
        ''' 'Dash' pattern underline with extra thickness. 
        ''' </summary> 
        ThickDash = 14

        ''' <summary> 
        ''' 'Dash-dot' pattern underline with extra thickness. 
        ''' </summary> 
        ThickDashDot = 15

        ''' <summary> 
        ''' 'Dash-dot-dot' pattern underline with extra thickness. 
        ''' </summary> 
        ThickDashDotDot = 16

        ''' <summary> 
        ''' 'Dotted' pattern underline with extra thickness. 
        ''' </summary> 
        ThickDotted = 17

        ''' <summary> 
        ''' 'Long Dash' pattern underline with extra thickness. 
        ''' </summary> 
        ThickLongDash = 18
    End Enum
    ''' <summary> 
    ''' Specifies the color of underline for a segment of rich text. 
    ''' </summary> 
    Public Enum UnderlineColor
        ''' <summary> 
        ''' No specific underline color specified. 
        ''' </summary> 
        None = 0

        ''' <summary> 
        ''' Black. 
        ''' </summary> 
        Black = 1

        ''' <summary> 
        ''' Blue. 
        ''' </summary> 
        Blue = 2

        ''' <summary> 
        ''' Cyan. 
        ''' </summary> 
        Cyan = 3

        ''' <summary> 
        ''' LimeGreen. 
        ''' </summary> 
        LimeGreen = 4

        ''' <summary> 
        ''' Magenta. 
        ''' </summary> 
        Magenta = 5

        ''' <summary> 
        ''' Red. 
        ''' </summary> 
        Red = 6

        ''' <summary> 
        ''' Yellow. 
        ''' </summary> 
        Yellow = 7

        ''' <summary> 
        ''' White. 
        ''' </summary> 
        White = 8

        ''' <summary> 
        ''' DarkBlue. 
        ''' </summary> 
        DarkBlue = 9

        ''' <summary> 
        ''' DarkCyan. 
        ''' </summary> 
        DarkCyan = 10

        ''' <summary> 
        ''' Green. 
        ''' </summary> 
        Green = 11

        ''' <summary> 
        ''' DarkMagenta. 
        ''' </summary> 
        DarkMagenta = 12

        ''' <summary> 
        ''' Brown. 
        ''' </summary> 
        Brown = 13

        ''' <summary> 
        ''' OliveGreen. 
        ''' </summary> 
        OliveGreen = 14

        ''' <summary> 
        ''' DarkGray. 
        ''' </summary> 
        DarkGray = 15

        ''' <summary> 
        ''' Gray. 
        ''' </summary> 
        Gray = 16
    End Enum

'lets Wrap the Text Table
#Region "WrapTable"
    <DllImport("kernel32.dll", CharSet:=CharSet.Auto)> _
    Private Shared Function LoadLibrary(dllName As String) As IntPtr
    End Function
    Protected Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Dim baseParams As CreateParams = MyBase.CreateParams
            If LoadLibrary("msftedit.dll") <> IntPtr.Zero Then
                baseParams.ClassName = "RICHEDIT50W"
            End If
            Return baseParams
        End Get
    End Property
#End Region
#Region "Interop-Defines"
    <StructLayout(LayoutKind.Sequential)> _
    Private Structure CHARFORMAT
        Public cbSize As Integer
        Public dwMask As UInteger
        Public dwEffects As UInteger
        Public yHeight As Integer
        Public yOffset As Integer
        Public crTextColor As Integer
        Public bCharSet As Byte
        Public bPitchAndFamily As Byte
        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=32)> _
        Public szFaceName As Char()

        ' CHARFORMAT2 from here onwards.
        Public wWeight As Short
        Public sSpacing As Short
        Public crBackColor As Integer
        Public LCID As Integer
        Public dwReserved As UInteger
        Public sStyle As Short
        Public wKerning As Short
        Public bUnderlineType As Byte
        Public bAnimation As Byte
        Public bRevAuthor As Byte
        Public bUnderlineColor As Byte
    End Structure
<DllImport("user32", CharSet:=CharSet.Auto)> _
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As Integer, ByRef lp As CHARFORMAT) As Integer
    End Function

    Private Const WM_USER As Integer = &H400
    Private Const EM_GETCHARFORMAT As Integer = WM_USER + 58
    Private Const EM_SETCHARFORMAT As Integer = WM_USER + 68
    Private Const SCF_SELECTION As Integer = &H1
    Private Const SCF_WORD As Integer = &H2
    Private Const SCF_ALL As Integer = &H4
    Private Const EM_GETPARAFORMAT As Integer = 1085
    Private Const EM_SETPARAFORMAT As Integer = 1095
    Private Const PFM_ALIGNMENT As Integer = 8

#Region "CHARFORMAT2 Flags"
    Private Const CFE_BOLD As UInt32 = &H1
    Private Const CFE_ITALIC As UInt32 = &H2
    Private Const CFE_UNDERLINE As UInt32 = &H4
    Private Const CFE_STRIKEOUT As UInt32 = &H8
    Private Const CFE_PROTECTED As UInt32 = &H10
    Private Const CFE_LINK As UInt32 = &H20
    Private Const CFE_AUTOCOLOR As UInt32 = &H40000000
    Private Const CFE_SUBSCRIPT As UInt32 = &H10000
    ' Superscript and subscript are 
    Private Const CFE_SUPERSCRIPT As UInt32 = &H20000
    ' mutually exclusive 
    Private Const CFM_SMALLCAPS As Integer = &H40
    ' (*) 
    Private Const CFM_ALLCAPS As Integer = &H80
    ' Displayed by 3.0 
    Private Const CFM_HIDDEN As Integer = &H100
    ' Hidden by 3.0 
    Private Const CFM_OUTLINE As Integer = &H200
    ' (*) 
    Private Const CFM_SHADOW As Integer = &H400
    ' (*) 
    Private Const CFM_EMBOSS As Integer = &H800
    ' (*) 
    Private Const CFM_IMPRINT As Integer = &H1000
    ' (*) 
    Private Const CFM_DISABLED As Integer = &H2000
    Private Const CFM_REVISED As Integer = &H4000
    Private Const CFM_BACKCOLOR As Integer = &H4000000
    Private Const CFM_LCID As Integer = &H2000000
    Private Const CFM_UNDERLINETYPE As Integer = &H800000
    ' Many displayed by 3.0 
    Private Const CFM_WEIGHT As Integer = &H400000
    Private Const CFM_SPACING As Integer = &H200000
    ' Displayed by 3.0 
    Private Const CFM_KERNING As Integer = &H100000
    ' (*) 
    Private Const CFM_STYLE As Integer = &H80000
    ' (*) 
    Private Const CFM_ANIMATION As Integer = &H40000
    ' (*) 
    Private Const CFM_REVAUTHOR As Integer = &H8000
    Private Const CFM_BOLD As UInt32 = &H1
    Private Const CFM_ITALIC As UInt32 = &H2
    Private Const CFM_UNDERLINE As UInt32 = &H4
    Private Const CFM_STRIKEOUT As UInt32 = &H8
    Private Const CFM_PROTECTED As UInt32 = &H10
    Private Const CFM_LINK As UInt32 = &H20
    Private Const CFM_SIZE As UInt32 = &H8000000
    Private Const CFM_COLOR As UInt32 = &H40000000
    Private Const CFM_FACE As UInt32 = &H20000000
    Private Const CFM_OFFSET As UInt32 = &H10000000
    Private Const CFM_CHARSET As UInt32 = &H8000000
    Private Const CFM_SUBSCRIPT As UInt32 = CFE_SUBSCRIPT Or CFE_SUPERSCRIPT
    Private Const CFM_SUPERSCRIPT As UInt32 = CFM_SUBSCRIPT
    Private Const CFU_UNDERLINENONE As Byte = &H0
    Private Const CFU_UNDERLINE As Byte = &H1
    Private Const CFU_UNDERLINEWORD As Byte = &H2
    ' (*) displayed as ordinary underline 
    Private Const CFU_UNDERLINEDOUBLE As Byte = &H3
    ' (*) displayed as ordinary underline 
    Private Const CFU_UNDERLINEDOTTED As Byte = &H4
    Private Const CFU_UNDERLINEDASH As Byte = &H5
    Private Const CFU_UNDERLINEDASHDOT As Byte = &H6
    Private Const CFU_UNDERLINEDASHDOTDOT As Byte = &H7
    Private Const CFU_UNDERLINEWAVE As Byte = &H8
    Private Const CFU_UNDERLINETHICK As Byte = &H9
    Private Const CFU_UNDERLINEHAIRLINE As Byte = &HA
    ' (*) displayed as ordinary underline 
#End Region
#End Region

and now how i use them:

Public Sub SelectionUnderline(ByVal UTUnderlineType As UnderlineStyle, Optional ByVal UnderlineColor As UnderlineColor = PlusRichTextBox.UnderlineColor.Black)

        ' Set the underline color 
        Dim RTFformat As New CHARFORMAT()
        RTFformat.cbSize = Marshal.SizeOf(RTFformat)
        RTFformat.dwMask = CFM_UNDERLINETYPE Or CFM_UNDERLINE


        RTFformat.bUnderlineType = CByte(UTUnderlineType)
        RTFformat.bUnderlineColor = CByte(UnderlineColor)
        SendMessage(Me.Handle, EM_SETCHARFORMAT, SCF_SELECTION, RTFformat)

    End Sub

now the underline isn't showed :(

i don't understand why

Share this post


Link to post
Share on other sites

now works... seen several diferent codes, can make us confused.

so i found several errors:

1 - the color consts:

''' <summary> 
    ''' Specifies the color of underline for a segment of rich text. 
    ''' </summary> 
    Public Enum UnderlineColor
       
        ''' <summary> 
        ''' Black. 
        ''' </summary> 
        Black = 0

        ''' <summary> 
        ''' Blue. 
        ''' </summary> 
        Blue = 1

        ''' <summary> 
        ''' Cyan. 
        ''' </summary> 
        Cyan = 2

        ''' <summary> 
        ''' LimeGreen. 
        ''' </summary> 
        LimeGreen = 3

        ''' <summary> 
        ''' Magenta. 
        ''' </summary> 
        Magenta = 4

        ''' <summary> 
        ''' Red. 
        ''' </summary> 
        Red = 5

        ''' <summary> 
        ''' Yellow. 
        ''' </summary> 
        Yellow = 6

        ''' <summary> 
        ''' White. 
        ''' </summary> 
        White = 7

        ''' <summary> 
        ''' DarkBlue. 
        ''' </summary> 
        DarkBlue = 8

        ''' <summary> 
        ''' DarkCyan. 
        ''' </summary> 
        DarkCyan = 9

        ''' <summary> 
        ''' Green. 
        ''' </summary> 
        Green = 10

        ''' <summary> 
        ''' DarkMagenta. 
        ''' </summary> 
        DarkMagenta = 11

        ''' <summary> 
        ''' Brown. 
        ''' </summary> 
        Brown = 12

        ''' <summary> 
        ''' OliveGreen. 
        ''' </summary> 
        OliveGreen = 13

        ''' <summary> 
        ''' DarkGray. 
        ''' </summary> 
        DarkGray = 14

        ''' <summary> 
        ''' Gray. 
        ''' </summary> 
        Gray = 15
    End Enum

2 - yes we must use the effects too:

Public Sub SelectionUnderline(ByVal UTUnderlineType As UnderlineStyle, Optional ByVal UnderlineColor As UnderlineColor = PlusRichTextBox.UnderlineColor.Black)

        ' Set the underline color 
        Dim RTFformat As New CHARFORMAT()
        RTFformat.cbSize = Marshal.SizeOf(RTFformat)
        RTFformat.dwMask = CFM_UNDERLINETYPE Or CFM_UNDERLINE
        RTFformat.dwEffects = CFE_UNDERLINE

        RTFformat.bUnderlineType = CByte(UTUnderlineType)
        RTFformat.bUnderlineColor = CByte(UnderlineColor)
        SendMessage(Me.Handle, EM_SETCHARFORMAT, SCF_SELECTION, RTFformat)

    End Sub

thank you so much.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

Sign in to follow this