BaseTestBox

Imports System.ComponentModel
Imports System.Web.Caching

Public Class BaseTextBox
Implements IBaseControl
<DefaultValue(0)>
<Browsable(True)>
<Description("当Controlを使用可能となるRoleId")>
Public Property RoleId As Integer = 0 Implements IBaseControl.RoleId
Private _font As Font = New Font(BaseConstants.FONT_MEIRYO, 9)
<DefaultValue(GetType(Font), "Meiryo UI, 9pt")>
<Browsable(True)>
<Description("Font設定")>
Public Overrides Property Font As Font
Get
Return MyBase.Font
End Get
Set(value As Font)
_font = value
MyBase.Font = _font
End Set
End Property
Sub New()
InitializeComponent()
End Sub
End Class