■値を渡すフォームを開く側 '---passRecValueを授受する値とする。 Dim passRecValue as ClassTest ’---passRecValueに渡す値をセット passRecValue =渡し元Formでの処理 '---RecFormを渡し先Formとする。このメソッドの戻り値で ’---渡し先Formで処理された…

<<準備>> Dim tUser As New TUserInfo Dim tList As New TData(Of TUserInfo) Dim tdUsr As New TDUserInfo(tUser, tList) (*)TDataはジェネリックな自作クラス (*)tList.DlListは、List(Of T) ①実行時型情報取得 Dim typ As Type = tList.GetType Dim typ2 …

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 = Fals…</description("当controlを使用可能となるroleid")></browsable(true)></defaultvalue(0)>

Imports System.ComponentModelImports 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.FON…</description("当controlを使用可能となるroleid")></browsable(true)></defaultvalue(0)>

ColumnHeadersHeightSizeModeをEnableResizingにしないと ColumnHeaderの高さを変更しても反映されないが、 なぜかここで設定した値が使用先で反映されない。 使用先で手動にてColumnHeadersHeightSizeModeをEnableResizing に変更する必要がある。 Imports …

■条件指定にて削除 DList.RemoveAll(Function(x) x.GetType().GetProperty(keyName). GetValue(x) = keyValue) ・Dlist：削除対象List ・keyName：条件を掛ける対象列名 ・keyValue：条件値

■単一データの場合 ・item.GetType.Name ■GenericなList等の場合 List.GetTypeでは正しく取得できない。 List内の一つのデータに対して行う ・List(0).GetType.Name

■ListをLINQのOrderByで並べ変え、再度Listにセットすると型が違う為エラーとなる OrderBy結果をToListすることで、Listに変換可能。 (*)NGケース Dim testList as Lits(T) = workList.OrderBy(Function(x) x.Id) (*)OKケース Dim testList as Lits(T) = wor…