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

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

lhWnd = Text1.hwnd

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы