CodeGuru Home VC++ / MFC / C++ .NET / C# Visual Basic VB Forums Developer.com
Results 1 to 2 of 2
  1. #1
    Join Date
    Oct 2009
    Posts
    6

    [RESOLVED] Displaying Unicode in MSHflexgrid

    Hello,
    I have an application that prints output for later analysis. Some of the column titles require greek characters. In searching on the internet, I have found that MSHflexgrid is the only flexgrid control that can display unicode correctly. I implemented an MSHflexgrid in my application, and it worked for some time, but now it displays "." instead of display unicode.

    Is there a better flexgrid control that can display unicode correctly?

    Also, I noticed that MSHflexgrid requires the microsoft forms 2.0 library, which inherently means my user base would need MSoffice to have access to this library and its controls. Is there a control similar to MSHflexgrid that does not require a non-redistributable .dll?

    Thanks,
    Matt

  2. #2
    Join Date
    Jan 2006
    Location
    Fox Lake, IL
    Posts
    15,007

    Re: Displaying Unicode in MSHflexgrid

    VB6 has its own Flexgrid. MSFLEXGRID, which doesn't require OFFICE.
    You can use the WingDings Font. This shows a checkbox that checks and
    clears

    Code:
    Private Sub Form_Load()
        With MSFlexGrid1
            .ColWidth(0) = 400
            .RowHeightMin = 300
            .Rows = 10
            .Cols = 3
            .Row = 1
            .Col = 0
            .RowSel = .Rows - 1
            .FillStyle = flexFillRepeat
            .CellFontName = "Wingdings"
            .CellFontSize = 12
            .CellAlignment = flexAlignCenterCenter
            .Text = "q"
            .FillStyle = flexFillSingle
            .Row = 1
            .Col = 1
        End With
    End Sub
    
    Private Sub MSFlexGrid1_Click()
        With MSFlexGrid1
            If .MouseCol = 0 Then
                If .TextMatrix(.Row, 0) = "q" Then
                    .TextMatrix(.Row, 0) = "รพ"
                Else
                    .TextMatrix(.Row, 0) = "q"
                End If
            End If
        End With
    End Sub
    Attached Files Attached Files
    David

    CodeGuru Article: Bound Controls are Evil-VB6
    2013 Samples: MS CODE Samples

    CodeGuru Reviewer
    2006 Dell CSP
    2006, 2007 & 2008 MVP Visual Basic
    If your question has been answered satisfactorily, and it has been helpful, then, please, Rate this Post!

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  





Click Here to Expand Forum to Full Width

Featured