Записать в лейбл символ фунта стерлингов

[Anatoliy]

Добрый всем день.
Стоит задача записать в лейбл текст, содержащий символ фунта стерлингов.
Вообщето среди описания ASCII символов существует символ Chr(163) - Pound Sterling. Но на лейбле он выводится как литера "J"
Расширенная функция ChrW также ничего не дает. Перебрал в цикле все 65535 символов, ничего похожего на £ не нашел.

[Antonariy]

Что-то мне кажется, что это получится только используя шрифт, в котором имеено он нарисован под кодом 163.

₤
Это вроде он?
Короче, у него юникодовский код 8356, а vb не поддерживает юникод.

Вообще, откуда в ASCII 65535 кодов? Я всегда считал, что 256.

[Anatoliy]

Символ именно он.
К сожалению первые 20 шрифтов отображают все ту же литеру "J".
Попробую набраться терпения и перебрать все доступные шрифты

[Anatoliy]

Вообще, откуда в ASCII 65535 кодов? Я всегда считал, что 256.

Нет, я через ChrW перебирал.
Если интересно, то см. приложение в RAR

[tyomitch]

Ай, мастера-ломастера...

Добавь этот код в пустую форму, и полюбуйся.

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

Private Sub Form_Load()
With Controls.Add("VB.Label", "Label1")
    .Font.Name = "Tahoma"
    .Font.Charset = 0
    .Caption = Chr(163)
    .Visible = True
End With
End Sub


[Anatoliy]

Или у меня где -то настройки на компе не те...
Но я получаю все ту же "J".

[tyomitch]

Какая ОС?

[Anatoliy]

XP Professional SP 2

[tyomitch]

Гм. У меня тоже.

[Anatoliy]

Прийду домой - попробую там. Там у меня Windows 2000

[Хакер]

Надо же, tyomitch, поставил себе XP

[Antonariy]

Символ фунта под кодом 163 нашелся в арабском чарсете

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

    Label1.Font.Charset = 178
    Label1.Caption = Chr(163)

Какой шрифт - значения не имеет, он есть во всех стандартных виндовских.

[grindars]

У меня под 98 SE нормально код темыча работает

[Anatoliy]

Antonariy - thanks very much.
Charset = 178 - работает.
Спасибо всем, кто откликнулся.