по английскому языку, необходимо оперирование Символами транскрипции.

[С.М.С]

Подскажите! Пишится программа Visual Basic 6, по английскому языку, необходимо оперирование Символами транскрипции. Необходимых символов в Windows нет. Как Быть?

[Sm1Le]

http://www.gaudeamus.omskcity.com/programs.html внизу страницы глянь может оно ?! =)

[С.М.С]

Спасибо, но не то.
Подумаю ещё, если ничего неполучится придётся отказаться от этой опции, либо использовать в качестве заметок(писать по руски английские слова или их произношение).

[alexBlack]

Вообще-то почти все символы транскрипции можно подобрать из существующих unicode-шрифтов windows. Остальные просто латинскими символами.

Вот некоторые коды:

   Font.Name := 'Courier New';
   Font.Charset := ANSI_CHARSET;
   #$E6;           
   #$3B5;          
   #$14B;         
   #$05DB;         
   #$222B;         
   #$3B6;          
   #$4E8;          
   #$3B4;          
   #$39B;          
   #$259;

По-моему вполне читаемо:

[С.М.С]

Напиши пожалйста сочетания клавишь произвольного доступа к символам в XP, и объясни как этим пользоваться, а то ничего не получается. Да, ещё у меня Office 2007 - это как то влияет?
Во Visual Basic синтаксис обращения не другой?

[alexBlack]

Сообщение от С.М.С

Напиши пожалйста сочетания клавишь произвольного доступа к символам в XP, и объясни как этим пользоваться, а то ничего не получается.

Не совсем понял о чем речь. Попробуем так. Открываем Open Ofiice. Вставка/Спецсимвол. Находим интересующий наш символ. Справа показывается его код. Здесь же его можно вставить в текст. (В MS Office тоже есть нечто подобное).

Да, ещё у меня Office 2007 - это как то влияет?
Во Visual Basic синтаксис обращения не другой?

То, что я приводил - это коды символов в Pascal.
Можно ли использовать unicode-символы в Basic, я не знаю.

[С.М.С]

Спасибо! теперь есть над чем думать.
Ещё вопросы- у тебя на картинкке программа красиво смотрется, там в транскрипции есть звук "Э" повернутая "е" её тоже из юникода брал? И последний вопрос-- как-то заметил что в разлтчных версиях офисов наборы символов различаются и их код доступа тоже. В самом Windows-е есть набор символов, к примеру если офис не установлен, и какие у этих символов коды? За ранее спасибо!!!

[alexBlack]

Сообщение от С.М.С

Спасибо! теперь есть над чем думать.
Ещё вопросы- у тебя на картинкке программа красиво смотрется, там в транскрипции есть звук "Э" повернутая "е" её тоже из юникода брал?

Да, код есть в списке (кажется 259h)

И последний вопрос-- как-то заметил что в разлтчных версиях офисов наборы символов различаются и их код доступа тоже. В самом Windows-е есть набор символов, к примеру если офис не установлен, и какие у этих символов коды? За ранее спасибо!!!

Сомневаюсь, что коды зависят от версии офиса. Скорее разные версии офиса по-разному показывают таблицы кодов существующих шрифтов
(просто изменения в интерфейсе). Попробуйте рассматривать шрифты другими утилитами. Их масса в интренете.

[С.М.С]

Ответьте на главный вопрос - если нет офиса, в Самом Windows есть же свой набор символов, как то же печатаются док. с расширением .txt вот и подскажите кода символов в самой ОС(желательно используемых в транскрипции анг.языка, в частности символ звука "о" или код обращения из Visual Basic - был бы идеальным вариантом.

[alexBlack]

Сообщение от С.М.С

Ответьте на главный вопрос - если нет офиса, в Самом Windows есть же свой набор символов, как то же печатаются док. с расширением .txt

И Вы видели txt-файл с символами транскрипции ?

вот и подскажите кода символов в самой ОС(желательно используемых в транскрипции анг.языка, в частности символ звука "о" или код обращения из Visual Basic - был бы идеальным вариантом.

Коды символов я привел выше. Для вывода на экран можно использовать функции WinAPI:

TextOutW(dc, X, Y, PWideChar(#$259), 1);
Еще раз повторю: не знаю как это делается в бейсике.
Могу привести пример только для VB.NET:

Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim myChars() As Char = {ChrW(&H259), ChrW(&H39B), ChrW(&H3B4), ChrW(&H4E8)}

        Label1.Text = myChars

    End Sub

End Class