SetWindowText CLng(Text1.text), "lalalala"

[EvilCoder]

<DELETED>

[Amed]

Потому что надо писать так:

Код: Выделить всё

SetWindowText Text1.hwnd, "lalalala"


[GSerg]

Да нет, всё правильно ты делаешь... Я тоже так делал
Spy++ даёт всё в hex. Так что clng("&h" & text1.text).
Если и это не поможет, значит, ты ошибся в декларации setwindowtext.

[alibek]

Есть еще один ньюанс. Если ты изменяешь текст чужого окна, а не своего, то перед SetWindowText надо выполнить GetWindowTextLength. Смысл сего шаманства мне неведом, о нем тебе может разве что Шаман рассказать

[GSerg]

alibek, ты открываешь мне новые горизонты
Никогда не знал об этом фичебаге, и всегда работало без него

[EvilCoder]

<DELETED>

[GSerg]

А...
Ага...
Что за текстбокс?

[Amed]

EvilCoder, мой пример не работает? У меня всё отлично, специально проверял!

[GSerg]

Ты ставишь текст в текстбокс.
А он хочет поставить текст в окно, чей hWnd находится в текстбоксе...

[Amed]

У меня с кодом от EvilCoder всё ставится... Заголовок меняется на заданный.

alibek: у меня, как и у уважаемого GSerg, текст в чужое окно ставится без проблем...

[|kerish|]

Есть ли возможность имитировать нажатие по кнопке в чужом окне по hwnd-хе.

[GSerg]

А як же... BM_CLICK ей послать...

[EvilCoder]

<DELETED>

[Dagobert]

Кидаешь на форму текстбокс и

Код: Выделить всё

' API
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETTEXT = &HC
' событие
Private Sub Form_Click()
' Буфер
Dim P() As Byte
' преобразуем строку в массив и заодно из Unicode
P() = StrConv("text", vbFromUnicode)
' втыкаем строку
SendMessage Text1.hwnd, WM_SETTEXT, 0, P(0)
End Sub