CategoryNameCollection Class
Represents a collection of category name strings.
Assembly: System.Drawing (in System.Drawing.dll)
The following code example attempts to retrieve the IToolboxService when the control is sited in design mode. If the IToolboxService is retrieved, the code gets the names of each toolbox category and draws each name on the surface of the control.
Imports System Imports System.Collections Imports System.ComponentModel Imports System.ComponentModel.Design Imports System.Drawing Imports System.Drawing.Design Imports System.Data Imports System.Windows.Forms <System.Security.Permissions.PermissionSetAttribute(System.Security.Permissions.SecurityAction.Demand, Name:="FullTrust")> _ Public Class ToolboxCategoryNamesControl Inherits System.Windows.Forms.UserControl Private toolboxService As System.Drawing.Design.IToolboxService Private categoryNames As System.Drawing.Design.CategoryNameCollection Public Sub New() Me.BackColor = System.Drawing.Color.Beige Me.Name = "Category Names Display Control" Me.Size = New System.Drawing.Size(264, 200) End Sub ' Obtain or reset IToolboxService reference on each siting of control. Public Overrides Property Site() As System.ComponentModel.ISite Get Return MyBase.Site End Get Set(ByVal Value As System.ComponentModel.ISite) MyBase.Site = Value ' If the component was sited, attempt to obtain ' an IToolboxService instance. If (MyBase.Site IsNot Nothing) Then toolboxService = CType(Me.GetService(GetType(IToolboxService)), IToolboxService) ' If an IToolboxService was located, update the category list. If (toolboxService IsNot Nothing) Then categoryNames = toolboxService.CategoryNames End If Else toolboxService = Nothing End If End Set End Property Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs) If (categoryNames IsNot Nothing) Then e.Graphics.DrawString("IToolboxService category names list:", New Font("Arial", 9), Brushes.Black, 10, 10) ' categoryNames is a CategoryNameCollection obtained from ' the IToolboxService. CategoryNameCollection is a read-only ' string collection. ' Output each category name in the CategoryNameCollection. Dim i As Integer For i = 0 To categoryNames.Count - 1 e.Graphics.DrawString(categoryNames(i), New Font("Arial", 8), Brushes.Black, 10, 24 + 10 * i) Next i End If End Sub End Class
System.Collections.ReadOnlyCollectionBase
System.Drawing.Design.CategoryNameCollection
Windows 7, Windows Vista, Windows XP SP2, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP Starter Edition, Windows Server 2008 R2, Windows Server 2008, Windows Server 2003, Windows Server 2000 SP4, Windows Millennium Edition, Windows 98
The .NET Framework and .NET Compact Framework do not support all versions of every platform. For a list of the supported versions, see .NET Framework System Requirements.