OverrideもShadowも、親Classて定義されているメソッドの内容を 子クラスで変更する際に使用されるが、挙動は少し事なる。 ■Shadow Public Class class1 Sub test() MessageBox.Show("Class1") End Sub End ClassPublic Class class2 Inherits class1 Shadow…

①ソリューションエクスプローラで右クリック ②新規追加⇒カスタムコントロールを指定 (ユーザコントロールではないので注意) ③追加したファイルのDesingner.vbを開き、継承するクラスを変更 Inherits System.Windows.Forms.Control⇒ Inherits System.Windows.…

Imports System.ComponentModelImports System.Data.SqlClientImports System.Reflection Public Class TData(Of T As New) Implements IDisposable Public Property DTable() As DataTable Public Property DList() As List(Of T) Public Sub New() Me.DLis…

Public Class TUserInfo Implements ITData Public Property UserId As String Public Property UserName As String Public Property UserPassword As String Public Property UserGrant As Integer Public Property GrantText As String Public Property Us…

Imports System.Data.SqlClientImports System.TextPublic Class TDUpdUserInfo Inherits BaseDAO Private Const TABLE_NAME As String = "UserInfo" Private ReadOnly _tCls As TUserInfo Sub New(ByVal tCls As TUserInfo) MyBase.New _tCls = tCls End Su…

Imports System.Data.SqlClientImports System.Text Public Class TDInsUserInfo Inherits BaseDAO Private Const TABLE_NAME As String = "UserInfo" Private ReadOnly _tCls As TUserInfo Sub New(ByVal tCls As TUserInfo) MyBase.New _tCls = tCls End S…

Imports System.Data.SqlClientImports System.Text Public Class TDControlNoManager Inherits BaseDAO Private Const TABLE_NAME As String = "ControlNoManager" Public Property TData As TControlNoManager Public Property DataList As TData(Of TCont…

Imports System.Data.SqlClientImports System.Runtime.CompilerServices Public MustInherit Class BaseDAO Private connection As SqlConnection Public Sub Execute() Me.connection = New SqlConnection(GetConfigParameters.GetMSSQLConnectString) Usi…