Кольцевой список

[ediToR]

Hi All. Надо организовать стуктуру данных в виде однонаправленного кольцевого списка. На С я делал так:

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

class student
{
public :
  void mainmenu(void);
  void input(void);                  //функции для работы со списком
    ....                                   // другие функции

private :

  struct stud
{
   int NUM;           

   char name[20];     //имя
   char fam[20];       //фамилия
   ....                       // и т.д...
   
   struct stud *next;

}*node,*begin,*ptr,*pr;

   int num;           //Кол-во элементов
};
int number=0;


Надо сделать тоже самое на VB. На сколько я понял в ВБ нет указателей на стуктуры и т.д. Вот я и хочу узнать как всё это хозяйство можно организовать. Также меня интересует навигация по списку: встать на начало, на конец, на заданный элемент списка. И желательно какую-нить функцию для примера (добавление\удаление - не важно). Заранее благодарен всем ответившим.

[Tin]

Драсьте...

Как я понял ты хочешь разобраться с Объектом List?

У листов (БЕЗ БУКВЫ Г ) есть такое свойство как ListIndex (к примеру List1.ListIndex) - оно возвращает порядковый номер той записи которая выделина. Если запись не выделена - то возвращается -1 (минус). Вот и весь секрет
Если:
При нажатии на элемент списка ты хочешь в текст бокс всавить то что написано на выделеном элименте, Тада
1. нажимаем два раза на список (шутка )
2. в сабах мы види

Private Sub List1_click()
text1.text=list1.list(listindex)
End Sub

ДругоеЕсли:
Ты хочешь сделать что-то вроде скролинга (в примере Кнопочка) при работе с которым в списке должен бегать бегунок

Private Sub Command1_click()
Static I as integer
I=I+1
if i>list1.listcount then I=0 'Вот тебе и замкнутый список
List1.Listindex=i
End Sub

Если другое
Уточни вопрос

Конец Если

[skiperski]

А зачем именно список? Совсем не обязательно один в один переносить программы с другого языка. В C списки удобны, в VB - нет. Может массива было бы достаточно? Кроме того в VB есть замечательный объект Collection.

[alibek]

Это точно, со списками в VB тяжко. Если уж позарез, то используй типы и массивы

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

Type MyList
  bUsed As Boolean 'вспомогательное поле, сильно упрощает нахождение свободного элемента на поле
  pNext As Long 'указатель на следующий элемент
  sName As String
  sFam As String
  ...
End Type
Private lst(0 to 1000) As List

Как-то я делал класс для работы со списками, там было добавление, удаление, изменение, поиск, дефрагментация, перемещение элемента внутри списка... Много чего было, один "товарисч" грозился поставить несколько зеленых президентов, но получил класс и был таков

Но лучше послушай Идеолога и используй коллекции.

[ediToR]

Уточняю вопрос. Мне надо именно класс создать. Получится некая примитивная БД. Я на форме ввожу данные, они записываются в соотв. переменные класса т.е создаётся элемент списка, потом следующий и т.д. Последний должен указывать на первый элемент т.к список кольцевой. Но в VB я не вижу никаких указателей на структуры... Вот я и спрашиваю: если создам свой класс, где мне и как создать указатели на мою структуру? Грубо говоря, надо тоже самое что на С я написал сделать на VB.[/code]

[skiperski]

Переменная типа Object или конкретно твоего класса.

Пример. Пишу на лету, потому могут быть ошибилки.
Class MyNode

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

Public id As Long
Public Name As String
...
Public NextNode As MyNode
Public PrevNode As MyNode
Public FirstNode As MyNode

А примерно так будет выглядеть добавление следующего элемента в коллекцию

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

Public MyNodes As New Collection

Public Function Add(ByVal id As Long, ByVal Name As String)

Dim Node As MyNode

With Node
    .id = id
    .Name = Name
    Set .NextNode = Nothing
    If (Nodes.Count = 0) Then
        Set .FirstNode = Node
        Set .PrevNode = Nothing
    Else
        Set .FirstNode = Nodes(1)
        Set .PrevNode = Nodes(Nodes.Count)
        Set .PrevNode.NextNode = Node
    End If
End With

Nodes.Add Node

Set Add = Node
Set Node = Nothing

End Function

[gaidar]

skiperski тебе бы статьи писать .

[skiperski]

Ну, и как это назывется? Прибежал, схватил, убежал. Как в том анекдоте: ни мне "здрасти", ни жене "спасибо". Ну неужели так тяжело доложиться об исполнении?

[ediToR]

Ну, и как это назывется? Прибежал, схватил, убежал. Как в том анекдоте: ни мне "здрасти", ни жене "спасибо". Ну неужели так тяжело доложиться об исполнении?

2 skiperski: Псиба тебе огромное. Пробую реализовать выше изложенное на ВБ.НЕТ. Только не через коллекцию, а с помощью знакомого мне объявления

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

Public Class My_Class
...
....
End Class


т.к в этой версии ВБ более похожий для меня синтаксис к СИ. Только скажи мне плиз, ты в примере приводил функцию в Классе или уже в модуле формы его писал? Я так-то идею понял, но есть ещё вопросы кое-какие... В ВБ_6 это вроде работает, а вот в ВБ.НЕТ есть непонятные вещи, т.к написанно не через коллекцию..

[skiperski]

Псиба тебе огромное.

На здоровье

Пробую реализовать выше изложенное на ВБ.НЕТ.

С NET я не работал, но коллекции там тоже должны быть. Я надеюсь.

Только скажи мне плиз, ты в примере приводил функцию в Классе или уже в модуле формы его писал?

Это без разницы, можно так, можно по другому. Есть несколько уже ставших привычными моделей и надо просто выбрать какой из типов тебе ближе в понимании. Для меня удобнее выделить два класса, один, собственно, класс-данных, другой класс-контейнер для навигации по по классам-данных. Класс-контейнер внутри манипулирует коллекцией, массивом или ещё чем-либо, а наружу предоставляет стандартый интерфас: Add, Delete/Remove, Item...
Возьми тот же XML или HTML объекты и посмотри на их внешнее устройство.

[Rainbow]

С NET я не работал, но коллекции там тоже должны быть. Я надеюсь.

Когда я смотрела на .NET (это было очень давно - Beta1 ) Сollection там не было. Но был вполне заменяющий тип - Hashtable