Называть классы иногда сложно. Как вы думаете, какое название класса должно быть?
Изначально я создал класс для использования в качестве кэша, но вижу, что он может использоваться и в других целях. Пример кода для использования класса.
Dim cache = New NamePendingDictionary(Of String, Sample)
Dim value = cache("a", Function() New Sample())
А вот класс, которому нужно имя.
' <summary> '
' Enhancement of <see cref="System.Collections.Generic.Dictionary"/>. See the Item property '
' for more details. '
' </summary> '
' <typeparam name="TKey">The type of the keys in the dictionary.</typeparam> '
' <typeparam name="TValue">The type of the values in the dictionary.</typeparam> '
Public Class NamePendingDictionary(Of TKey, TValue)
Inherits Dictionary(Of TKey, TValue)
Delegate Function DefaultValue() As TValue
' <summary> '
' Gets or sets the value associated with the specified key. If the specified key does not exist '
' then <paramref name="createDefaultValue"/> is invoked and added to the dictionary. The created '
' value is then returned. '
' </summary> '
' <param name="key">The key of the value to get.</param> '
' <param name="createDefaultValue"> '
' The delegate to invoke if <paramref name="key"/> does not exist in the dictionary. '
' </param> '
' <exception cref="T:System.ArgumentNullException"><paramref name="key" /> is null.</exception> '
Default Public Overloads ReadOnly Property Item(ByVal key As TKey, ByVal createDefaultValue As DefaultValue) As TValue
Get
Dim value As TValue
If createDefaultValue Is Nothing Then
Throw New ArgumentNullException("createValue")
End If
If Not Me.TryGetValue(key, value) Then
value = createDefaultValue.Invoke()
Me.Add(key, value)
End If
Return value
End Get
End Property
End Class
РЕДАКТИРОВАТЬ: По совету Абеля я назвал класс ValueCache.