Извлечь вонтрол другого приложения???

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Дэм
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 18.05.2004 (Вт) 16:17

Извлечь вонтрол другого приложения???

Сообщение Дэм » 18.05.2004 (Вт) 16:21

В общем задача вот какая. Необходмио определить значеня всех строк списка (Листбокса) и/или выделенные строки стороннего приложения. Подскажите, пожалста, как такое можно сделать.

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 18.05.2004 (Вт) 16:24

SendMessage, MSDN и куча времени тебе помогут.
Даже немного подскажу, что использоваться будут в основном сообщения LB_GETTEXT(LEN) и LB_GETSEL
Lasciate ogni speranza, voi ch'entrate.

-=TsA=-
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 142
Зарегистрирован: 21.09.2004 (Вт) 14:32
Откуда: Татарстан, Заинск

Сообщение -=TsA=- » 10.07.2006 (Пн) 10:15

alibek писал(а):SendMessage, MSDN и куча времени тебе помогут.
Даже немного подскажу, что использоваться будут в основном сообщения LB_GETTEXT(LEN) и LB_GETSEL


Извеняюсь конечно, что пишу в чужом топике, зато не скажете что в небыл поиске :)

Собственно вопрос почему не работает следующая конструкция:
Код: Выделить всё

    ' Определяем количество строк
    N = SendMessage(hWind, LB_GETCOUNT, 0, 0)
    Call MsgBox("Количество строк: " & N)
    For I = 0 To N - 1
        ' Определяем длину текущей строки строки
        L = SendMessage(hWind, LB_GETTEXTLEN, I, 0)
        Call MsgBox("Длина текущей строки: " & L)
        ' Резервируем буфер под текст текущей строки
        ResText = Space(L + 1)
        ' До этой строки все нормально, а при попытке получить текст все вылетает
        ' Получение текста текущей строки
        L = SendMessage(hWind, LB_GETTEXT, I, ResText)
        Call MsgBox("Текст текущей строки: " & Left(ResText, L))
    Next


Где здесь собака порылась?
Вложения
Form.zip
Для тех кому лень, готовая тестовая форма
(966 байт) Скачиваний: 37

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 10.07.2006 (Пн) 10:25

Собака порылась в матчасти...

Вопользуйся поиском ещё раз, чтобы найти, как передаются строки...
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

-=TsA=-
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 142
Зарегистрирован: 21.09.2004 (Вт) 14:32
Откуда: Татарстан, Заинск

Сообщение -=TsA=- » 10.07.2006 (Пн) 11:23

GSerg писал(а):Собака порылась в матчасти...

Вопользуйся поиском ещё раз, чтобы найти, как передаются строки...


Ну неужели тяжело было сказать что строковые параметры нужно передавать ByVal a? Почти час убил пока нашел то что нужно...


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 68

    TopList