[VB] Listbox verzenden

[ddkiller0900]

Ik heb hier iets gemaakt en nu moet de inhoud van listbox (er worden dus steeds objecten toegevoegd) verzonden worden naar een client. Ik zou dus gewoon moeten weten hoe die property heet, ik heb al vanal geprobeerd.

zoiets als list1.index maar dat werkt niet
wat moet dit zijn?

[XTerm]

verzonden naar een client as in winsock?

[Sponge]

'//P-Code - Server side

code:

Dim I as long
Dim strData as string
For I = 0 to listbox.listcount -1
 strData = strData & "|" & listbox.list(i) 
Next I

Winsock.SendData strdata & vbcrlf

Het is beter om alles in een string te zetten en dan op de client side weer uit elkaar te halen... dit bespaard header info, en is sowieso sneller (bespaart ook Listbox.listcount * 2 bytes aan vbcrlf)

code:

'//P-Code clientside

Sub ReceiveData()

Dim strData as String
Dim mySplit() as String
Dim I as Long
call Winsock.getdata(strData)

mysplit = Split(strdata,"|")

'//Voeg items aan de lijst, client side
For I = 0 to Ubound(mysplit)
 list.additem mysplit(i)
Next I

Moet perfect werken

/41.6C.6D.61.72

[ddkiller0900]

ja, maar dat maakt nu nog niet zoveel uit, als ik gewoon weet hoe ik de inhoud van die list kan weergeven dan heb ik alle info die ik nodig heb, dat verzenden ken ik allemaal, het is gewoon de inhoud van die listbox die ik moet weergeven.

[ddkiller0900]

bedankt voor vlugge reactie, meteen ff testen

[Sponge]

code:

For I = 0 to listbox.listcount -1
 Item = listbox.List(I)
Next I

Dat bedoel je?

/41.6C.6D.61.72

[Sponge]

oh ok

Beide online blijkbaar


/41.6C.6D.61.72

[ddkiller0900]

Private Sub Command1_Click()
a = Int(Rnd * 10)
List1(Index).AddItem a

End Sub

Private Sub Command2_Click()
List2(Index).AddItem List1(0).List

End Sub


hier is een makkelijker voorbeeld, als dit werkt kan ik het toepassen in mijn proggie. dus ik wil de inhoud van de ene list in de andere list hebben. Maar ik werk dus met een index en dus wat ik aanklik in die lijst moet in de andere lijst worden opgenomen

[Verwijderd]

Op maandag 28 januari 2002 21:34 schreef 41.6C.6D.61.72 het volgende:
/41.6C.6D.61.72

Lees de FAQ ns

[Sponge]

Snap niet wat Dev wil, maar iig:

code:

Dim I as Long

For I = 0 to list1.listcount -1
 '//Selected?
 If list1.Selected(I) = True Then
  '//Add item
  list2.Additem list1.list(i)
 End If
Next I

Ik ben gewend aan Engelse comments.. en dat hou ik liever zo..

/41.6C.6D.61.72

[Verwijderd]

Op maandag 28 januari 2002 21:56 schreef 41.6C.6D.61.72 het volgende:
Snap niet wat Dev wil

Wij tweakers doen elkaar permanent de groeten. Het is dus niet nodig om steeds ruimteverspillende "greetz [user]" of iets dergelijks onder je post te plakken. Als je perse zoiets wilt kun je daar je signature voor gebruiken (zie latere uitleg).

[Sponge]

OT:
De ruimte verspilling zou theoretish naar de browser toe precies hetzelfde zijn, alleen in de DB zou het een paar (15, Ansi, 30 Unicode) bytes schelen...

Trouwens heb toch een sig =-)

/41.6C.6D.61.72

[Verwijderd]

Op maandag 28 januari 2002 22:06 schreef 41.6C.6D.61.72 het volgende:
OT:
De ruimte verspilling zou theoretish naar de browser toe precies hetzelfde zijn, alleen in de DB zou het een paar (15, Ansi, 30 Unicode) bytes schelen...

Trouwens heb toch een sig =-)

/41.6C.6D.61.72

offtopic:
Ach, daar gaat t nie om, ik zit er ook niet mee. Sommige mensen hier vinden t alleen irritant, k zeg t daarom maar ff.