VB.Net/GUI/Property Grid

Property Grid Demo

<source lang="vbnet"> Imports System Imports System.Data Imports System.Windows.Forms Imports System.Drawing Imports System.Diagnostics Imports System.Drawing.Printing Imports System.ruponentModel

Public Class MainClass

   Shared Sub Main()
       
      Dim form1 As Form = New Form1
      Application.Run(form1) 
   End Sub

End Class

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       lstStudents.Items.Add(New Student("A", "A", 10, 76, "246"))
       lstStudents.Items.Add(New Student("B", "B", 20, 40, "21"))
       lstStudents.Items.Add(New Student("C", "C", 20, 23, "B"))
       lstStudents.Items.Add(New Student("D", "D", 20, 12, "2"))
       lstStudents.Items.Add(New Student("E", "E", 30, 32, "7"))
       lstStudents.Items.Add(New Student("F", "F", 50, 10, "1"))
   End Sub
   Private Sub lstStudents_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstStudents.SelectedIndexChanged
       Dim s As Student = DirectCast(lstStudents.SelectedItem, Student)
       PropertyGrid1.SelectedObject = s
   End Sub

End Class Public Class Student

   " The FirstName property.
   Private m_FirstName As String = ""
   <Description("The Student"s first name."), _
    Category("Data"), Browsable(True)> _
   Public Property FirstName() As String
       Get
           Return m_FirstName
       End Get
       Set(ByVal value As String)
           m_FirstName = value
       End Set
   End Property
   " The LastName property.
   Private m_LastName As String = ""
   <Description("The Student"s last name."), _
    Category("Data"), Browsable(True)> _
   Public Property LastName() As String
       Get
           Return m_LastName
       End Get
       Set(ByVal value As String)
           m_LastName = value
       End Set
   End Property
   " The StudentId property.
   Private m_StudentId As Integer = 0
   <Description("The Student"s ID number."), _
    Category("ID")> _
   Public Property StudentId() As Integer
       Get
           Return m_StudentId
       End Get
       Set(ByVal value As Integer)
           m_StudentId = value
       End Set
   End Property
   " The Extension property.
   Private m_Extension As Integer = 0
   <Description("The Student"s extension."), _
    Category("ContactInfo")> _
   Public Property Extension() As Integer
       Get
           Return m_Extension
       End Get
       Set(ByVal value As Integer)
           m_Extension = value
       End Set
   End Property
   " The Office property.
   Private m_Office As String = ""
   <Description("The Student"s building and office number."), _
    Category("ContactInfo")> _
   Public Property Office() As String
       Get
           Return m_Office
       End Get
       Set(ByVal value As String)
           m_Office = value
       End Set
   End Property
   Public Sub New(ByVal first_name As String, ByVal last_name As String, ByVal id As Integer, ByVal ext As Integer, ByVal the_office As String)
       FirstName = first_name
       LastName = last_name
       StudentId = id
       Extension = ext
       Office = the_office
   End Sub
   Public Overrides Function ToString() As String
       Return _
           FirstName & " " & _
           LastName & " (" & _
           StudentId.ToString() & ") x" & _
           Extension.ToString & " " & _
           Office
   End Function

End Class <Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1

   Inherits System.Windows.Forms.Form
   "Form overrides dispose to clean up the component list.
   <System.Diagnostics.DebuggerNonUserCode()> _
   Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing AndAlso components IsNot Nothing Then
           components.Dispose()
       End If
       MyBase.Dispose(disposing)
   End Sub
   "Required by the Windows Form Designer
   Private components As System.ruponentModel.IContainer
   "NOTE: The following procedure is required by the Windows Form Designer
   "It can be modified using the Windows Form Designer.  
   "Do not modify it using the code editor.
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.PropertyGrid1 = New System.Windows.Forms.PropertyGrid
       Me.lstStudents = New System.Windows.Forms.ListBox
       Me.SuspendLayout()
       "
       "PropertyGrid1
       "
       Me.PropertyGrid1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                   Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
       Me.PropertyGrid1.Location = New System.Drawing.Point(216, 0)
       Me.PropertyGrid1.Name = "PropertyGrid1"
       Me.PropertyGrid1.Size = New System.Drawing.Size(226, 272)
       Me.PropertyGrid1.TabIndex = 0
       "
       "lstStudents
       "
       Me.lstStudents.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                   Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
       Me.lstStudents.FormattingEnabled = True
       Me.lstStudents.IntegralHeight = False
       Me.lstStudents.Location = New System.Drawing.Point(0, 0)
       Me.lstStudents.Name = "lstStudents"
       Me.lstStudents.Size = New System.Drawing.Size(208, 272)
       Me.lstStudents.TabIndex = 1
       "
       "Form1
       "
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(445, 273)
       Me.Controls.Add(Me.lstStudents)
       Me.Controls.Add(Me.PropertyGrid1)
       Me.Name = "Form1"
       Me.Text = "UsePropertyGrid"
       Me.ResumeLayout(False)
   End Sub
   Friend WithEvents PropertyGrid1 As System.Windows.Forms.PropertyGrid
   Friend WithEvents lstStudents As System.Windows.Forms.ListBox

End Class

      </source>

Use Property Grid

<source lang="vbnet"> Imports System Imports System.ruponentModel Imports System.Windows.Forms

Public Class MainClass

   Shared Sub Main(ByVal args As String())
       Dim myform As Form = New Form1()
       Application.Run(myform)
   End Sub

End Class Public Class Form1

   Private m_Employee As Employee
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       m_Employee = New Employee("First Name", "Last Name", _
           534, "Job", 63, 4321, _
           "123-45-6789", 12000000)
       PropertyGrid1.rumandsVisibleIfAvailable = True
       PropertyGrid1.Text = "Student"
       PropertyGrid1.SelectedObject = m_Employee
   End Sub

End Class Public Class Employee

   Private m_FirstName As String
   Private m_LastName As String
   Private m_EmployeeId As Integer
   Private m_Department As String
   Private m_Office As Integer
   Private m_Extension As Integer
   Private m_SocialSecurityNumber As String
   Private m_Salary As Integer
   <Description("The student"s extension"), _
    Category("Contact Information")> _
   Public Property Extension() As Integer
       Get
           Return m_Extension
       End Get
       Set(ByVal value As Integer)
           m_Extension = value
       End Set
   End Property
   <Description("The student"s office number"), _
    Category("Contact Information")> _
   Public Property Office() As Integer
       Get
           Return m_Office
       End Get
       Set(ByVal value As Integer)
           m_Office = value
       End Set
   End Property
   <Description("The student"s department"), _
    Category("Organization")> _
   Public Property Department() As String
       Get
           Return m_Department
       End Get
       Set(ByVal value As String)
           m_Department = value
       End Set
   End Property
   <Description("The student"s ID"), _
    Category("Personnel")> _
   Public Property EmployeeId() As Integer
       Get
           Return m_EmployeeId
       End Get
       Set(ByVal value As Integer)
           m_EmployeeId = value
       End Set
   End Property
   <Description("The student"s first name"), _
    Category("Personnel")> _
   Public Property FirstName() As String
       Get
           Return m_FirstName
       End Get
       Set(ByVal value As String)
           m_FirstName = value
       End Set
   End Property
   <Description("The student"s last name"), _
    Category("Personnel")> _
   Public Property LastName() As String
       Get
           Return m_LastName
       End Get
       Set(ByVal value As String)
           m_LastName = value
       End Set
   End Property
   <Description("The student"s Social Security number"), _
    Category("Personnel")> _
   Public Property SocialSecurityNumber() As String
       Get
           Return m_SocialSecurityNumber
       End Get
       Set(ByVal value As String)
           m_SocialSecurityNumber = value
       End Set
   End Property
   <Description("The student"s annual salary"), _
    Category("Personnel")> _
   Public Property Salary() As Integer
       Get
           Return m_Salary
       End Get
       Set(ByVal value As Integer)
           m_Salary = value
       End Set
   End Property
   Public Sub New(ByVal first_name As String, ByVal last_name As String, ByVal student_id As Integer, ByVal new_department As String, ByVal new_office As Integer, ByVal new_extension As Integer, ByVal social_security_number As String, ByVal new_salary As Integer)
       m_FirstName = first_name
       m_LastName = last_name
       m_EmployeeId = student_id
       m_Department = new_department
       m_Office = new_office
       m_Extension = new_extension
       m_SocialSecurityNumber = social_security_number
       m_Salary = new_salary
   End Sub

End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1

   Inherits System.Windows.Forms.Form
   "Form overrides dispose to clean up the component list.
   <System.Diagnostics.DebuggerNonUserCode()> _
   Protected Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing AndAlso components IsNot Nothing Then
           components.Dispose()
       End If
       MyBase.Dispose(disposing)
   End Sub
   "Required by the Windows Form Designer
   Private components As System.ruponentModel.IContainer
   "NOTE: The following procedure is required by the Windows Form Designer
   "It can be modified using the Windows Form Designer.  
   "Do not modify it using the code editor.
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.PropertyGrid1 = New System.Windows.Forms.PropertyGrid
       Me.SuspendLayout()
       "
       "PropertyGrid1
       "
       Me.PropertyGrid1.Dock = System.Windows.Forms.DockStyle.Fill
       Me.PropertyGrid1.Location = New System.Drawing.Point(0, 0)
       Me.PropertyGrid1.Name = "PropertyGrid1"
       Me.PropertyGrid1.Size = New System.Drawing.Size(292, 273)
       Me.PropertyGrid1.TabIndex = 0
       "
       "Form1
       "
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(292, 273)
       Me.Controls.Add(Me.PropertyGrid1)
       Me.Name = "Form1"
       Me.Text = "Employee"
       Me.ResumeLayout(False)
   End Sub
   Friend WithEvents PropertyGrid1 As System.Windows.Forms.PropertyGrid

End Class

      </source>