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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> SetWindowText, Не могу установить :( 
:(
    Опции темы
bom
  Дата 18.7.2005, 19:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 329
Регистрация: 22.2.2004
Где: Казахстан, Алматы

Репутация: 4
Всего: 6
На вас отцы уповаю. Проблема такая: надо из своей проги изменить\установить текст в текстбоксе другой проги, почему то не получается. Делаю с помощью SetWindowText, hwnd меняемого текстбокса известен.
Если проделываю тоже, но с текстбоксами своей программы, расположенных как в дочерних так и в родительских окнах, то все ОК.

Код

Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String) As Long

Sub()
Dim MyStr As String
MyStr = String(Len("abcd"), Chr$(0))
MyStr = "abcd"
SetWindowText myHwnd, MyStr
'где myHwnd - известный hwnd подлежащего изменению окна
End sub
PM MAIL   Вверх
cardinal
Дата 18.7.2005, 21:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Может это поможет...
http://forum.vingrad.ru/index.php?showtopic=20250


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
bom
Дата 18.7.2005, 23:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 329
Регистрация: 22.2.2004
Где: Казахстан, Алматы

Репутация: 4
Всего: 6
Спасибо, счас начну разбираться. smile
PM MAIL   Вверх
bom
Дата 19.7.2005, 01:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 329
Регистрация: 22.2.2004
Где: Казахстан, Алматы

Репутация: 4
Всего: 6
Ссылка cardinalа помогла, еще раз благодарю. Там используется SendMessage
Код

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Sub()
SendMessage myHwnd, &HC, 0, ByVal "Helo world!"
'где myHwnd - известный hwnd подлежащего изменению окна
End sub


С SetWindowText так и не получилось, что интересно, заголовки чужих окон с его помощью тоже меняются без проблем, а вот окна класса "Edit" (текстбоксы) - не хотят. Если кто знает в чем тут дело, поделитесь секретом плиз.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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