jj: Baustelle - Finale Indexe
This commit is contained in:
@@ -231,38 +231,6 @@ Public Module ModuleControlProperties
|
||||
End If
|
||||
End Function
|
||||
End Class
|
||||
|
||||
Public Class SQLTypeConverter
|
||||
Inherits TypeConverter
|
||||
|
||||
Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As Globalization.CultureInfo, value As Object, destinationType As Type) As Object
|
||||
'Return MyBase.ConvertTo(context, culture, value, destinationType)
|
||||
Dim sqlvalue As SQLValue = DirectCast(value, SQLValue)
|
||||
Return sqlvalue.Value
|
||||
End Function
|
||||
End Class
|
||||
|
||||
''' <summary>
|
||||
''' Hilfsklasse, die für das anzeigen und abspeichern von SQL-Befehlen verwendet wird
|
||||
''' </summary>
|
||||
<Editor(GetType(ClassSQLEditor), GetType(UITypeEditor))>
|
||||
<TypeConverter(GetType(SQLTypeConverter))>
|
||||
Public Class SQLValue
|
||||
Private _value As String
|
||||
|
||||
Public Sub New(value As String)
|
||||
Me.Value = value
|
||||
End Sub
|
||||
|
||||
Public Property Value As String
|
||||
Get
|
||||
Return _value
|
||||
End Get
|
||||
Set(value As String)
|
||||
_value = value
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
End Class
|
||||
|
||||
Public Class TextboxProperties
|
||||
|
||||
Reference in New Issue
Block a user