| Вопрос: Текст | Добавлено: 13.08.07 10:23 |
Автор вопроса:  Mesnik
|
| Народ как зная hwnd окна (текстового поля) послать ему сообщения чтобы все что в нем есть скопировалось? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Mr.Smile ICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #1 | Добавлено: 13.08.07 18:24 |
|
Option Explicit Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long Private Sub Form_Load() Dim lHandle As Long Dim sCaption As String lHandle = Me.hwnd 'замени "Me.hwnd" на hwnd текстового поля sCaption = Space$(GetWindowTextLength(lHandle) + 1) GetWindowText lHandle, sCaption, 100 sCaption = Left$(sCaption, Len(sCaption) - 1) MsgBox Chr$(34) & sCaption & Chr$(34) End Sub |
||
|
Номер ответа: 2 Автор ответа: Mesnik  Вопросов: 3 Ответов: 29 |
Профиль | | #2 | Добавлено: 14.08.07 20:48 |
| пасиба | ||
Страница: 1 |