Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Символы 
:(
    Опции темы
Igor Graf
Дата 23.6.2007, 17:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 152
Регистрация: 10.2.2005

Репутация: нет
Всего: нет



Проблемма заключается в следующем: реально ли добавить к вводимому тексту , ну скажем 10-100 добавить значек омега из редактора формул и сохранить данное извращение в бд?Если реально то какой элемент можно для этого безобразия использовать?))  
PM MAIL   Вверх
Tectoder
Дата 23.6.2007, 18:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 202
Регистрация: 13.3.2007

Репутация: нет
Всего: 8



Добавить реально, но стандартный textbox его не отобразит

Добавлено через 2 минуты и 26 секунд
Код

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

Private Sub Form_Load()
    MessageBox 0, StrPtr(ChrW(&H3A9)), StrPtr(App.Title), 0
End Sub

PM   Вверх
Akina
Дата 24.6.2007, 20:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Ну что за слова??? извращение... безобразие...

Указанные объекты прелестно отображает RichTextBox... и соответственно RTF прекрасно сохраняется в текстовом поле. Если текст получился слишком длинным - значит в МЕМО.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Igor Graf
Дата 27.6.2007, 19:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 152
Регистрация: 10.2.2005

Репутация: нет
Всего: нет



Цитата

Akina
Ну что за слова??? извращение... безобразие..

 
прошу прощения  smile  что - то я стал слишком грубым...

Tectoder
Akina
спасибо за подсказку буду эксперементировать

Добавлено через 14 минут и 10 секунд
кстати может подскажете где есть инфа по данному вопросу?
PM MAIL   Вверх
Akina
Дата 27.6.2007, 23:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Цитата(Igor Graf @  27.6.2007,  20:04 Найти цитируемый пост)
 где есть инфа по данному вопросу?

RichTextBox - стандартный контрол, вся инфа в MSDN.
RTF - стандартизованный открытый формат. описание в соответствующем RFC.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Igor Graf
Дата 30.6.2007, 14:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 152
Регистрация: 10.2.2005

Репутация: нет
Всего: нет



Увы но ничего путного найти не смог(( а очень нужно почитать об этом может кто подкинет ссылочку другую?
PM MAIL   Вверх
Igor Graf
Дата 1.7.2007, 09:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 152
Регистрация: 10.2.2005

Репутация: нет
Всего: нет



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

Итак, подключаем к проекту библиотеку  "Microsoft Forms 2.0 Object Library"

кидаем на форму TextBox1 из этой библиотеки и Label ы

далее пишем код:
Код

Option Explicit
Private Sub Form_Load()

    Label1.Caption = ChrW(177)
    Label2.Caption = ChrW(181)
    Label3.Caption = ChrW(216)
    Label4.Caption = ChrW(247)
    Label5.Caption = ChrW(937)
    Label6.Caption = ChrW(969)

End Sub

Private Sub Label1_Click()
TextBox1.Text = TextBox1.Text + ChrW(177)
End Sub

Private Sub Label2_Click()
TextBox1.Text = TextBox1.Text + ChrW(181)
End Sub

Private Sub Label3_Click()
TextBox1.Text = TextBox1.Text + ChrW(216)
End Sub
Private Sub Label4_Click()
TextBox1.Text = TextBox1.Text + ChrW(247)
End Sub
Private Sub Label5_Click()
TextBox1.Text = TextBox1.Text + ChrW(937)
End Sub
Private Sub Label6_Click()
TextBox1.Text = TextBox1.Text + ChrW(969)
End Sub

ну допустим что так и смотрим что происходит....
код конечно дилетантский но эт так просто поэксперементировать. Все значения  TextBox1 отлично сохраняются в поле Мемо БД Access

или вот еще с сайтика кодик интересный
Код

Option Explicit


Private Sub Form_Load()

    ScrollBar1.Min = 33
    ScrollBar1.Max = 65533

    Font.Name = "Arial Unicode MS"
    Font.Size = 20

    ScrollBar1_Change
    

End Sub

Private Sub ScrollBar1_Change()
   Dim sCodePoint

    txtDecimalNumber.Text = ScrollBar1.Value
    txtUnicodeNumber.Text = "U+" & Hex(txtDecimalNumber.Text)
    sCodePoint = ChrW(txtDecimalNumber.Text)
    txtCodePoint.Text = sCodePoint
    End Sub


в принципе есть пища для размышлений если у кого-то есть идеи по лучше милости просим поделиться буду очень рад.

прикрепляю исходник 2го кода

Присоединённый файл ( Кол-во скачиваний: 1 )
Присоединённый файл  _______.rar 1,51 Kb
PM MAIL   Вверх
Igor Graf
Дата 1.7.2007, 12:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 152
Регистрация: 10.2.2005

Репутация: нет
Всего: нет



теперь возникла еще одна проблеммы данные с символами из бд не отображаются в TDBGrid  smile 
как же быть?
PM MAIL   Вверх
Igor Graf
Дата 1.7.2007, 13:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 152
Регистрация: 10.2.2005

Репутация: нет
Всего: нет



причем простой дата грид отображает если поставить ему font=Arial, а TDBGrid нет , что не ужели не поддерживает Юникод?

PM MAIL   Вверх
Akina
Дата 1.7.2007, 20:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



 smile Гм... я-то думал, речь действительно об отображении и сохранении формул из Microsoft Equiation...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Igor Graf
Дата 2.7.2007, 04:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 152
Регистрация: 10.2.2005

Репутация: нет
Всего: нет



Да нет всего-лишь нужно вставить несколько символов и степеней)) но до формул тоже дойдем.
PM MAIL   Вверх
kapbepucm
Дата 16.7.2007, 15:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: нет
Всего: 12



Проблема в следующем. Есть программа (очень мне нужная), но уже готовый проект. Она читает из файла *.txt, наверное написанном в notepad.exe, слова для своего интерфейса (надписи на кнопках, окнах и т.п.). Естественно, не известно как там организовано, но читает с "отклонением". В *.txt записаны символы в Unicode. Короче, если в *.txt записано "А"(кирилица), читает и говорит что там "z". Я думаю, надо написать некие Unicode иероглифы в данном *.txt, чтобы по аналогии показалась кирилица. Видимо есть сдвиг при чтении. Только вот какие именно иероглифы написать в *.txt я затрудняюсь ответить. А какой вы считаете выход из положения наиболее приемлимым? Как найти и стоит ли искать вообще этот сдвиг?
В данный момент я нашел временное решение- это преобразование в транслит. No translit- eto ne o4enj horowo, hotja 4to nibudj pro4itatj mozno smile

Это сообщение отредактировал(а) kapbepucm - 16.7.2007, 16:18


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0846 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.