VB.Net Tutorial/GUI/PropertyGrid

PropertyGrid Demo

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

  public Shared Sub Main
       Application.Run(New Form1)
  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("R", "S", 4, "A", 6, 4,"6789", 1)
       PropertyGrid1.rumandsVisibleIfAvailable = True
       PropertyGrid1.Text = "Employee"
       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("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("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("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("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("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("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("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("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 employee_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 = employee_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>