VB.Net by API/System.Windows.Forms/PropertyGrid
Версия от 19:40, 26 мая 2010; (обсуждение)
PropertyGrid.CommandsVisibleIfAvailable
<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>
PropertyGrid.SelectedObject
<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>