Как сравнить содержимое двух list box-ов?

[Дамей]

вот я нашел вот такое решение, но оперативки до фига жрет!

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

For p = 0 To File1.ListCount - 1

    For i = 0 To ListEx1.ListCount - 1

        If File1.List(p) = ListEx1.List(i) Then beep
    Next i
   
Next p

Помогите пожалуиста [/syntax]

[GSerg]

Раз.


tag_warning

[Viper]

А надо сравнить каждый элемент с каждым?

[mZone]

Смотря, что является данными для ListBox - ов. Если Recordset то не проще ли сравнивать сами рекордсеты.
Если нет, то можно попробовать:
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
где wMsg - LB_FINDSTRING

[Дамей]

В listbox-е хранится название файлов......Надо сравнить каждую строку с каждой.... Никак не получается....(((

[mZone]

В listbox-е хранится название файлов......Надо сравнить каждую строку с каждой.... Никак не получается....(((

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


SendMessage