SendMessage

[oskolok_vatbI]

Для отправки текста в другое окно использую SendMessage:

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

SendMessage(hWin, &HC, 0, sText)

В VB6 вроде можно было просто выставить нужный текст в последний параметр, в VB2008 это не работает.
Правильно ли я понял, что текст надо преобразовать в Byte ? И если да то как это сделать ? Спасибо.

[Nord777]

Правильно ли я понял, что текст надо преобразовать в Byte ?

Нет, ты понял не правильно.

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

  Declare Auto Function SendMessage Lib "user32" ( _
  ByVal hWnd As IntPtr, _
  ByVal Msg As Integer, _
  ByVal WParam As Integer, _
  ByVal LParam As String) As Integer

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    SendMessage(Me.Handle, &HC, 0, "AnyText")
  End Sub

[ACiD]

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

com.ms.win32.User32.SendMessage(hWin, sText, &HC, 0)

[Nord777]

com.ms.win32.User32.SendMessage(hWin, sText, &HC, 0)

Интересно... А что, в 2008 студии это уже открытая функция?

И ты перепутал параметры.

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

lResult = SendMessage(    // returns LRESULT in lResult
(HWND) hWndControl,       // handle to destination control
(UINT) WM_SETTEXT,        // message ID     
(WPARAM) wParam,          // = (WPARAM) () wParam;   
(LPARAM) lParam           // = (LPARAM) () lParam; );

wParam
This parameter is not used.
lParam
Pointer to a null-terminated string that is the window text.

[oskolok_vatbI]

Nord777
Не работает. У тебя объявление как для VB2008, а использование точно такое же как и в VB6. Я так и пытался, не нравится ему просто текст в кавычках.

ACiDXX
Я даже не понял как этим пользоватся.

[oskolok_vatbI]

Nord777 приношу извинения. Всему виной моя невнимательность, код прекрасно работает, большое спасибо.