Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / 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):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 448ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2164520]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 155ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 217ms
total:  448ms
x
x
Закрыть


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