VB.net

Public Property GridReadOnly() As Boolean
    Get
        Return _gridReadOnly
    End Get
    Set(ByVal value As Boolean)
        _gridReadOnly = value
    End Set
End Property
 
Public Property CellReadOnly() As Boolean
    Get
        If Me.Grid.ReadOnly = True Then
            Return True
        Else
            Return _cellReadOnly
        End If
    End Get
    Set(ByVal value As Boolean)
        _readOnly = value
    End Set
End Property
 
Public Property RowReadOnly() As Boolean
    Get
        Return _rowReadOnly
    End Get
    Set(ByVal value As Boolean)
        If value = True Then
            For Each cell As DataGridViewCell In Me.cells
                cell.ReadOnly = True
            Next
        End If
        _rowReadOnly = value
    End Set
End Property
 
Public Property ColumnReadOnly() As Boolean
    Get
        Return _columnReadOnly
    End Get
    Set(ByVal value As Boolean)
        If value = True Then
            For Each cell As DataGridViewCell In Me.cells
                cell.ReadOnly = True
            Next
        End If
        _columnReadOnly = value
    End Set
End Property

<DllImport("user32.dll")> Private Shared Function SetForegroundWindow(ByVal hWnd As IntPtr) As Boolean
End Function
<DllImport("user32.dll")> Private Shared Function GetForegroundWindow() As IntPtr
End Function
<DllImport("user32.dll")> Private Shared Function ShowWindowAsync(ByVal hWnd As IntPtr, ByVal nCmdShow As Integer) As Boolean
End Function
Private Const SW_RESTORE As Integer = 9 ' 画面を元の大きさに戻す
<DllImport("user32.dll")> Private Shared Function IsIconic(ByVal hWnd As IntPtr) As Boolean
End Function
<DllImport("user32.dll")> Private Shared Function GetWindowThreadProcessId(ByVal hwnd As IntPtr, ByRef lpdwProcessId As Integer) As Integer
End Function
<DllImport("user32.dll")> Private Shared Function AttachThreadInput(ByVal idAttach As Integer, ByVal idAttachTo As Integer, ByVal fAttach As Boolean) As Boolean
End Function
 
    Public Shared Sub ActivateWindow(ByVal myHandle As System.IntPtr)
        'Static myThreadProcessId As Integer = GetWindowThreadProcessId(myHandle, 0&)    'こっちでもいいけど
        Static myThreadProcessId As Integer = System.Threading.Thread.CurrentThread.ManagedThreadId
 
        If IsIconic(myHandle) Then
            ShowWindowAsync(myHandle, SW_RESTORE)
        End If
 
        Static fgHandle As System.IntPtr = GetForegroundWindow()
        If myHandle <> fgHandle Then
            Dim fgThreadProcessId As Integer = GetWindowThreadProcessId(fgHandle, 0&)
            AttachThreadInput(myThreadProcessId, fgThreadProcessId, True)
            SetForegroundWindow(myHandle)
            AttachThreadInput(myThreadProcessId, fgThreadProcessId, False)
        End If
    End Sub
 

channel = New IpcServerChannel("ChannelA")
ChannelServices.RegisterChannel(channel, False)
RemotingConfiguration.RegisterWellKnownServiceType(myServiceClass.GetType, "ServiceClass", Runtime.Remoting.WellKnownObjectMode.SingleCall)

Public Sub Hoge
    Dim myServiceClass As ServiceClass = Activator.GetObject(GetType(ServiceClass), "ipc:/ChannelA/ServiceClass")
    myServiceClass.Moge
End Sub

Public Sub Hoge
    Dim myServiceClass As ServiceClass = Activator.GetObject(GetType(ServiceClass), "ipc:/ChannelA/ServiceClass")
    myServiceClass.Moge
    myServiceClass = Nothing   '←コレを追加
End Sub

