Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как записать слово в форму ? / 7 сообщений из 7, страница 1 из 1
13.02.2007, 16:32
    #34327708
Guest1
Guest1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как записать слово в форму ?
есть пользовательская форма, на ней окошко для ввода слова (всегда одно и то же)
исходников программы, где окно вызывается и самой формы - нет
Можно ли по нажатию клавиши автоматически записать это слово в окно ?
Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2007, 16:41
    #34327749
вопро с __
вопро с __
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как записать слово в форму ?
изначально сделано на ВБ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2007, 16:42
    #34327750
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как записать слово в форму ?
Можно, с помощью Sendkeys
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2007, 17:04
    #34327848
Guest1
Guest1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как записать слово в форму ?
вопро с __изначально сделано на ВБ?
интерфейс delfi, но я его не знаю
программа поддерживает скрипты VBA
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2007, 17:05
    #34327850
Проходящий
Проходящий
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как записать слово в форму ?
Делайем Form1 и кидаем на нее Command1 и Text1.
Код формы:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Private Const WM_SETTEXT = &HC

Private Sub Command1_Click()
Dim lhWnd As Long
' тут ищем нужное окно. для примера взят эйч-винд текстового окна своей формы
lhWnd = Text1.hwnd
SendMessage lhWnd, WM_SETTEXT,  0 , "То что нужно?"
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2007, 17:07
    #34327864
Guest1
Guest1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как записать слово в форму ?
ПроходящийДелайем Form1 и кидаем на нее Command1 и Text1.
Код формы:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Private Const WM_SETTEXT = &HC

Private Sub Command1_Click()
Dim lhWnd As Long
' тут ищем нужное окно. для примера взят эйч-винд текстового окна своей формы
lhWnd = Text1.hwnd
SendMessage lhWnd, WM_SETTEXT,  0 , "То что нужно?"
End Sub


у меня ведь форма уже есть готовая в программе (исходников нет), то есть я её вижу только на экране
а вот куда тогда записать всё это :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2007, 17:33
    #34327973
Проходящий
Проходящий
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как записать слово в форму ?
Код: plaintext
lhWnd = Text1.hwnd

Вместо Text1.hwnd подставь манипулятор твоего текстового окна. Для этого его нужно найти...
Попробуй поиграть с API-шной функцией FindWindow()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как записать слово в форму ? / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 434ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2164520]:
 0ms
get settings:
 5ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 141ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 232ms
total:  434ms
x
x
Закрыть


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