Отображение Unicode

[ANDLL]

Итак, зададим строку: ♠¿‼ . Эта строка будет помещаться в строковую переменную непосредственно из некоего файла.

Попытаемся вывести эту строку на hDC(используя DrawTextW). Все произошло в лучшем виде.
Теперь попытаемся установить значение свойства Text TextBox'а в эту строку. Тут нас постигнет неудача: мы увидим следующую строку:¦?!
Теперь используем SetWindowTextW. В трех вариантах:
1) Для VB-ного текстовго поля.
2) Для окна
3) Для окна класса Edit
Увы, в обоих трех случаях мы видим ¦?! несмотря на то, что передаем юникод-строку.

Вопрос: как же теперь редактировать эти строки? Ведь у VB все строки хранятся в формате Unicode. Так почему же его текстовые поля не могут редактировать значения в этой кодировке?

[ism]

Чегото непонял вопроса

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


Private Declare Function SetWindowTextW Lib "user32" (ByVal hwnd As Long, ByVal lpString As String) As Long
'__________________________________
Call SetWindowTextW(Me.hwnd, StrConv("Текст", vbUnicode))
Call SetWindowTextW(Text1.hwnd, StrConv("Текст", vbUnicode))


Все работает...

[ism]

И даже так

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


Dim hwndEdit As Long
hwndEdit = CreateWindowEx(0, "Edit", "", WS_VISIBLE Or WS_CHILD Or WS_BORDER, 10, 10, 300, 20, Me.hwnd, 0, App.hInstance, &H0)
Call SetWindowTextW(hwndEdit, StrConv("Текст", vbUnicode))


[ANDLL]

А теперь попробуй таким макаром вывести строку

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

s = ChrW(&H2660) & ChrW(&HBF) & ChrW(&H203C)

(s=♠¿‼)
В особенности сравни то, что выводит MessageBoxW и DrawTextW.
Подсказка: DrawTextW рисует правильные символы. Это согласуется с таблицея символов. А все остальные выводят "вариации на свободную тему".

[Konst_One]

для Unicode нужно юзать контролы из Forms 2.0, а intrinsic contols наследованы еще со старого бейсика, когда еще не было uncicode в винде

[ism]

Может просто MessageBoxW из-за шрифта неспособен вывести эти смволы...
Но сейчас я вообще был шокирован

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

s = ChrW(&H2660) & ChrW(&HBF) & ChrW(&H203C)
msgbox len(s)


Показывает 3, а не 6
Я всегда думал, что в юникоде 1 символ записывется 2 байтами. Это почему так?

[ANDLL]

Len показывает длину строки в символах. LenB показывает длину строки в байтах.
На счет MessageBox'а ты прав: тут все дело в шрифте. А вот с Edit'ом мне совершенно не понятно. Ведь у меня WindowsXP!!! Почему же Edit не может отображать символы UNICODE?

[ANDLL]

2Konst_One:Спасибо, действительно Forms 2.0 выводят символы Unicode. Остается вопрос с Edit.
И еще: почему Forms 2.0 не воспринимают InitCommonControls?

[tyomitch]

Люди, вы чего все? Этой зимой же проблема уже обсуждалась?

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

Option Explicit
Private Declare Function MessageBoxW Lib "user32" (ByVal hWnd As Long, ByVal lpText As Long, ByVal lpCaption As Long, ByVal wType As Long) As Long

Sub Main()
Dim s As String
s = ChrW(&H2660) & ChrW(&HBF) & ChrW(&H203C)
MessageBoxW 0, StrPtr(s), StrPtr("У меня в XP это работает прекрасно"), vbInformation
End Sub


[tyomitch]

Ответ с Edit:

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

Option Explicit
Private Declare Function SendMessageW Lib "user32" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETTEXT = &HC

Sub Main()
Dim s As String
s = ChrW(&H2660) & ChrW(&HBF) & ChrW(&H203C)
SendMessageW &H1D069E, WM_SETTEXT, 0, ByVal StrPtr(s)
End Sub


Проверено с Edit-ом в Блокноте WinXP. SetWindowTextW с его главным окном тоже нормально работает.


ANDLL, чего-то никаких проблем нету, кроме придуманных тобой

[ANDLL]

Н-да

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

    Dim s As String, hNotepad As Long
    s = ChrW(&H2660) & ChrW(&HBF) & ChrW(&H203C)
    MessageBox 0, StrPtr(s), 0, 0
    hNotepad = FindWindow("notepad", vbNullString)
    SendMessage FindWindowEx(hNotepad, 0, "Edit", vbNullString), WM_SETTEXT, 0, ByVal StrPtr(s)


И прям одно и то же отображается?

P.S. Воспитанность у тебя, tyomitch...

[tyomitch]

Н-да

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

    Dim s As String, hNotepad As Long
    s = ChrW(&H2660) & ChrW(&HBF) & ChrW(&H203C)
    MessageBox 0, StrPtr(s), 0, 0
    hNotepad = FindWindow("notepad", vbNullString)
    SendMessage FindWindowEx(hNotepad, 0, "Edit", vbNullString), WM_SETTEXT, 0, ByVal StrPtr(s)


И прям одно и то же отображается?

SendMessage у тебя как объявлена? Как Alias "SendMessageA"? Тогда ничего удивительного

