Проблемы с поддержкой языков

[Megaz]

Вот какая проблема:
Задавал я вам один вопрос,об отображении немецких символов...но он не совсем корректный.
У меня находятся на форме datagrid и label.Проблема в том что в самой таблице символы отображаются и если ввести их в label.caption они тоже отображаются,но если написать так:

datagrid1.Col = 1
datagrid1.Row = 1
Label1.Caption = datagrid1.text

то символы изменяются( например с a умлаута на а обычный ).Подскажите пожалуйста что можно сделать чтобы исправить ето?

[tyomitch]

Прежде всего: какая Винда?

[Megaz]

Прежде всего: какая Винда?

Windows XP Pro SP2 русская... а какая разница?

[tyomitch]

А попробуй тоггда написать:

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

Dim b() As Byte
b() = datagrid1.Text


И посмотри полученный байтовый массив, там будут буквы с умляутом или без?

[Andrey Fedorov]

Собственно а у Windows какая локаль - немецкая?

Если русская, то полноценного вывода умляутов в программе на VB6 не добиться в принципе. Ибо его контролы не поддерживают уенкод. Причем в некоторые контролы после некоторых манипуляций все-же можно их вывести... Но не во все.

Это не недостаток VB6 - так и в других языках - посмотрите тот-же The Bat! к примеру. С другой стороны - вывод умляутов под русской локалью может понадобиться лишь в обучающих программах...

А вот в NET поддержка уенкода уже полная - там все реализуется без проблем...

[Megaz]

Ибо его контролы не поддерживают уенкод. Причем в некоторые контролы после некоторых манипуляций все-же можно их вывести... Но не во все.

а ты знаеш де достать такие контролы?


а про NET я знаю,но хотелось бы на vb 6 ...

[Andrey Fedorov]

а ты знаеш де достать такие контролы?

Давно занимался этим, так что уже не припомню...

а про NET я знаю,но хотелось бы на vb 6 ...

Я бы не советовал - все-же это мазохизм. Заодно с NET поработаешь...

[tyomitch]

Megaz, всё-таки расскажи, что выводится в байтовый массив?
Может, это вовсе и не контролы, а datagrid1 виноват?

[Ennor]

Темыч, по своему опыту могу сказать, что гриды в подавляющем большинстве крайне корректны в плане многоязычного отображения независимо от текущей локали. Особенность у них, у гридов, такова - дорогие они, вот и вылизываются до упора, и пишутся в расчете на серьезные вещи. Запросто поверю, что реально в гриде текст сидит в юникоде, а вот в процессе присваивания:

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

b() = datagrid1.Text

конвертация и происходит. Тут скорее через CopyMemory() нужно...

[Andrey Fedorov]

Запросто поверю, что реально в гриде текст сидит в юникоде, а вот в процессе присваивания:

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

b() = datagrid1.Text

конвертация и происходит. Тут скорее через CopyMemory() нужно...

Нет, там тоже не в уенкоде. Но с помощью бубна и танцев у меня с Janus GridEx получалось для различных ячеек задавать свой CharSet (то есть получить в них русский и умляуты одновременно).

Но сие возможно не со всеми контролами - некоторые даже при наличии свойства CharSet его игнорируют...

Посему гораздо проще использовать VB.NET - ибо там танцы и бубен не нужны по определению...

[alibek]

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

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

[Andrey Fedorov]

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

У коммерческих ошибок немного и как правило они фиксятся...
В отличии от того-же VB-шного DTPicker, у которого DataChanged так и не исправили...

[Megaz]

Megaz, всё-таки расскажи, что выводится в байтовый массив?
Может, это вовсе и не контролы, а datagrid1 виноват?

попробовал

Dim b() As Byte
b() = datagrid1.Text

,но все равно тоже самое..умлаут исчезает...

а потом проверил,поместил два лейбла,в одном символи а другой пустой,и :
Label2.Caption = label1.caption и умлаут не пропал!!!
Значит виновата datagrid!

Подскажите шо делать?

[Megaz]

Ну кто нить,подскажите плз!!!