Announcement

Collapse
No announcement yet.

ilist ... Part of the Chinese display is still garbled~

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • ilist ... Part of the Chinese display is still garbled~

    I downloaded the best version of the RR, but the test still exist about this issue. Most of the Chinese name can be displayed properly, but still part of it will appear as garbage characters. The code I used in 2007 to compile a moment can be displayed properly in English and Chinese. This is done like this:
    The ilist control, the use LenC this function instead of VB's Len function. If you can hope that RR can be a little change it into Chinese. Thank you very much.

    Public Function LenC(s As String) As Integer
    Dim N As Integer
    LenC = 0
    For N = 1 To Len(s)
    If (AscW(Mid(s, N, 1)) > 256) Or (AscW(Mid(s, N, 1)) < 0) Then
    LenC = LenC + 2
    Else
    LenC = LenC + 1
    End If
    Next N
    End Function

  • #2
    Can you Send me a private message with an example file/song that doesn't display Chinese right ? I don't see anything wrong in the code, and I'm using Unicode functions to display the text -- in unicode a Character in Chinese is 2 Bytes, and a character in English is ALSO 2 bytes, so there's no need to adjust the size using LenC.

    Originally posted by aniceking View Post
    I downloaded the best version of the RR, but the test still exist about this issue. Most of the Chinese name can be displayed properly, but still part of it will appear as garbage characters. The code I used in 2007 to compile a moment can be displayed properly in English and Chinese. This is done like this:
    The ilist control, the use LenC this function instead of VB's Len function. If you can hope that RR can be a little change it into Chinese. Thank you very much.

    Public Function LenC(s As String) As Integer
    Dim N As Integer
    LenC = 0
    For N = 1 To Len(s)
    If (AscW(Mid(s, N, 1)) > 256) Or (AscW(Mid(s, N, 1)) < 0) Then
    LenC = LenC + 2
    Else
    LenC = LenC + 1
    End If
    Next N
    End Function
    Ride Runner RR's Myspace

    "Being happy is not about having what you want, it's about wanting what you have."
    "The best things in life are always free - but that doesn't mean money can't buy you good things."

    Comment

    Working...
    X