listbox + hidden value?

[TCarter]

Howdy people,

I know there is a code to do this, but I forgot what it is...


It was something where i can listbox.items.add("Visible Value in LB", "Hidden Value") or vice versa...

Reasoning:

Trying to make simple chat, with multiple rooms...

When User 1 connects, his id is 1, User 2 connects with his id of 2.

When User 1 leaves the room, i need the user 2 client to remove 'User 1'(id of 1).


Thanks in advance.

[.paul.]

you'd use a custom listItem:

Public Class Form1
 
    Private Structure listItem
        Dim _display As String
        Dim _hidden As String
        Public Sub New(ByVal display As String, ByVal hidden As String)
            Me._display = display
            Me._hidden = hidden
        End Sub
        Public Overrides Function ToString() As String
            Return Me._display
        End Function
    End Structure
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strings() As String = {"one", "two", "three", "four", "five"}
        For x As Integer = 1 To 5
            ListBox1.Items.Add(New listItem(strings(x - 1), x.ToString))
        Next
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        MsgBox(DirectCast(ListBox1.SelectedItem, listItem)._hidden)
    End Sub
 
End Class

[TCarter]

So, in your example,

(display = hidden)
One = 1
Two = 2
Three = 3
Four = 4
Five = 5

How would I remove the ID of 5?(the hidden value)

[.paul.]

Public Class Form1

    Private Structure listItem
        Dim _display As String
        Dim _hidden As String
        Public Sub New(ByVal display As String, ByVal hidden As String)
            Me._display = display
            Me._hidden = hidden
        End Sub
        Public Overrides Function ToString() As String
            Return Me._display
        End Function
    End Structure

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strings() As String = {"one", "two", "three", "four", "five"}
        For x As Integer = 1 To 5
            ListBox1.Items.Add(New listItem(strings(x - 1), x.ToString))
        Next
        'to remove the hidden value of the fifth item
        Dim l As listItem = DirectCast(ListBox1.Items(4), listItem)
        l._hidden = ""
        ListBox1.Items(4) = l
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        MsgBox(DirectCast(ListBox1.SelectedItem, listItem)._hidden)
    End Sub

End Class

[TCarter]

Not quite what I meant.

In short..a list box of:

(Displayed Username = Hidden UserID)
TCarter = 283
.paul. = 193
Jason = 2293
Joe = 289732
Ryan = 892732
Adam = 2987392873
Pearl = 111111
Patrick = 289732111


Ok, so.

When I want to remove 111111 (which is Pearl)

I want to do whatever.remove("111111") (not necessarily that command..just an example)

It will remove 'Pearl' from the list. Not just remove the '111111'.

[.paul.]

Public Class Form1
 
    Private Structure listItem
        Dim _display As String
        Dim _hidden As String
        Public Sub New(ByVal display As String, ByVal hidden As String)
            Me._display = display
            Me._hidden = hidden
        End Sub
        Public Overrides Function ToString() As String
            Return Me._display
        End Function
    End Structure
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strings(,) As String = {{"TCarter", "283"}, {".paul.", "193"}, {"Jason", "2293"}, {"Joe", "289732"}, {"Ryan", "892732"}, {"Adam", "2987392873"}, {"Pearl", "111111"}, {"Patrick", "289732111"}}
        For x As Integer = 1 To 8
            ListBox1.Items.Add(New listItem(strings(x - 1, 0), strings(x - 1, 1)))
        Next
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        MsgBox(DirectCast(ListBox1.SelectedItem, listItem)._hidden)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'removeByName
        Dim [name] As String = InputBox("enter name to delete")
        Dim item = (From li In ListBox1.Items.Cast(Of listItem)().ToArray _
                               Where li._display = [name] _
                               Select li)
        If item.Count > 0 Then ListBox1.Items.Remove(item.First)
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'removeByID
        Dim id As String = InputBox("enter ID to delete")
        Dim item = (From li In ListBox1.Items.Cast(Of listItem)().ToArray _
                               Where li._hidden = id _
                               Select li)
        If item.Count > 0 Then ListBox1.Items.Remove(item.First)
    End Sub
End Class

[TCarter]

Thank you oh so much paul.

[TCarter]

I truly do appreciate all the help, but would like to ask of 1 more thing.


How can I find the display string, associated with the hidden string?

Example: 'whatever("idgoeshere")' returns: the displaystring here.

[.paul.]

here's how to do it. it's not a function but you get the idea...

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    'getNameFromID
    Dim id As String = InputBox("enter ID to find")
    Dim item = (From li In ListBox1.Items.Cast(Of listItem)().ToArray _
                           Where li._hidden = id _
                           Select li._display)
    If item.Count > 0 Then MsgBox(item.First)
End Sub