| Вопрос: Помогите, плз, с API | Добавлено: 13.08.07 12:30 |
Автор вопроса:  $Костян | ICQ: 448495665 |
|
Private Sub Command1_Click()
Dim hP As Long, hC As Long hP = FindWindow(vbNullString, Text1.Text) hC = FindWindowEx(hP, 0, "ThunderRT6TextBox", vbNullString) Call SendMessage(hC, WM_SETTEXT, 0, "123") Call SetWindowText(hC, "123") End Sub Почему функции SendMessage и SetWindowText не работают? И как ещё можно ввести свое значение в TextBox окна? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Алексей black admin ICQ: 261779681 Вопросов: 87 Ответов: 633 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 13.08.07 12:33 |
|
http://kbyte.ru/Expert/Show.aspx?id=364&lang=ru
http://kbyte.ru/Expert/Show.aspx?id=358&lang=ru |
||
|
Номер ответа: 2 Автор ответа:  $Костян ICQ: 448495665 Вопросов: 11 Ответов: 33 |
Профиль | Цитата | #2 | Добавлено: 13.08.07 13:20 |
|
Большое спасибо!
Как оказалось, я забыл указать константу WM_SETTEXT: Private Const WM_SETTEXT = &HC
|
||
Страница: 1 |