http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net%2FData_Structure%2FLinkList_Yours 2026-04-06T00:09:03Z История изменений этой страницы в вики MediaWiki 1.30.0 http://www.vbex.ru/index.php?title=VB.Net/Data_Structure/LinkList_Yours&diff=1004&oldid=prev 2010-05-26T16:40:06Z

<p></p> <table class="diff diff-contentalign-left" data-mw="interface"> <tr style="vertical-align: top;" lang="ru"> <td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td> <td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td> </tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div> </td></tr></table>

http://www.vbex.ru/index.php?title=VB.Net/Data_Structure/LinkList_Yours&diff=1005&oldid=prev 2010-05-26T12:45:44Z

<p>1 версия</p> <p><b>Новая страница</b></p><div>==Build your own linked list==<br /> <br /> <br /> <br /> <br /> &lt;source lang=&quot;vbnet&quot;&gt;<br /> Imports System<br /> Imports System.Collections<br /> <br /> Public Class MainClass<br /> Shared Sub Main()<br /> Dim fooaLinkedList As New LinkedList(&quot;A&quot;)<br /> Dim aLink As Link<br /> aLink = fooaLinkedList.MakeLink(fooaLinkedList.GetFirstLink, &quot;B&quot;)<br /> aLink = fooaLinkedList.MakeLink(aLink, &quot;C&quot;)<br /> Console.WriteLine(fooaLinkedList.GetFirstLink.MyData)<br /> aLink = fooaLinkedList.GetNextLink(fooaLinkedList.GetFirstLink)<br /> Console.WriteLine(aLink.MyData)<br /> Console.WriteLine(aLink.NextLink.MyData)<br /> End Sub<br /> End Class<br /> Public Class LinkedList<br /> Private m_CurrentLink As Link<br /> Private m_FirstLink As Link<br /> Sub New(ByVal theData As String)<br /> m_CurrentLink = New Link(theData)<br /> m_FirstLink = m_CurrentLink<br /> End Sub<br /> <br /> Public Function MakeLink(ByVal currentLink As Link, ByVal theData As String) As Link<br /> m_CurrentLink = New Link(currentLink, theData)<br /> Return m_CurrentLink<br /> End Function<br /> Public ReadOnly Property GetNextLink(ByVal aLink As Link) As Link<br /> Get<br /> Return aLink.NextLink()<br /> End Get<br /> End Property<br /> Public ReadOnly Property GetCurrentLink() As Link<br /> Get<br /> Return m_CurrentLink<br /> End Get<br /> End Property<br /> Public ReadOnly Property GetFirstLink() As Link<br /> Get<br /> Return m_FirstLink<br /> End Get<br /> End Property<br /> <br /> End Class<br /> Public Class Link<br /> Private m_MyData As String<br /> Private m_NextLink As Link<br /> Friend Sub New(ByVal myParent As Link, ByVal theData As String)<br /> m_MyData = theData<br /> myParent.m_NextLink = Me<br /> End Sub<br /> Friend Sub New(ByVal theData As String)<br /> m_MyData = theData<br /> End Sub<br /> Friend ReadOnly Property MyData() As String<br /> Get<br /> Return m_MyData<br /> End Get<br /> End Property<br /> Friend ReadOnly Property NextLink() As Link<br /> Get<br /> Return m_NextLink<br /> End Get<br /> End Property<br /> End Class<br /> <br /> &lt;/source&gt;</div>

Admin