Библиотека в VB - передача объекта в качестве параметра

[Adept]

Появилась такая проблема...
Мне нужно передать в функцию, которая в библиотеке, в качестве параметра ListBox...
В DLL'ке я написал:

Public Function Sort_By_WordLenght (ListBox1 As Listbox) as integer 'сортируем слова по длине
...
End Function

Она не захотела компилироваться. Тогда я описал ListBox1 As Object,
библиотека скомпилировалась, но теперь при вызове функции из программы
возникает ошибка - не найдена точка входа (Entry Point)... =(

[GSerg]

В какой такой dll'ке?

[Adept]

1. Создаю новый проект - ActiveX DLL
2. В нём пишу:
Public Function Sort_By_WordLenght (ListBox1 As Listbox) as integer 'сортируем слова по длине
...
End Function
Выдаёт ошибку - какие-то проблемы или с Public/Private модулем,
или с возвращением результата... Короче, отказывается даже компилироваться... =(

Но если написать:
Public Function Sort_By_WordLenght (ListBox1 As Object) as integer 'сортируем слова по длине
...
End Function

то он компилится, но ругается при вызове функции... =(

[GSerg]

И как же мы вызываем функцию?
Предвижу ответ, но всё же?

[Adept]

Сейчас начал делать всё это заново и, кажется, понял!
Короче, объект в параметре передаётся нормально - ф-я правильно возвращает число записей в ListBox'е (ListCount)! А после сортировки значит надо возвращать массив строк в нужной последовательности!..

P.S. Вызываю ф-ю

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


Dim MyClass As New Class1, i%
Private Sub Form_Load()
For i = 1 To 10
    List1.AddItem "111"
Next i
i = MyClass.LineNum(List1)
MsgBox i
End
End Sub


А в Class1.cls:

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


Public Function LineNum(ListBox1 As Object) As Integer
LineNum = ListBox1.ListCount
End Function

[GSerg]

Что значит - надо возвращать массив строк? Где и зачем?

[Adept]

Мда... Похоже я прирождённый флудер...
Ты прав - возвращать ничего не надо , но подпрограмму сделать у меня не получилось...

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


Public Function Sort_by_Len(ListBox1 As Object) As Integer 'Bubble-sort(?)
Dim i As Integer, j As Integer
For i = 1 To ListBox1.ListCount
For j = 1 To ListBox1.ListCount
    If Len(ListBox1.List(j)) > Len(ListBox1.List(j - 1)) Then
        tmp$ = ListBox1.List(j)
        ListBox1.List(j) = ListBox1.List(j - 1)
        ListBox1.List(j - 1) = tmp$
    End If
Next j
Next i
End Function


[GSerg]

Так чё не работает?

[Adept]

Всё работает! Просто у меня руки не оттуда растут!
Спасибо за наводящие вопросы!