vb.net - 特定のリストビュー タグ プロパティをテキスト ファイルに書き込む

Question

以下のコードは元々、名前に基づいてリストビューからユーザーを削除しただけです。最初にリストビューのタグ プロパティを最初にテキスト ファイルに書き込む機能を追加したいのですが、タグを削除する前に、タグが必要なリストビュー項目を指定する方法について混乱しています。誰かが私にアドバイスできますか？ありがとう。

Public Sub RemoveUser(ByVal name As Object)
    If _mainView.lvwChannelUsers.InvokeRequired Then
        _mainView.lvwChannelUsers.Invoke(New ParameterizedThreadStart(AddressOf RemoveUser), name)
    Else
        Dim lvi As ListViewItem = GetListViewItemsIndex(DirectCast(name, String))
        Dim FILE_NAME As String = Application.StartupPath & "\accounts\" & DirectCast(name, String)
        Dim objWriter As New System.IO.StreamWriter(FILE_NAME)
        objWriter.Write("This is where I need to call the tag to write.")
        objWriter.Close()
        _mainView.lvwChannelUsers.Items.Remove(lvi)
    End If
End Sub

Answer 1

ここに、必要Subなアクションの実行の修正バージョンがあります。

Public Sub RemoveUser(ByVal name As Object)
    If _mainView.lvwChannelUsers.InvokeRequired Then
        _mainView.lvwChannelUsers.Invoke(New ParameterizedThreadStart(AddressOf RemoveUser), name)
    Else
        Dim lvi As ListViewItem = _mainView.lvwChannelUsers.FindItemWithText(DirectCast(name, String))
        Dim FILE_NAME As String = Application.StartupPath & "\accounts\" & DirectCast(name, String)
        Dim objWriter As New System.IO.StreamWriter(FILE_NAME)
        objWriter.Write(lvi.Tag)
        objWriter.Close()
        _mainView.lvwChannelUsers.Items.Remove(lvi)
    End If
End Sub