C# と VB.NET の質問掲示板

■No62412 (やんまー さん) に返信

確かに仰る通りの状態になりますね。初めて知りました。
削除してから追加し直す、という方法ではだめでしょうか。

Sub Button3Click(sender As Object, e As EventArgs)
    Dim c As testclass = ListBox1.Items(0)
    ListBox1.Items.Remove(c)
    c.name = TextBox1.Text
    ListBox1.Items.Insert(0, c)
End Sub

■No62413 (NF64 さん) に返信
削除/挿入をしなくても、もう一度セットしなおせば大丈夫でした。

Dim temp As testclass = DirectCast(Me.ListBox1.Items.Item(0), testclass)
temp.name = "456"
Me.ListBox1.Items.Item(0) = temp


クラスの方で自身を返すメソッドを作っておくとか。
あまり意味が無い気もしますけど･･･、とりあえず
Class testclass
...
    Public Function func(ByVal str As String) As testclass
        Me.name = str
        Return Me
    End Function
...
End Class

Dim index As Integer = 0
ListBox1.Items.Item(index) = DirectCast(ListBox1.Items.Item(index), testclass).func("456")

NF64 さん

回答有難う御座います。

		For i As Integer = 0 To listBox1.Items.Count - 1
			dim b As testclass = listBox1.Items( i )
			ListBox1.Items.Remove(b)
			ListBox1.Items.Insert(i, b)
			Debug.Print( i )
		Next

として見ました。

上手く行ったように見えます！