Public Class DataGridViewEx
    Inherits DataGridView
    Private _rejectbyescape As RejectByEscapeType = RejectByEscapeType.None
    Public Enum RejectByEscapeType As Integer
        None = 0
        CurrentRow = 1
        SelectedRows = 2
    End Enum
 
    Public Property RejectByEscape() As RejectByEscapeType
        Get
            Return _rejectbyescape
        End Get
        Set(ByVal value As RejectByEscapeType)
            _rejectbyescape = value
        End Set
    End Property
 
    Private Sub DataGridViewEx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Try
            If e.KeyCode = Keys.Escape Then
                '編集モードではなくReadOnlyでもなければRejectChanges
                '(グリッドがReadOnlyのときはCurrentRowも自動的にReadOnlyになるのでCurrentRowだけで判定してOK)
                If (IsCurrentCellInEditMode = False) And (CurrentRow.ReadOnly = False) Then
                    Select Case _rejectbyescape
                        Case RejectByEscapeType.CurrentRow
                            DirectCast(Me.CurrentRow.DataBoundItem, DataRowView).Row.RejectChanges()
                        Case RejectByEscapeType.SelectedRows
                            For Each dgvr As DataGridViewRow In SelectedRows
                                DirectCast(dgvr.DataBoundItem, DataRowView).Row.RejectChanges()
                            Next
                    End Select
                End If
            End If
        Catch ex As Exception
            MessageBox.Show(ex.ToString & ex.Message)
        End Try
    End Sub
End Class
 

System.AppDomain.CurrentDomain.SetupInformation.ConfigurationFile

ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.PerUserRoamingAndLocal).FilePath

<Compile Include="MainForm.Menu.vb">
  <DependentUpon>MainForm.vb</DependentUpon>　'←この行を追加
  <SubType>Form</SubType>
</Compile>

Public Function ControlPath(ByVal ctl As Control) As String
    Try
        If ctl.Parent Is Nothing Then
            Return ctl.Name
        Else
            Return ControlPath(ctl.Parent) & "." & ctl.Name
        End If
    Catch ex As Exception
        MessageBox.Show(ex.ToString)
        Return ""
    End Try
End Function

Private Class BindingReverseBoolean
    Inherits Binding
 
    Public Sub New(ByVal propertyName As String, ByVal dataSource As Object, ByVal dataMember As String)
        MyBase.New(propertyName, dataSource, dataMember, False, Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)
    End Sub
 
    Private Sub BindingReverseBoolean_Format(ByVal sender As Object, ByVal e As System.Windows.Forms.ConvertEventArgs) Handles Me.Format
        e.Value = Not e.Value
    End Sub
 
    Private Sub BindingReverseBoolean_Parse(ByVal sender As Object, ByVal e As System.Windows.Forms.ConvertEventArgs) Handles Me.Parse
        e.Value = Not e.Value
    End Sub
End Class

myCheckBox.DataBindings.Add(New BindingReverseBoolean("Checked", mySplitContainer, "Panel2Collapsed"))

For Each pi As PropertyInfo In target.GetType.GetProperties
    Select Case True
        Case TypeOf pi.PropertyType Is String  '←ここがダメ
		...
        Case Else
		...
    End Select
Next

For Each pi As PropertyInfo In target.GetType.GetProperties
    Select Case True
        Case pi.PropertyType Is GetType(System.Byte)  '←これでOK
		...
        Case Else
		...
    End Select
Next

Private relationTest As System.Data.DataRelation
 
Me.relationTest = New System.Data.DataRelation( _
	"relationTest", 
	New System.Data.DataColumn() {Me.tableA.ShohinCDColumn}, _
	New System.Data.DataColumn() {Me.tableB.ShohinCDColumn}, _
	false)
Me.Relations.Add(Me.relationTest)
Me.tableA.ShohinNameColumn.Expression = "Parent(rerarionTest).ShohinName"
 

AddHandler DataBindings.CollectionChanged, AddressOf DataBindings_CollectionChanged

RemoveHandler DataBindings.CollectionChanged, AddressOf DataBindings_CollectionChanged

DebugTimer.WriteLine("Testスタート")
cboSample.DataSource = New DataView(dt)          '←先に設定
DebugTimer.WriteLine("DataSourceをセット")
cboSample.ValueMember = "連結したい列名"
DebugTimer.WriteLine("ValueMemberをセット")
cboSample.DisplayMember = "表示したい列名"
DebugTimer.WriteLine("DisplayMemberをセット")
 

DebugTimer.WriteLine("Testスタート")
cboSample.ValueMember = "連結したい列名"
DebugTimer.WriteLine("ValueMemberをセット")
cboSample.DisplayMember = "表示したい列名"
DebugTimer.WriteLine("DisplayMemberをセット")
cboSample.DataSource = New DataView(dt)          '←後に設定
DebugTimer.WriteLine("DataSourceをセット")