powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Прозрачность TextBox
10 сообщений из 10, страница 1 из 1
Прозрачность TextBox
    #35742333
sadem
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Подскажите как сделать фон TextBox прозрачным в VB6 (требуется чтобы виднелась картинка за ним). Либо подскажите, как исправить проблему с отображением русских букв в TextBox из набора Microsoft Forms 2.0 Object Library (файл FM20.dll, идет с Ms Office'ом, лежит в папке system32), т.к. в этой библиотеке уже есть TextBox со свойством прозрачности. Эти вопросы поднимались и ранее, но ответа на них я так и не нашел.
...
Рейтинг: 0 / 0
Прозрачность TextBox
    #35742754
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
TextBox прозрачный
где то было дома посмотрю
...
Рейтинг: 0 / 0
Прозрачность TextBox
    #35742793
sadem
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
michael R, буду очень благодарен если найдете примерчик.

Немного добавлю насчет проблем с FM20.dll, русский текст можно исправить по команде TextBox.Font.Charset = 255 и далее прописывать текст TextBox.Text="", однако это исправляет кодировку только при вводе данных в TextBox только из кода программы. Если вводить текст с клавиатуре в запущенной программе, то русская кодировка все-равно выводит иероглифы.
...
Рейтинг: 0 / 0
Прозрачность TextBox
    #35742862
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вот пример
думаю что с буквами тоже можно решить

С Новым Годом
...
Рейтинг: 0 / 0
Прозрачность TextBox
    #35742870
sadem
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
michael R, спасибо, то что надо, но не совсем. Дело в том, что мне необходима постоянная прозрачнось TextBox, не только когда этот элемент неактивен, но и при вводе в него с клавиатуры, когда программа работает. В Вашем же примере, как только начинаешь ввод текста в TextBox, фон становится белым и снова приходится наживать клавишу, чтобы придать прозрачность. Можно конечно тупо постоянно запускать процедуру прозрачности TextBoxTrans (например через Timer), однако при этом возникает мерцание и вся система начинает притормаживать. Как решить эту проблему?

Небольшое замечание по поводу иероглифов в русской раскладке в TextBox в FM20.dll: на одном из форумов было предложение воспользоваться функцией LoadKeyboardLayout, ничего не вышло, использовал следующие параметры:

Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long

в теле программы: LoadKeyboardLayout "00000419", 1
...
Рейтинг: 0 / 0
Прозрачность TextBox
    #35744106
sadem
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ну что, больше ни у кого нет предложений. А если поставить вопрос немного шире: как сделать любой контрол прозрачным TextBox, ComboBox, CommandButton и т.д. Постоянная прорисовка фона не выход. Можно ли как-нибудь добавить само свойство прозрачности для контрола, например, как это имеет элемент Label - свойство BackStyle=0?
...
Рейтинг: 0 / 0
Прозрачность TextBox
    #36276411
winww
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем привет!

Гулг мне не помог (( Нашел тему на вашем форуме!

Как все таки решить проблему с кодировкой в VB6 c MS Forms 2.0? (FM20.dll)

Добавляю textBox или ComboBox. Когда пишешь в русской раскладке, то поле заполняется палочками, или иероглифами, в зависимости от выбранного шрифта.
А вот если в коде написать textBox.text="Привет" то текст отображается нормально!

Товарищи!!!! может кто знает как решить эту проблему??
...
Рейтинг: 0 / 0
Прозрачность TextBox
    #36277018
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да, хороший вопрос. тожа попробовала из forms2 взять тексбокс, там действительно то палки, то иероглифы вместо русских букв. Очень интересный вопрос. Он по ходу так и останется открытым.
...
Рейтинг: 0 / 0
Прозрачность TextBox
    #36277060
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ура, я нашла ответ. юзаем текстбокс из forms2. далее в коде пишем:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)


Private Sub TextBox1_KeyPress(KeyAscii As MSForms.ReturnInteger)
    Dim b() As Byte, a As String, s As String, iKeyCode As Integer
    a = ChrW(KeyAscii)
    b = StrConv(a, vbUnicode)
    CopyMemory iKeyCode, b( 0 ),  2 
    KeyAscii = iKeyCode 'AscW(ChrW(iKeyCode))
End Sub
...
Рейтинг: 0 / 0
Прозрачность TextBox
    #36277633
winww
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Настенька

Спасибо! Работает) Но правда если контролов много для каждого придется писать обработчик, хотя можно и массив элементов делать..
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Прозрачность TextBox
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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