Koodit: VB6: Yksinkertainen käyttäjälista

'Tehdään jokaiselle käyttäjälle tyyppi
Type Käyttäjä
    'Joka sisältää käyttäjän nickin
    name As String
    'ja tiedon esim missä soketissa se on
    id As Integer
End Type

Dim Käyttäjät() As Käyttäjä
Dim Käyttäjät_on_alustettu As Boolean
Dim onko_tyhjä As Boolean
Sub Lisää_käyttäjä(Nimi As String, Optional id As Integer = 0)
    If Not Käyttäjät_on_alustettu Then
        'luodaan taulukko
        Käyttäjät_on_alustettu = True
        ReDim Käyttäjät(0)
    Else
        If Not onko_tyhjä Then
           'Kasvatetaan Käyttäjien_nimet taulukkoa yhdellä niin, että vanhat tiedot
           ReDim Preserve Käyttäjät(UBound(Käyttäjät) + 1)
        End If
    End If

    'Sijoitetaan taulukon viimeiseen kohtaan uusi käyttäjä
    Dim temp As Käyttäjä
    temp.name = Nimi
    temp.id = id
    Käyttäjät(UBound(Käyttäjät)) = temp
    onko_tyhjä = False
End Sub

Sub Poista_käyttäjä_id(id As Integer)
    Dim i As Integer

    If Not Käyttäjät_on_alustettu Then Exit Sub

    'käydään kaikki käyttäjät läpi
    For i = 0 To UBound(Käyttäjät)
        'ja verrataan sitä etsittyyn nimeen
        If (Käyttäjien_nimet(i).id = id) Then
            'jos täsmää niin poistetaan nimi luettelosta (siirretään alemmat askeleen ylemmäs)
            Dim e As Integer
            For e = i To UBound(Käyttäjät) - 1
                Käyttäjät(e) = Käyttäjät(e + 1)
            Next

            'pienennetään taulukkoa yhdellä
            If Not UBound(Käyttäjät) = 0 Then
                ReDim Preserve Käyttäjät(UBound(Käyttäjät) - 1)
            Else
                onko_tyhjä = True
            End If
            Exit Sub
        End If
    Next
End Sub
Sub Poista_käyttäjä_name(name As String)
    Dim i As Integer

    If Not Käyttäjät_on_alustettu Then Exit Sub

    'käydään kaikki käyttäjät läpi
    For i = 0 To UBound(Käyttäjät)
        'ja verrataan sitä etsittyyn nimeen
        If (Käyttäjät(i).name = name) Then
            'jos täsmää niin poistetaan nimi luettelosta
            Dim e As Integer
            For e = i To UBound(Käyttäjät) - 1
                Käyttäjät(e) = Käyttäjät(e + 1)
            Next

            'pienennetään taulukkoa yhdellä jos voidaan
            If Not UBound(Käyttäjät) = 0 Then
                ReDim Preserve Käyttäjät(UBound(Käyttäjät) - 1)
            Else
                onko_tyhjä = True
            End If
            Exit Sub
        End If
    Next
End Sub
Function Get_käyttäjä_name(name As String) As Käyttäjä
    Dim i As Integer

    If onko_tyhjä Or Not Käyttäjät_on_alustettu Then
        Exit Function
    End If

    'käydään kaikki käyttäjät läpi
    For i = 0 To UBound(Käyttäjät)
        'ja verrataan sitä etsittyyn nimeen
        If (Käyttäjät(i).name = name) Then
            'palautetaan kayttäjä
            Get_käyttäjä_name = Käyttäjät(i)
            Exit Function
        End If
    Next
End Function
Function Get_käyttäjä_id(id As Integer) As Käyttäjä
    Dim i As Integer

    If onko_tyhjä Or Not Käyttäjät_on_alustettu Then
        Exit Function
    End If

    'käydään kaikki käyttäjät läpi
    For i = 0 To UBound(Käyttäjät)
        'ja verrataan sitä etsittyyn nimeen
        If (Käyttäjät(i).id = id) Then
            'palautetaan kayttäjä
            Get_käyttäjä_name = Käyttäjät(i)
            Exit Function
        End If
    Next
End Function
Function Listaa_käyttäjät(Optional Erotin As String = vbCrLf) As String
    Dim i As Integer
    Dim retuni As String

    If onko_tyhjä Or Not Käyttäjät_on_alustettu Then
        Listaa_käyttäjät = ""
        Exit Function
    End If

    'käydään kaikki käyttäjät läpi
    For i = 0 To UBound(Käyttäjät)
        If i = 0 Then
            'ja lisätään returniin ilman erotinta
            retuni = Käyttäjät(i).name
        Else
            'ja lisätään returniin erottimen kanssa
            retuni = retuni & Erotin & Käyttäjät(i).name
        End If
    Next
    Listaa_käyttäjät = retuni
End Function