(И таки-да, у меня одно и то же отображается при правильных декларациях.)

P.S. Воспитанность у тебя, tyomitch...

Э... А что я не так сказал?

[ANDLL]

Хы. Если заменить деларацию на W, то действительно, в блокноте отображается то, что нужно.
В MessageBox'е - первый символ заменяется на квадратик, остальные отображаются верно(возможно, связанно со системным шрифтом для Message'а).
Если устанавливать текст(С помощью SetWindowTextW) на новосозданном Edit'е, то отображается ерунда. Видимо связанно с тем, что шрифт, выбранный по умолчанию не поддерживает эти символы.

Э... А что я не так сказал?

Будто я для тебя сочиняю головоломки, что бы ты их разгадывал. Если считаешь вопросы смешными, неадекватными, элементарными, в-общем не заслыживающими твое святейшее внимание, просто не отвечай

ANDLL, чего-то никаких проблем нету, кроме придуманных тобой

[/i]

[tyomitch]

Хы. Если заменить деларацию на W, то действительно, в блокноте отображается то, что нужно.
В MessageBox'е - первый символ заменяется на квадратик, остальные отображаются верно(возможно, связанно со системным шрифтом для Message'а).

У меня всё отображается совершенно нормально.
Только что проверил в Win2000 - там всё так же.
Проверь декларацию.

Если устанавливать текст(С помощью SetWindowTextW) на новосозданном Edit'е, то отображается ерунда. Видимо связанно с тем, что шрифт, выбранный по умолчанию не поддерживает эти символы.

Создавать окно тоже надо через CreateWindowExW:

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

Option Explicit
Private Declare Function CreateWindowExW Lib "user32" (ByVal dwExStyle As Long, ByVal lpClassName As Long, ByVal lpWindowName As Long, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function SetWindowTextW Lib "user32" (ByVal hwnd As Long, ByVal lpString As Long) As Long
Private Const WS_VISIBLE = &H10000000
Private Const WS_CHILD = &H40000000
Private Const WS_BORDER = &H800000
Private Const WM_SETFONT = &H30
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const DEFAULT_GUI_FONT = 17
Private Declare Function GetStockObject Lib "gdi32" (ByVal nIndex As Long) As Long

Private Sub Form_Load()
Dim hwndEdit As Long
hwndEdit = CreateWindowExW(0, StrPtr("Edit"), StrPtr(""), WS_VISIBLE Or WS_CHILD Or WS_BORDER, 10, 10, 300, 20, Me.hwnd, 0, App.hInstance, &H0)
'SendMessage hwndEdit, WM_SETFONT, GetStockObject(DEFAULT_GUI_FONT), ByVal 0&
SetWindowTextW hwndEdit, StrPtr(ChrW(&H2660) & ChrW(&HBF) & ChrW(&H203C))
End Sub


Тогда вместо первого символа будет рисоваться квадратик - потому что такого символа нет в шрифте System. Когда в шрифте какого-то символа нехватает, рисуется именно квадратик, а не какой-то левый символ. Всюду, где у тебя символы меняются на левые, можешь заранее знать, что шрифт не при чём.

Если раскомментировать SendMessage, то шрифт поменяется на MS Sans Serif, и все символы отрисуются правильно.

Э... А что я не так сказал?

Будто я для тебя сочиняю головоломки, что бы ты их разгадывал. Если считаешь вопросы смешными, неадекватными, элементарными, в-общем не заслыживающими твое святейшее внимание, просто не отвечай

Мне казалось, что я ответил конкретно на заданные вопросы и привёл работающий код - в отличие от остальных отвечавших
Чем я тебя обидел-то? Где ты увидел, что я счёл вопросы "смешными, неадекватными, элементарными"??

[ism]

ЂЂЂ

Хотя я уверен, что и это также из-за шрифта, потому что скопировав и вставив вставляется ♠¿‼

[tyomitch]

ЂЂЂ

Который из? У меня их с полдесятка уже в этом топике.

[ANDLL]

Про CreateWindowExW не знал. Про WM_SETFONT тоже не догадался.

Чем я тебя обидел-то? Где ты увидел, что я счёл вопросы "смешными, неадекватными, элементарными"??

По твоему придуманные звучит лучше? Я не обижаюсь а констатирую факты.
Ладно, думаю с помощью tyomitch мы разобрадись с юникодов в виндосных окнах.

А вот на счет IDL: выбранная кодировка Unicode(Codepage 1200). В блокноте эта кодировка назывется просто "Юникод". Как я уже говорил, VC++ корректно декомпилирует этот файл и создает tli и tlh файлы именно с теми именами, которые надо. В отличие от OLEViewer'а и VisualBasic'а. Но ведь вообще COM поддерживает unicode Почему же одни клиенты нормально реагируют на unicode-имена, а другие - нет

[tyomitch]

Но ведь вообще COM поддерживает unicode Почему же одни клиенты нормально реагируют на unicode-имена, а другие - нет

Ахез, скорее всего - недописали. VB6-то уже 7 лет как вышел, и OleView тоже. Может, в VB.net уже всё нормально?

[ANDLL]

Ага. Vb.Net тоже пишет ♠¿‼, только этот в отличие от VB6 вообще отказывается работать, ссылаясь на то, что ™ - недопустимый символ.
А ї значит допустимый? Ну вот и спрашивается: есть тут логика?