Imports System.ComponentModel
Imports System.ComponentModel.Design

Public Class CustomerMaintenance

    Private Sub CustomersBO1_ParentFormLoading() Handles CustomersBO1.ParentFormLoading
        Me.CustomersBO1.FillTop100()
    End Sub

    Private Sub cmdSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSearch.Click
        Me.CustomersBO1.FillByLastName(Me.txtSearch.Text)
    End Sub

    Private Sub cmdFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdFirst.Click
        Me.CustomersBO1.Navigate(MicroFour.StrataFrame.Business.BusinessNavigationDirection.First)
    End Sub

    Private Sub cmdPrior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPrior.Click
        Me.CustomersBO1.Navigate(MicroFour.StrataFrame.Business.BusinessNavigationDirection.Prior)
    End Sub

    Private Sub cmdNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNext.Click
        Me.CustomersBO1.Navigate(MicroFour.StrataFrame.Business.BusinessNavigationDirection.Next)
    End Sub

    Private Sub cmdLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLast.Click
        Me.CustomersBO1.Navigate(MicroFour.StrataFrame.Business.BusinessNavigationDirection.Last)
    End Sub


    '' *******************************************************************************************************

    Friend WithEvents grdCustomer As System.Windows.Forms.PropertyGrid
    Friend WithEvents grdTest As System.Windows.Forms.PropertyGrid
    Friend WithEvents objTest As myTestClass

    Private Sub CustomerMaintenance_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Me.Height = 720
        Me.Width = 800

        'grdCustomer
        Me.grdCustomer = New System.Windows.Forms.PropertyGrid
        Me.grdCustomer.Location = New System.Drawing.Point(8, 225)
        Me.grdCustomer.Name = "grdCustomer"
        Me.grdCustomer.Size = New System.Drawing.Size(378, 367)
        Me.grdCustomer.TabIndex = 12
        Me.grdCustomer.SelectedObject = Me.CustomersBO1
        Me.ToolStripContainer1.ContentPanel.Controls.Add(Me.grdCustomer)

        'objTest and grdTest
        Me.objTest = New myTestClass

        Me.grdTest = New System.Windows.Forms.PropertyGrid
        Me.grdTest.Location = New System.Drawing.Point(400, 225)
        Me.grdTest.Name = "grdTest"
        Me.grdTest.Size = New System.Drawing.Size(378, 367)
        Me.grdTest.TabIndex = 12
        Me.grdTest.SelectedObject = Me.objTest
        Me.ToolStripContainer1.ContentPanel.Controls.Add(Me.grdTest)

    End Sub

    Private Sub CustomersBO1_Navigated(ByVal e As MicroFour.StrataFrame.Business.NavigatedEventArgs) Handles CustomersBO1.Navigated
        If Not Me.grdCustomer Is Nothing Then
            Me.grdCustomer.Refresh()
        End If
    End Sub
    
End Class


Public Class myTestClass

    Private _String1 As String
    Private _String2 As String
    Private _String3 As String

    ''category
    <Browsable(True), _
     DisplayName("String 1 display name"), _
     Description("This is string 1 Description"), _
     Category("Test Category")> _
    Public Property [String1]() As System.String
        Get
            Return _String1
        End Get
        Set(ByVal value As System.String)
            _String1 = value
        End Set
    End Property

    <Browsable(True), _
     DisplayName("String 2 display name"), _
     Description("This is string 2 Description")> _
    Public Property [String2]() As System.String
        Get
            Return _String2
        End Get
        Set(ByVal value As System.String)
            _String2 = value
        End Set
    End Property

    <Browsable(True), _
     DisplayName("String 3 display name"), _
     Description("This is string 3 Description")> _
    Public Property [String3]() As System.String
        Get
            Return _String3
        End Get
        Set(ByVal value As System.String)
            _String3 = value
        End Set
    End Property

End Class