Печать Unicod символов

[Lotreck]

Предисловие:
Открыть Таблицу символов (Пуск\Программы\Стандартные\Служебные\Таблица символов),
установить шрифт Arial, найти символ расположенный на пересечении пятой строки и девятой колонки, запомнить его.
Теперь вопрос:
Каким образом по команде кнопки расположенной на форме в текстовом окне расположенном на той же форме, отобразить символ находящийся на пересечинии пятой колонки и девятой строки Таблицы символов?

[iGrok]

На пересечении пятой строки и девятой колонки лежит аглицкая 'y'.

А если ты имел в виду знаки, типа ©, ®, и.т.п. то в таблице символов в нижнем правом углу написано, как его получить.

[Lotreck]

У меня в этом месте находится символ æ. Вообще-то я имел ввиду любой из 700 символов находящихся в таблице, а так же те которые
могут быть созданы самостоятельно и подключены.
Как их вставить в код я не обнаружил.

[Viper]

Функции Chr, ChrW

[Lotreck]

Не могли бы показать в коде как выглядит применение этой функции
для символов æ, или Ћ, или ↕.

[Atoman]

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

Dim char As Long
char = CLng(Asc("Ћ"))
MsgBox Chr(char) & "/" & Chr(142)

[Lotreck]

А цифры 142 что означают?

[Lotreck]

И откуда брали сам символ, из таблицы символов или из цитаты на форуме, имеет значение.

[Antonariy]

А цифры 142 что означают?

ascii-код символа Ћ

И откуда брали сам символ, из таблицы символов или из цитаты на форуме, имеет значение.

Какое?

[Lotreck]

Вы привели некорректный пример, выбрав из предложенных симвов
тот что имеет ASCII кодировку. А как быть с символом æ который имеет Unicode кодировку. Они просто не вставляются в код программы и как заставить программу их распознавать непонятно.

[Konst_One]

ChrW()
что значит?

как заставить программу их распознавать

[Lotreck]

Чтобы воспользоваться функцией ChrW() как минимум надо имеметь числовое значение кода, чтобы было что вставлять. Где взять это значение для символа æ мне неизвестно. Если вы в курсе поделитесь
информацией буду благодарен, особенно если это будут не обобщенные рассуждению а конкретный код, желательно проверенный.

[Antonariy]

Код можно взять из 1) той же таблицы символов, 2) непосредственно отсюда, из форума.
1)U+00E6 -> &HE6 = 230
2)Скопипасть юникодный символ (æ) туда, куда ты пишешь сообщение, нажми предварительный просмотр, увидишь там же вместо символа код &# 230;

[Lotreck]

