Написать текст в любом TextBoxe, зная его hwnd

'В принципе, можно посылать текст любому окну.

Private Sub Command1_Click()
Dim r As Long
r = SendMessage(Text1.hwnd, WM_SETTEXT, 0, ByVal CStr("Привет хакер!" )
End Sub

'Добавить в модуль:

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_SETTEXT = &HC

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Написать текст в любом TextBoxe, зная его hwnd", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!