List box vullen

[dendoet]

Hallo iedereen

Ik ben bezig met het programeren van een chat programma. Het verbinden van de pc lukt al maar ik wil het gebruiks vriendelijker maken door contact personen te kunnen toevoegen en daar zit het probleem. Hoe krijg ik deze gegevens( naam, IP, pcNaam) in een lstbox zodat al ik op de naam klik de gegevens gebruikt worden voor het verbinden van de pc's.

al vast bedankt xD

 

[WarnedGraph]

Dit wordt een lange post, maar hier gaan we:

Je moet eerst een nieuwe class toevoegen aan je project, genaamd: Contactpersoon.vb
De volgende code past daarin:

Public Class Contactpersoon

    Private sNaam As String
    Private sIP As String
    Private sPCNaam As String

    Public Sub New(ByVal Naam As String)
        Me.Naam = Naam
    End Sub

    Public Sub New(ByVal Naam As String, ByVal IPAdres As String, ByVal PCNaam As String)
        Me.Naam = Naam
        Me.IPAdres = IPAdres
        Me.PCNaam = PCNaam    
    End Sub

    Public Property Naam() As String
        Get
            Return sNaam
        End Get
        Set(ByVal value As String)
            sNaam = value
        End Set
    End Property

    Public Property IPAdres() As String
        Get
            Return sIP
        End Get
        Set(ByVal value As String)
            sIP = value
        End Set
    End Property

    Public Property PCNaam() As String
        Get
            Return sPCNaam
        End Get
        Set(ByVal value As String)
            sPCNaam = value
        End Set
    End Property

    Public Overrides Function ToString() As String
        Return Me.Naam
    End Function
End Class

Hoe maak je nu een contactpersoon aan?
Dit kan in 1 lijn:

Dim c1 As Contactpersoon = New Contactpersoon("Test", "192.1.1.1", "test_laptop")

of je kan de properties apart aanpassen:

Dim c2 As Contactpersoon = New Contactpersoon("Persoon 2")
c2.IPAdres = "192.1.1.2"
c2.PCNaam = "ps2_server"

Je voegt de contactpersonen toe aan jouw listbox en de naam zal tevoorschijn komen (de toString() methode in de class doet dit)

lstContactPersonen.Items.Add(c1)
lstContactPersonen.Items.Add(c2)

en als laatste zet je in het SelectedIndexChanged event van jouw listbox de volgende code (die messagebox is gewoon om de werking te tonen):

Dim contact As Contactpersoon = lstContactPersonen.SelectedItem
MessageBox.Show("Naam: " & contact.Naam & vbCrLf & "IP: " & contact.IPAdres & vbCrLf & "PCNaam: " & contact.PCNaam)

 

[dendoet]

Dank je wel het werkt nu. Maar kan ik mss de contact personen ook opslaan( ik heb het zo geprogrameerd dat je ze van in het programa zelf kan invoegen:

Dim c1 As ClassContactPersoon = New ClassContactPersoon(txtPcNaam.Text, txtNaam.Text, txtIpAdres.Text)

want als ik het programma afsluit en dan weer op start zijn de gegevens weg xS. Mss met Mysql of zo maar daar ken ik nog wel niets van.

grtjs

 

[WarnedGraph]

Om te beginnen kan je misschien alles wegschrijven naar een tekstbestand en dan
later nog uitbreiden naar een database, maar dat is geen goed idee, want anders moet iedereen die het programma gebruikt een database server draaien hebben.

Lezen en wegschrijven van een tekstbestand:

http://www.helpmij.nl/forum/showthread.php?t=299559

Als je vragen hebt, post je maar!

 

[dendoet]

Dim regel() As String = sr.ReadLine.Split("|")

In deze regel geef hij een foutmelding : "De objectverwijzing is niet op een exemplaar van een object ingesteld.". Wat bedoelen ze daar mee en wat kan ik er aan doen?

grtjs

 

[WarnedGraph]

Je moet de code natuurlijk aanpassen naar jou eigen programma en noden.

Post eens wat jij met de code hebt gedaan (dus hebt aangepast naar hoe jij
hem wilt gebruiken). Zowel de save als load methodes. Dan zal ik pas zien
wat er fout loopt.

Een mogelijkheid kan zijn dat er niets in het tekstbestand staat.

 

[dendoet]

Het is al opgelost. xD als ik het uitvoerde ipv in VB te runnen lukt het wel dus ik weet ook niet wat er fout is.

mercietjesssss

 

[Dnereb]

Als je een chat programma wilt maken verdiep je dan in wcf... en neem er gerust een paar weken voor. mocht je dingen vinden over WCF geschreven door regillio lees die dan heeeeeel goed. lastig om te begrijpen maar ze gaan verder dan de documentatie op MSDN.