Откуда взялось число 230
U+00E6 понятно, из таблицы. А остальное (->&HE=230)?
Объясните пожалуйста.
И еще почему ChrW () не работает. Не СhrW(230), не ChrW(U+00E6), не ChrW(&#230).

[Viper]

Откуда взялось число 230
U+00E6 понятно, из таблицы. А остальное (->&HE=230)?
Объясните пожалуйста.
И еще почему ChrW () не работает. Не СhrW(230), не ChrW(U+00E6), не ChrW(&#230).

U+00E6 это есть &HE6 в шестнадцатеричной системе, оно же 230 в десятичной.
ChrW(U+00E6) и ChrW(&#230) работать точно не будут, а вот СhrW(230) или СhrW(&HE6) работать в принципе будут, только вот вывести это надо туда, где поддерживается Unicode

[Atoman]

Загляни сюда http://www.vbnet.ru/vbguide

[arthur2]

chrW не поможет. Должно помочь TextOutW. (но только в текстовом поле вывести такой знак не удасться - можно только на чём-нибудь рисовать)

А знаки, которые ты попросил привести в качестве примеров, не удачны, потому что их код меньше 256, то есть уникод для них не нужен.

Вот год, он работает. Не знаю, как сделать грамотно, но общий подход приблизительно такой (по крайней мере, рыть нужно в этом направлении):

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

Option Explicit
Private Declare Function TextOut Lib "gdi32" Alias "TextOutW" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

Private Sub Form_Click()
Dim s As String, b() As Byte
ReDim b(1)

'Пишем знак с кодом 038f

b(0) = &H8F 'вторая часть 8f
b(1) = &H3 'первая часть 03
'Вообще-то, тут надо как-то присандалить КопимМемери!

s = StrConv(b, vbUnicode)
TextOut hdc, 10, 10, s, 1

End Sub

Private Sub Form_Load()

   FontName = "Verdana" ' нужно установить шрифт, который бы поддерживал уникод
   ScaleMode = 3
   FontSize = 40
End Sub


Надеюсь, уважаемые гуру подскажут, как всё это сделать в божеском виде

[Antonariy]

Откуда взялось число 230
U+00E6 понятно, из таблицы. А остальное (->&HE=230)?

Oh my god! Программист (программист ли?) не знает шестнадцатеричного счисления!
&H (буква h - первая в слове "hexadecimal", сиречь "шестнадцатеричный") - префикс для записи оных чисел в VB. U+00E6 -> &HE6 - элементарная логика. E6 = 230 - это преобразование умеет делать калькулятор.

[arthur2]

Antonariy
Если это ко мне, то нет, не программист. Но что такое шестнадцатиричная система, вообще-то представляю. Именно поэтому &he6 не подходит в качестве примера - это число вполне влазит в один байт, а значит для уникода такой знак не характерен.

Я привёл пример для знака с кодом &h038f , это Ώ Чтобы один знак занимал два байта.

Код, который я привёл, работает (см. вложение), просто он не причёсан. Какие хотите вывести знак? Ну например, ₤ - это &h20a4

b(0) = &ha4 'вторая часть a4
b(1) = &h20 'первая часть 20
' (дальше так же)

Если бы в данный момент мне нужно было выводить строки в уникоде, я бы и сам причесал свой пример. Но сейчас я разбираться не буду. А направление на TextOutW однозначно верное - другого способа вывести строку в уникоде просто нет.

[arthur2]

Я был не прав - chrw() работает. Но только если присваивать его не строке, а массиву байтов. Почему, не знаю

Вот так работает (выводится ₤ ):

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

Dim s As String, b() As Byte
'Пишем знак с кодом 20A4 (Lira Sign)
b = ChrW(&H20A4)
s = StrConv(b, vbUnicode)
TextOut hdc, 10, 10, s, 1


А вот так, почему-то, нет (выводится квадратик). Хотя, вроде бы, должно быть то же самое:

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

Dim s As String, b() As Byte
'Пишем знак с кодом 20A4 (Lira Sign)
s = ChrW(&H20A4)
s = StrConv(s, vbUnicode)
TextOut hdc, 10, 10, s, 1
' не написался  :(


Кто-нибудь может объяснить, почему? Разве строка и байтовый массив - не одно и тоже?

[Lotreck]

Я тоже не программист, осваиваю VB по по книжкам второй месяц и описания програмного перевода шестнадцетеричного счисления в десятичное ни в одной не встретил, отсюда и вопрос.
Вопрос к arthur2. Будет ли ваш код работать для символов созданных самостоятельно с помощью Eudcedit.

[arthur2]

Lotreck
Что такое Eudcedit я не знаю. Код будет правильно работать, если:
1. Известно правильное значение символа.
2. Для вывода используется шрифт, в котором для этого значения есть знак.

То есть, если ты собираешься вывести строку на санскрите, нужно не только узнать коды нужных знаков, но и использовать шрифт, в котором знаки для санскрита есть.

Скажем, если написать в ворде следующий текст:
العربية
Azərbaycan
Català
Česky
Ελληνικά
فارسی
עברית
Lëtzebuergesch
Norsk (bokmål)
Português
Română
Slovenčina
Slovenščina
Türkçe
اردو
Tiếng Việt
ייִדיש
Bân-lâm-gú
(скопировал списко языков из википедии)

затем сохранить в файл .txt, указав кодировку юникод, а затем прочитать этот файл в строку (отбросив два первых байта - это просто указание на кодировку), то весь этот списочек можно спокойненько вывести на форму.

[Lotreck]

Eudcedit - редактор личных символов.
Про Vista не знаю, для XP : Пуск/Выполнить/Eudcedit

[arthur2]

Да, я проверил - с этой Eudcedit, со знаками, в ней нарисованными, всё нормально работает. Любопытная, кстати, програмка.

Но символ, который ты нарисуешь, просто связывается с шрифтами на твоей машине, а не встраивается в шрифт. Так что самодельные знаки, кажется, только на твоей машине будут работать.

Проверить, кстати, было совсем не сложно - чего сам-то не проверил? Русуем знак с кодом &he000 (все самодельные знаки начинаются с E и больше), подставляем в пример:

b = ChrW(&HE000)
s = StrConv(b, vbUnicode)
TextOut hdc, 10, 10, s, 1

Вуаля!

[Lotreck]

Мне чтобы разобраться что к чему слишком много времени уходит.
Тут знающие люди еще один вариант посоветовали на эту же тему. Для моего уровня слишком сложно, может кто посмотрит что это за штука и как ей пользоваться.
http://www.planet-source-code.com/vb/sc ... 8&lngWId=1

[arthur2]

Да, пример вроде хороший. Но в том варианте, в котором он там лежит, всё посыпалось и ничего не запустилось.

Ручками вытащил оттуда унитексбокс. В код вникать не обязательно (я не стал, для меня это тоже тёмный лес). Всё и так работает, как с обычным текстбоксом.

А разбираться за тебя, если что, ни кто не будет. Посоветовать могут, а глубоко копать не станут. Если конечно кого-нибудь та же тема не заинтересует. Иногда спросить и дожидаться ответа - дольше выходит, чем самому докопаться.

[Lotreck]

Всем спасибо, дальше буду копать сам.