如何从数组中读取列值

Question

我有下面的 VB6 代码，其中在 VB6 代码中传递了两个参数以从集合数组中读取列值。如何将此代码迁移到 Vb.Net。即使我在下面提到向导生成 VB.Net 代码。

Private m_colBookmarks As Collection
Private Const COL_ERR_BKMARK_COMP_TITLE = 2
Private Property Get BookmarkCompTitle(ByVal strBookmarkNum As String) As String          
    BookmarkCompTitle = m_colBookmarks(strBookmarkNum)(COL_ERR_BKMARK_COMP_TITLE)
End Property

这是 vb.net 代码。

 Private ReadOnly Property BookmarkCompTitle(ByVal strBookmarkNum As String) As String
    Get          

        BookmarkCompTitle = m_colBookmarks.Item(strBookmarkNum)(COL_ERR_BKMARK_COMP_TITLE)
    End Get
End Property

Answer 1

Option Strict On

Imports System.Collections.ObjectModel

Public Class Class1
    Private m_colBookmarks As Collection(Of String())
    Private Const COL_ERR_BKMARK_COMP_TITLE = 2

    ' here Is the vb.net code.
    Private ReadOnly Property BookmarkCompTitle(ByVal strBookmarkNum As String) As String
        Get
            Dim bookmarkNum As Integer

            If Not Int32.TryParse(strBookmarkNum, bookmarkNum) OrElse bookmarkNum < 0 Then                    
                Throw New ArgumentException("strBookmarkNum must be a positive integer.")
            End If

            BookmarkCompTitle = m_colBookmarks.Item(bookmarkNum)(COL_ERR_BKMARK_COMP_TITLE)
        End Get
    End Property
End Class

如何从数组中读取列值

How to read a column value from an array

vb.net

vb6-migration