25 lines
858 B
VB.net
25 lines
858 B
VB.net
Imports System.ComponentModel
|
|
Imports System.Globalization
|
|
|
|
Public Class IndexListConverter
|
|
Inherits TypeConverter
|
|
|
|
Public Overrides Function GetStandardValuesSupported(context As ITypeDescriptorContext) As Boolean
|
|
Return True
|
|
End Function
|
|
|
|
Public Overrides Function GetStandardValues(context As ITypeDescriptorContext) As StandardValuesCollection
|
|
Dim indexList = DirectCast(context.Instance, FinalIndexProperties).Indicies
|
|
Dim values As New StandardValuesCollection(indexList)
|
|
Return values
|
|
End Function
|
|
|
|
Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As CultureInfo, value As Object, destinationType As Type) As Object
|
|
If IsNothing(value) Then
|
|
Return ""
|
|
Else
|
|
Return value.ToString()
|
|
End If
|
|
End Function
|
|
End Class
|