PlanetSquires Forums

Support Forums => Other Software and Code => Topic started by: HUNK Allan on November 09, 2008, 03:05:36 AM

Title: bug in build form files
Post by: HUNK Allan on November 09, 2008, 03:05:36 AM
That is all I wanted in Chinese
Is a simple form in the document appear anywhere as long as the Chinese characters after the compiler can lead to failure

Sample:
'------------------------------------------------------------------------------------------------------------------------
Function FORM1_COMMAND1_BN_CLICKED (ControlIndex As Long, hWndForm As Dword, hWndControl As Dword, idButtonControl As Long) As Long
Local mystring As String

'???????' As long as the Chinese characters appear after the compiler can lead to failure
mystring="???????"    ' As long as the Chinese characters appear after the compiler can lead to failure
MsgBox mystring

End Function


Error Number =454

way ? Unicode??
You upgrade version of Chinese characters can hope for support


Title: Re: bug in build form files
Post by: TechSupport on November 09, 2008, 10:15:08 AM
Hi Allan,

FireFly does not support unicode characters. FireFly 3 will not support unicode characters either. Sorry.

Title: Re: bug in build form files
Post by: HUNK Allan on November 09, 2008, 11:25:20 AM
I use a conversion methods

local udstr as string

udstr = Chr$(&HB0,&HA1) & Chr$(&HB0,&HA1) & Chr$(&H20,&H71) & Chr$(&HCE,&HD2) & Chr$(&HCA,&HC7) & Chr$(&HD6,&HD0) & Chr$(&HCE,&HC4) & Chr$(&H2E,&H2E) & Chr$(&HB0,&HA2) & Chr$(&H7A,&H21)


MsgBox udstr

I hope that the version 3.0 release as soon as possible.
Use this method it is not very satisfactory,
Despite being able to use this way to solve this problem!



In order to facilitate the preparation of the code,
I wrote a small tool for conversion.

If the program automatically shut down, you may have to close the FireFily
He did not find FireFly, will turn off automatically after 10 seconds,
The procedure for the FireFly 2.91 version.

But easily lead to long lines of code,
Will fail to compile,
"_" With more lines on it.

Function FORM1_COMMAND1_BN_CLICKED (ControlIndex As Long, hWndForm As Dword, hWndControl As Dword, idButtonControl As Long) As Long
Local test ,test2 ,test3 As String
test=Chr$(&HD5,&HE2) & Chr$(&HB8,&HF6) & Chr$(&HCA,&HC7) & Chr$(&HD6,&HD0) & Chr$(&HCE,&HC4) & Chr$(&HC4,&HDA) _
& Chr$(&HC8,&HDD) & Chr$(&H20,&HC4) & Chr$(&HE3,&HD2) & Chr$(&HB2,&HBF) & Chr$(&HC9,&HD2) _
& Chr$(&HD4,&HD3) & Chr$(&HC3,&HC6) & Chr$(&HE4,&HCB) & Chr$(&HFB,&H75) & Chr$(&H6E,&H69) _
& Chr$(&H63,&H6F) & Chr$(&H64,&H65) & Chr$(&HD7,&HD6) & Chr$(&HB7,&HFB)
test2=Chr$(&HB5,&HB1) & Chr$(&HC8,&HBB) & Chr$(&HD2,&HB2) & Chr$(&HBF,&HC9) & Chr$(&HD2,&HD4) & Chr$(&HB4,&HF8) & Chr$(&H31,&H32) & Chr$(&H33,&H41) & Chr$(&H62,&H63)
test3=Chr$(&HD5,&HE2) & Chr$(&HB8,&HF6) & Chr$(&HB7,&HBD) & Chr$(&HB7,&HA8) & Chr$(&HCA,&HC7) & Chr$(&HB8,&HF6) & Chr$(&HB9,&HFD) & Chr$(&HB6,&HC9)

MsgBox   test & "-.-" & Chr$(&HD5,&HE2) & Chr$(&HB8,&HF6) & Chr$(&HCA,&HC7) & Chr$(&HD6,&HD0) & Chr$(&HCE,&HC4) & Chr$(&HC4,&HDA) & Chr$(&HC8,&HDD) + "-.-"+ test2 , ,test3
End Function