API поиск в ListBox

[dear]

Имеется окно с двумя ListBox (см. вложение).
Нашел хэндл и основного окна, и двух листбоксов
Необходимо найти номер строки по названию элемента.
SendMessageByString(hw, LB_FINDSTRINGEXACT, -1, "Normal"), как и
SendMessage(hw, LB_FINDSTRINGEXACT, -1, "Normal")
возвращают пустую строку.
Подскажите, пожалуйста, что я неправильно делаю

[Lumen]

А просто LB_FINDSTRING пробовал?

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

'This project needs a ListBox, named List1 and a TextBox, named Text1
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Const LB_FINDSTRING = &H18F
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'Add some items to the listbox
    With List1
        .AddItem "Computer"
        .AddItem "Screen"
        .AddItem "Modem"
        .AddItem "Printer"
        .AddItem "Scanner"
        .AddItem "Sound Blaster"
        .AddItem "Keyboard"
        .AddItem "CD-Rom"
        .AddItem "Mouse"
    End With
End Sub
Private Sub Text1_Change()
    'Retrieve the item's listindex
    List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
End Sub


[dear]

Пробовал, ничего не получается. Может быть все дело в символах, стоящих перед наименованием стилей (знак абзаца в верхнем ListBox или подчеркнутая буква А в нижнем). Но как это обойти - не знаю.
Само окно - таблица стилей из QuarkXpres

[Viper]

dear, а собственно какую строку ты хочешь получить? Функция индекс должна вернуть. И как объявлены функции?

[dear]

Прошу прощения за поздний ответ - не дома был
Хочу получить строку с названием имени стиля - " а в ответ тишина"

[Viper]

В чем тишина то заключается? И еще раз, как объявлена функция/функции?

[dear]

Прошу прощения, может неправильно сформировал вопрос.
Я хочу получить номер строки, которая содержит стиль "Normal"
В ответ функция выдает значение (-1), что, как я понял, значит, что строка не найдена
Функция объявлена следующим образом:
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Зарание большое спасибо за внимание.

[alibek]

Объяви ByVal lParam As String.

[dear]

Спасибо, завтра на работе буду пробовать

[dear]

Попробовал. Возвращает "-1".
Могу средствами API выделить строку, удалить и т.д.
Но найти в ней какую-либо строку не могу. М.Б. мешает первый символ (подчеркнутое А). Тогда как его обойти, может подскажете.

[DirectXManiac]

dear
Походу подчеркнутое A = &A. Если не прав то поправте. Попробуй заменить первый символ на подчеркнутый и повторить поиск

[dear]

И опять ничего не получилось.
Такое ощущение, что эта А и знак абзаца - какие-то графические изображения и находятся в первой колонке ListBox, а сами наименования стилей - во второй. И поиск происходит по первой колонке, естественно, ничего не находится.
Возможен ли поиск по второй колонке?

[Lumen]

DirectXManiac
Не, я тоже так сначала подумал, а потом оказалось что в листбоксе вместо подчеркивания отображается амперсанд (&).
dear
А это точно листбокс?

[dear]

Как мне кажется да, это ListBox. По крайней мере, WinDowse, Winspector Spy показывают именно этот класс. Мало того, Restorator'ом просмотрел файл QuarkXpress.exe, где лежит это окно - тоже показано что это ListBox (также показывает стили окна, свойственные этому классу. К тому же API -сообщения LB_SETSEL и другие с префиксом "LB_" работают (кроме необходимых LB_FINDSTRING )
Конечно, можно было бы просто высчитать номер строки и делать ее активной, но вся беда в том, что порядок строк меняется от файла к файлу. Беда-а-а-а-{. Да и задело к тому же.

[Lumen]

А попробуй послать этому листбоксу LB_GETTEXT и посмотри что он там вернет. А потом используй LB_FINDSTRING... Может и получится, хотя конечно это изврат...

[dear]

Попробовал. Возвращаемое значение = 0. Если попробовать вставить строку - Кварк виснет.
Я думаю, пора прекращать. Сделаю ini-файл, в котором надо будет вводить вручную номер строки.
Огромная спасяба всем, кто помогал
С уважением, dear