Символы Unicode в меню

[viter.alex]

формирую я свое меню в цикле. Символы беру из массива.

Код: Выделить всё

AppendMenu hPopMenu, MF_ENABLED, CLng(j), arChars(j)

И вот что получается:

Некоторые символы отображаются, а некоторые (¢, ¥) — нет.
Почему?

[arthur2]

объяви AppendMenuW

[viter.alex]

Было объявлено так:

Код: Выделить всё

Public Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long

Изменил. После этого нужно конвертить строку в Unicode, а потом показывать, иначе получится как на картинке:

Код: Выделить всё

Public Declare Function AppendMenu Lib "user32" Alias "AppendMenuW" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long

AppendMenu hPopMenu, IIf(arChars(j - 1) = "vertbreak", MF_ENABLED Or MF_MENUBARBREAK, MF_ENABLED), CLng(j), CStr(StrConv(Replace(Replace(Replace(arChars(j), "^", ""), "{", ""), "}", ""), vbUnicode))

Спасибо.

[arthur2]

После этого нужно конвертить строку в Unicode, а потом показывать, иначе получится как на картинке:

Не надо ничего конвертировать Объяви строку byval as long и передавай strptr

[viter.alex]

Точно, а почему так получается?

[karlex]

Потому что если в объявлении функции параметр имеет тип String, то VB будет переводить передаваемое значение в ANSI, и ему ни о чем не говорит суффикс функции "W".
А вот если строку в Unicode еще раз конвертировать в Unicode, получится двойной Unicode и, когда VB будет конвертировать такую строку к ANSI, получится обычный Unicode, т.е. как раз то, что нужно.
Совет arthur2 может быть опасен в плане отладки, лучше объявить как String.

[Хакер]

Не лучше.

[karlex]

Хотя, да, каюсь, поспешил.
Лишнее конвертирование и помнить нужно, о том что нужно конвертировать.

[Хакер]

viewtopic.php?f=44&t=26149