Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim poista As String remove.GetData poista ListBox1.RemoveItem poista End Sub
Koodin pitäisi poistaa listboksista wössin sendimä data muttei onnistu. Onglema on se, että koodi yrittää poistaa poista-esineen eikä poista-muuttujan dataa. Miten saisin sen poistamaan wössistä tulleen datan?
Ongelmanahan on se, että "poista" on merkkijono, mutta RemoveItem hyväksyy vain jonkunlaisen luvun.
vaihda vaikkapa byteksi, tai integeriksi? Tarkoitan: RemoveItem tähänjokunumero
If IsNumeric(poista) Then ListBox1.RemoveItem CLng(Val(poista)) Else MsgBox "Poisto ei onnistunut, koska data ei ollut numeromuodossa: " & poista End If
Aihe on jo aika vanha, joten et voi enää vastata siihen.