Юникодный листбокс в Вижуальном Басике (v5)

Сейчас на форуме: jinoweb, bartolomeo, rmn (+5 невидимых)

Посл.ответ	Сообщение
dosprog Ранг: 431.7 (мудрец), 390thx Активность: 0.73↘0.32 Статус: Участник	Создано: 03 ноября 2017 14:20 · Поправил: dosprog · Личное сообщение · #1 Имеется программа на VB5 (использует MSVBVM50.DLL). Её смысл - ищет рядом с собой файлы с расширением INI (.INI) и список имён найденных INI файлов выводит в ListBox, давая юзеру выбрать конфигурацию. Примерно так (из VBDECOMpiler'а): Code: VERSION 5.00 Begin VB.Form frmNCSelect Begin ListBox lstMachine End End работает так: В цикле получает строчки с именами файлов INI, конвертирует их из ANSI в UNICODE и формирует на основании этих строк список для отображения в басиковом листбоксе. Code: 00409232 > 8B4D C0 MOV* ECX,DWORD PTR SS:[EBP-40> 00409235 . 51 PUSH ECX 00409236 . 68 485A4000 PUSH 00405A48 0040923B . FFD3 CALL EBX 0040923D . 85C0 TEST EAX,EAX 0040923F . 0F84 18070000 JE 0040995D 00409245 . 8B55 E4 MOV EDX,DWORD PTR SS:[EBP-1C> 00409248 . 8B45 C0 MOV EAX,DWORD PTR SS:[EBP-40> 0040924B . 52 PUSH EDX 0040924C . 50 PUSH EAX 0040924D . FF15 2C824100 CALL DWORD PTR DS:[<&MSVBVM5>; MSVBVM50.__vbaStrCat 00409253 . 8BD0 MOV EDX,EAX 00409255 . 8D4D B8 LEA ECX,DWORD PTR SS:[EBP-48> 00409258 . FF15 88834100 CALL DWORD PTR DS:[<&MSVBVM5>; MSVBVM50.__vbaStrMove 0040925E . 8B4D B8 MOV ECX,DWORD PTR SS:[EBP-48> 00409261 . 8D55 9C LEA EDX,DWORD PTR SS:[EBP-64> 00409264 . 51 PUSH ECX 00409265 . 52 PUSH EDX 00409266 . FF15 64834100 CALL DWORD PTR DS:[<&MSVBVM5>; MSVBVM50.__vbaStrToAnsi 0040926C . 50 PUSH EAX 0040926D . 6A 00 PUSH 0 0040926F . 8D45 A0 LEA EAX,DWORD PTR SS:[EBP-60> 00409272 . 68 EC3F4000 PUSH 00403FEC ; UNICODE "maxnumber" 00409277 . 50 PUSH EAX 00409278 . FF15 64834100 CALL DWORD PTR DS:[<&MSVBVM5>; MSVBVM50.__vbaStrToAnsi 0040927E . 50 PUSH EAX 0040927F . 8D4D A4 LEA ECX,DWORD PTR SS:[EBP-5C> 00409282 . 68 2C3D4000 PUSH 00403D2C ; UNICODE "Simulator_MachineSetting_MaxNumber" 00409287 . 51 PUSH ECX 00409288 . FF15 64834100 CALL DWORD PTR DS:[<&MSVBVM5>; MSVBVM50.__vbaStrToAnsi 0040928E . 50 PUSH EAX 0040928F . E8 78BDFFFF CALL 0040500C 00409294 . 8985 24FFFFFF MOV DWORD PTR SS:[EBP-DC],EA> 0040929A . FF15 34824100 CALL DWORD PTR DS:[<&MSVBVM5>; MSVBVM50.__vbaSetSystemError 004092A0 . 8B55 9C MOV EDX,DWORD PTR SS:[EBP-64> 004092A3 . 8D45 B8 LEA EAX,DWORD PTR SS:[EBP-48> Имя найденного INI файла - из ANSI в UNICODE: 004092A6 52 PUSH EDX 004092A7 50 PUSH EAX 004092A8 FF15 F0824100 CALL DWORD PTR DS:[<&MSVBVM5>; MSVBVM50.__vbaStrToUnicode 004092AE . 8B8D 24FFFFFF MOV ECX,DWORD PTR SS:[EBP-DC> 004092B4 . FF15 A8824100 CALL DWORD PTR DS:[<&MSVBVM5>; MSVBVM50.__vbaI2I4 004092BA . 8D4D 9C LEA ECX,DWORD PTR SS:[EBP-64> 004092BD . 8945 E8 MOV DWORD PTR SS:[EBP-18],EA> 004092C0 . 8D55 A0 LEA EDX,DWORD PTR SS:[EBP-60> 004092C3 . 51 PUSH ECX 004092C4 . 8D45 A4 LEA EAX,DWORD PTR SS:[EBP-5C> 004092C7 . 52 PUSH EDX 004092C8 . 50 PUSH EAX 004092C9 . 6A 03 PUSH 3 004092CB . FFD7 CALL EDI 004092CD . 8B45 CC MOV EAX,DWORD PTR SS:[EBP-34> 004092D0 . 83C4 10 ADD ESP,10 004092D3 > 66:3B45 E8 CMP AX,WORD PTR SS:[EBP-18] 004092D7 . 0F8D 3F060000 JGE 0040991C ............................................ ............................................ В общем, список в результате отображается. Проблема не в этом, а в том, что он отображается нормально в WinXP/SP3 и более новых системах, а в WinXP/SP2 в листбоксе вместо имён короткие по 2-3 левых символа строчки, явно как будто при показе выводятся не в UNICOD'е (как должно быть), а в ANSI, но сами-то строчки юникодные. Причём все строки в диалоге, кроме заголовка, тоже не отображаются корректно - это и текст на кнопках, и другие текстбоксы. Проблема, скорей всего, характерная - и раньше встречал похожее. Есть ли способ как-то это поправить, чтобы и под WinXP/SP2 строчки в листбоксе отображались нормально? --Добавлено-- ..то ли это используемый дефолтный шрифт в более старых системах не имеет юникодных символов.. При этом софтина заявленно работает под Win2k+, правда, она азиатская.

Для печати