[amieln]

hello i am using windows xp pro sp2 with bidirectional hebrew english arabic

lang intstalled.

The arabic is jordan arabic


and reading unicode from file writing it to label control caption property.

the label font is initialized in design time to

ariel unicode ms.

Here is the code:

Dim JordanArabicLocaleId As Long

ProjectDirectory = App.Path
Set fs = CreateObject("Scripting.FileSystemObject")
'opening the file for unicode reading
Set ResultsFile = fs.OpenTextFile(ProjectDirectory + "\" + "ArabicGuiText.txt", ForReading, , TristateTrue)
'converting the string from unucode to regular code
strLineReadFromFile = StrConv(ResultsFile.ReadLine, vbFromUnicode, JordanArabicLocaleId)

MsgBox strLineReadFromFile


LabelArab.Caption = strLineReadFromFile



LabelArab.Caption = strLineReadFromFile




but i get ??????? signes instead of the real string in the label caption


any Help would be welcomed

[Advertisements]

why dont u use properties window to change teh font??

[stu_design]

why dont u use properties window to change teh font??

[stu_design]

and what references are u using?