Imports PrismaModel Imports System.ComponentModel <System.ComponentModel.ComplexBindingProperties("DataSource", "DataMember")> _ Public Class AdressenControl Public Event AdresDoubleClicked(ByVal adres As Adres) Public Property DataSource() As Object Get Return Me.ZaDatagridView1.Datasource End Get Set(ByVal value As Object) Me.ZaDatagridView1.Datasource = Me.ZaDatagridView1.Datasource End Set End Property Public Property DataMember() As String Get Return Me.ZaDatagridView1.DataMember End Get Set(ByVal value As String) Me.ZaDatagridView1.DataMember = value End Set End Property Private Sub ZaDatagridView1_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles ZaDatagridView1.CellDoubleClick If e.RowIndex > -1 Then Dim adres As Adres Dim list As List(Of Adres) = ZaDatagridView1.Datasource adres = list(e.RowIndex) RaiseEvent AdresDoubleClicked(adres) End If End Sub End Class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)