Visual Basic

Public Class Posts
	Public Name As String
	Public ID As Integer
	Public Selected As Boolean

	Public Function MakeList() as ArrayList
		Dim list as New ArrayList();
		list.Add(Name);
		list.Add(ID);
		list.Add(Selected);
		Return list;
	End Function

End Class

Public Class Form1<br />
    Inherits System.Windows.Forms.Form<br />
<br />
    Public Class Posts<br />
        Implements IComparable<br />
<br />
        Public Name As String<br />
        Public ID As Integer<br />
        Public Selected As Boolean<br />
<br />
        Public Function CompareTo(ByVal obj As Object) As Integer Implements System.IComparable.CompareTo<br />
<br />
            Dim temp As Posts = CType(obj, Posts)<br />
            Dim vMe As String = Name<br />
            Dim iMe As Integer = ID<br />
            Dim mestxt<br />
<br />
            mestxt = "Name=" & vMe & ", Id=" & ID & "  Temp name=" & temp.Name & " Temp_ID=" & temp.ID<br />
            MessageBox.Show(mestxt, "Compare")<br />
<br />
            If vMe < temp.Name Then<br />
                MessageBox.Show("1")<br />
                Return 1<br />
            End If<br />
<br />
            If vMe > temp.Name Then<br />
                Return 0<br />
            End If<br />
<br />
        End Function<br />
<br />
    End Class<br />
<br />
<br />
<br />
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
        Dim oArr As New ArrayList<br />
        Dim mestxt As String<br />
<br />
<br />
        Dim oPost As New Posts<br />
        oPost.Name = "C"<br />
        oPost.ID = 1<br />
        oPost.Selected = False<br />
        oArr.Add(oPost)<br />
        oPost = Nothing<br />
<br />
        oPost = New Posts<br />
        oPost.Name = "B"<br />
        oPost.ID = 2<br />
        oPost.Selected = True<br />
        oArr.Add(oPost)<br />
        oPost = Nothing<br />
<br />
        oPost = New Posts<br />
        oPost.Name = "C"<br />
        oPost.ID = 3<br />
        oPost.Selected = True<br />
        oArr.Add(oPost)<br />
        oPost = Nothing<br />
<br />
        mestxt = "Original -> "<br />
        For Each oPost In oArr<br />
            mestxt = mestxt + oPost.Name & ", "<br />
        Next<br />
        MessageBox.Show(mestxt)<br />
<br />
        oArr.Sort()<br />
        oPost = Nothing<br />
        oPost = New Posts<br />
<br />
        mestxt = mestxt & "Sorted -> "<br />
        For Each oPost In oArr<br />
            mestxt = mestxt + oPost.Name & ", "<br />
        Next<br />
        MessageBox.Show(mestxt)<br />
<br />
    End Sub<br />
End Class

Public Class Posts<br />
        Implements IComparable<br />
        Public Name As String<br />
        Public ID As Integer<br />
        Public Selected As Boolean<br />
<br />
        Public Function CompareTo(ByVal obj As Object) As Integer Implements System.IComparable.CompareTo<br />
            Dim temp As Posts = CType(obj, Posts)<br />
            Dim mestxt<br />
<br />
            If Name > temp.Name Then<br />
                Return 1<br />
            ElseIf Name = temp.Name Then<br />
                Return 0<br />
            Else<br />
                Return -1<br />
            End If<br />
<br />
        End Function<br />
<br />
    End Class

the.bombardier wrote:

i mean how can i verify if it is an actual existing address?

wrote:

I want to know that what are the different types of client server architecture ?

wrote:

What is file server architecture

wrote:

Examples of different databases that are of either type

sdkgolf wrote:

I don't understand what you mean by 'field'.