BaseForm

Public Class BaseForm
Implements IBaseControl, IFormInit
<DefaultValue(0)>
<Browsable(True)>
<Description("当Controlを使用可能となるRoleId")>
Public Property RoleId As Integer Implements IBaseControl.RoleId

Sub New()
InitializeComponent()
Me.Font = New Font(BaseConstants.FONT_MEIRYO, 9)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.FormBorderStyle = FormBorderStyle.FixedSingle
End Sub

Private Sub BaseForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.InitForm()
End Sub
Protected Overridable Sub InitForm() Implements IFormInit.InitForm
Me.Text = GetConfigParameters.GetAppName
End Sub
End Class