оказал выходОчистить текстовое значение в окне редактирования другого приложения с помощью Excel VBA с Windows API
уценки
-1
ГОЛОСОВ
Комментарий: выравнивание кода
Очистить текстовое значение в другом элементе управления редактирования приложения с помощью Excel VBA с Windows API
hTarget - значение рукоятки другого приложения. [Failed]
- RET = SendMessage (hTarget, WM_SETFOCUS, 0 &, 0 &)
- RET = SendMessage (hTarget, WM_KEYDOWN, VK_CONTROL, 0) -ret = SendMessage (hTarget, WM_KEYDOWN, 97, 0)
- RET = SendMessage (hTarget, WM_KEYDOWN, VK_DELETE, 0)
- сна (300)
- RET = SendMessage (hTarget, WM_KEYUP, VK_DELETE, 0)
- RET = SendMessage (hTarget, WM_KEYUP, 97, 0) = -ret SendMessage (hTarget, WM_KEYUP, VK_CONTROL, 0)
[Failed]
-const EM_SETSEL = & HB1
-const EM_REPLACESEL = & ОК2
-const EM_GETSEL = & HB0
-hTarget = FindWindowEx (hTarget, 0 & "TPlusMemoU", vbNullString)
-Call SendMessage (hTarget, EM_SETSEL, 0, -1)
-Call SendMessage (hTarget, EM_REPLACESEL, 1 "")
[Failed]
-Call SendMessage (hTarget, WM_KEYDOWN, VK_BACK, 0) -Call SendMessage (hTarget, WM_CHAR, 8, 0)
hTarget - значение рукоятки другого приложения. [Ошибка] RET = SendMessage (hTarget, WM_SETFOCUS, 0 &, 0 &)
RET = SendMessage (hTarget, WM_KEYDOWN, VK_CONTROL, 0)
RET = SendMessage (hTarget, WM_KEYDOWN, 97, 0)
RET = SendMessage (hTarget, WM_KEYDOWN, VK_DELETE, 0)
сна (300)
RET = SendMessage (hTarget, WM_KEYUP, VK_DELETE, 0)
RET = SendMessage (hTarget, WM_KEYUP, 97, 0)
RET = SendMessage (hTarget, WM_KEYUP, VK_CONTROL, 0)
[Failed] Const EM_SETSEL = & HB1
Const EM_REPLACESEL = & ОК2 Const EM_GETSEL = & HB0
hTarget = FindWindowEx (hTarget, 0 & "TPlusMemoU", vbNullString)
Call SendMessage (hTarget, EM_SETSEL, 0, -1) Call SendMessage (hTarget, EM_REPLACESEL, 1, "")
[Failed] вызов SendMessage (hTarget, WM_KEYDOWN, VK_BACK, 0) вызов SendMessage (hTarget, WM_CHAR, 8, 0)
Вопрос очень низкого качества. Кажется, вы вставили код в поле вопроса и не пытались отформатировать его. Нет никаких объяснений или вопросов. Улучшите редактирование. –