59 lines
1.5 KiB
VB.net
59 lines
1.5 KiB
VB.net
Imports System.ComponentModel
|
|
'''
|
|
<DefaultPropertyAttribute("Controlangaben")> _
|
|
Public Class ClassControl_Properties
|
|
'''
|
|
Private _Bez As String
|
|
Private _Show As Boolean
|
|
Private _Number As Short
|
|
'''
|
|
<CategoryAttribute("Controlangaben"), _
|
|
Browsable(True), _
|
|
[ReadOnly](False), _
|
|
BindableAttribute(False), _
|
|
DefaultValueAttribute(""), _
|
|
DesignOnly(False), _
|
|
DescriptionAttribute("Enter Title for the application")> _
|
|
Public Property CtrlName() As String
|
|
Get
|
|
Return _Bez
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
_Bez = Value
|
|
End Set
|
|
End Property
|
|
'''
|
|
<CategoryAttribute("Application"), _
|
|
Browsable(True), _
|
|
[ReadOnly](False), _
|
|
BindableAttribute(False), _
|
|
DefaultValueAttribute("True"), _
|
|
DesignOnly(False), _
|
|
DescriptionAttribute("Show option")> _
|
|
Public Property Show() As Boolean
|
|
Get
|
|
Return _Show
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
_Show = Value
|
|
End Set
|
|
End Property
|
|
'''
|
|
<CategoryAttribute("Application"), _
|
|
Browsable(True), _
|
|
[ReadOnly](False), _
|
|
BindableAttribute(False), _
|
|
DefaultValueAttribute("0"), _
|
|
DesignOnly(False), _
|
|
DescriptionAttribute("Enter a number")> _
|
|
Public Property Number() As Short
|
|
Get
|
|
Return _Number
|
|
End Get
|
|
Set(ByVal Value As Short)
|
|
_Number = Value
|
|
End Set
|
|
End Property
|
|
'''
|
|
End Class
|