ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / MSForms.TextBox, вместо кирилицы иероглифы
17 сообщений из 17, страница 1 из 1
MSForms.TextBox, вместо кирилицы иероглифы
    #33206737
v_m_s
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
v_m_s
Гость
на форме тексбоксы из библиотеки MSForms, при вводе русских букв отображаются иероглифы всякие,
может кто знает как решить проблему
...
Рейтинг: 0 / 0
09.08.2005, 13:29:04
| Ответить | Цитировать | Написать  
MSForms.TextBox, вместо кирилицы иероглифы
    #33206875
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
попробуйте в textbox.font поставить кирилический шрифт
типа times new roman cyr
...
Рейтинг: 0 / 0
09.08.2005, 14:26:33
| Ответить | Цитировать | Написать  
MSForms.TextBox, вместо кирилицы иероглифы
    #33207277
v_m_s
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
v_m_s
Гость
пробовал
результат тот же
...
Рейтинг: 0 / 0
09.08.2005, 16:22:52
| Ответить | Цитировать | Написать  
MSForms.TextBox, вместо кирилицы иероглифы
    #33207340
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
Пробуй такой код для Text1 -> MS San serif

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Sub Command1_Click()
Dim i As Integer
Text1.Font.charset =  172 
Text1 = ""
For i =  0  To  255 
Text1 = Text1 & " " & Chr$(i) + " "
Next i
End Sub


Должно высвечиватся и русские символы !!!
...
Рейтинг: 0 / 0
09.08.2005, 16:35:04
| Ответить | Цитировать | Написать  
MSForms.TextBox, вместо кирилицы иероглифы
    #33207372
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
Если не лень добавь на форму еще List1 (list Box) и при наборе в
Text1 в List1 появится :

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Clav As String
Dim Str As String
Dim Msg As String
Clav = Chr$(KeyAscii)
Str = CStr(KeyAscii)
Msg = Msg & "Ascii Number: " & Str
Msg = Msg & "Character:  " & Clav
'MsgBox Msg
List1.AddItem Msg
End Sub
...
Рейтинг: 0 / 0
09.08.2005, 16:41:00
| Ответить | Цитировать | Написать  
MSForms.TextBox, вместо кирилицы иероглифы
    #33208344
v_m_s
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
v_m_s
Гость
вариант с font.charset = 172 неработает
...
Рейтинг: 0 / 0
10.08.2005, 14:29:54
| Ответить | Цитировать | Написать  
MSForms.TextBox, вместо кирилицы иероглифы
    #33208775
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
Если это MSForms2, то скорее, проблема с версией FM20.DLL
В свое время пришлось отказаться от этой библиотеки из-за ее чрезмерного версионизма.
...
Рейтинг: 0 / 0
10.08.2005, 17:08:58
| Ответить | Цитировать | Написать  
MSForms.TextBox, вместо кирилицы иероглифы
    #33209954
v_m_s
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
v_m_s
Гость
А какую альтернативу можете предложить?
Какой текстбокс можно использовать, кроме вибишного и MSForms?
...
Рейтинг: 0 / 0
11.08.2005, 11:28:34
| Ответить | Цитировать | Написать  
MSForms.TextBox, вместо кирилицы иероглифы
    #33210003
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
v_m_sА какую альтернативу можете предложить?
Какой текстбокс можно использовать, кроме вибишного и MSForms?
Microsoft Rich TextBox Control
...
Рейтинг: 0 / 0
11.08.2005, 11:41:39
| Ответить | Цитировать | Написать  
MSForms.TextBox, вместо кирилицы иероглифы
    #33210025
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
Господа, я не понимаю почему в стандартный VB TextBox нельзя вводит
русские буквы ???
По-моему у господина v_m_s неправильно настроенны языки и стандарты вот и ВСЕ !!!
...
Рейтинг: 0 / 0
11.08.2005, 11:52:57
| Ответить | Цитировать | Написать  
MSForms.TextBox, вместо кирилицы иероглифы
    #33210026
v_m_s
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
v_m_s
Гость
RichTextBox не вариант, там чтобы изменить цвет текста надо выделять весь текст и применять форматирование, хотя может быть можно с помощью api функции SendMessage попробовать изменить цвет текста, надо поискать какой там код команды.
...
Рейтинг: 0 / 0
11.08.2005, 11:52:58
| Ответить | Цитировать | Написать  
MSForms.TextBox, вместо кирилицы иероглифы
    #33210056
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
v_m_sна форме тексбоксы из библиотеки MSForms, при вводе русских букв отображаются иероглифы всякие,
может кто знает как решить проблему
Это только наи одной машине, или на всех машинах с разными виндами?
Такое может быть, елси были выбрамы неправильные настройки при установке русского MUI на английскую винду.
...
Рейтинг: 0 / 0
11.08.2005, 12:04:23
| Ответить | Цитировать | Написать  
MSForms.TextBox, вместо кирилицы иероглифы
    #33210060
v_m_s
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
v_m_s
Гость
извиняюсь, что не изложил проблему полностью.
дело в том что я ищу контрол, который будет работать на прозрачной форме,
как только начинаешь выделять текст, или же появляется скролл при вводе, вся прога виснет

richTextBox не вешает прогу при появлении скролла, но там надо выделять текст для изменения цвета текста, а это для него смертельно

стандартный вибишный текстбокс вешает прогу уже при скроллинге текста

а вот как раз MSForms 2.0 прекрасно работает, но вот писать там кирилицей никак не получается
...
Рейтинг: 0 / 0
11.08.2005, 12:05:18
| Ответить | Цитировать | Написать  
MSForms.TextBox, вместо кирилицы иероглифы
    #33210074
v_m_s
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
v_m_s
Гость
пробовал на трех разных машинах
везде один и тот же результат
а от прозрачности окон отказываться не охота, суть идеи дизайнерской на этом основывается
...
Рейтинг: 0 / 0
11.08.2005, 12:08:42
| Ответить | Цитировать | Написать  
MSForms.TextBox, вместо кирилицы иероглифы
    #33210266
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
Как на счет сторонних фирм?
ComponentOne например.
Раньше этот пакет назывался Apex TrueDB Input Pro.
...
Рейтинг: 0 / 0
11.08.2005, 13:06:33
| Ответить | Цитировать | Написать  
MSForms.TextBox, вместо кирилицы иероглифы
    #33210327
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
Писать то пишется но как ???

Код: plaintext
1.
2.
Private Sub TextBox1_KeyPress(KeyAscii As MSForms.ReturnInteger)
TextBox1 = Chr$(KeyAscii)
End Sub

Я думаю что немного покопать можно найти решение !!!
...
Рейтинг: 0 / 0
11.08.2005, 13:26:10
| Ответить | Цитировать | Написать  
MSForms.TextBox, вместо кирилицы иероглифы
    #33210479
v_m_s
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
v_m_s
Гость
нашел решение
просто нашел пример как изменять стиль текста (включая цвет) в richTextBox без всякого выделения текста, с помошью API функции sendMessage
если кому пригодится, пример здесь: www.vb-helper.com/howto_set_rich_format.html
...
Рейтинг: 0 / 0
11.08.2005, 14:07:08
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / MSForms.TextBox, вместо кирилицы иероглифы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33210074&tid=2167376]:
 0ms
get settings:
 6ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 50ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 193ms
total:  322ms
созд. / загр.: 322ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]