从VBA转换为VB.NET

Question

我正在尝试将这个小代码从Vba转换为Vb.net但没有成功。 希望得到一些帮助。

Dim str As String, i As Long

For i = 0 To lstPages.ListCount - 1

    If lstPages.Selected(i) Then
        If str <> vbNullString Then str = str & "-"
        str = str & lstPages.List(i)
    End If
Next

Answer 1

  

    

所以你想要从ListView的所有选定行中的第三列，用“ - ”分隔的一个字符串？

         

是的，这是对的。

  

然后做：

    Dim values As New List(Of String)
    For Each lvi As ListViewItem In lstPages.SelectedItems
        values.Add(lvi.SubItems(2).Text)
    Next
    Dim str As String = String.Join("-", values)
    Debug.Print(str)

Answer 2

我认为你可以这样做：

For i as integer = 0 To lstPages.ListCount - 1
If lstPages.Selected(i) Then
    If Not String.IsNullOrEmpty(str) Then 
     str &= "-"
    str &= lstPages.List(i)
End If
Next