DisplayUI

• ArcGIS for Desktop Basic
• ArcGIS for Desktop Standard
• ArcGIS for Desktop Advanced

• Style gallery classes
• Property pages

Style gallery classes

'Parameter check.
If application Is Nothing Then
    Return
End If

Dim mxDoc As IMxDocument=TryCast(application.Document, IMxDocument)
Dim styleGallery As IStyleGallery
styleGallery=mxDoc.StyleGallery

Dim enumBstr As IEnumBSTR
Dim objTypeList As String
Dim objType As String
Dim numClasses As Integer=styleGallery.ClassCount
Dim styleGalleryClass As IStyleGalleryClass

For i As Integer=0 To (numClasses - 1)
    styleGalleryClass=styleGallery.Class(i)
    objTypeList=styleGalleryClass.Name & ":"
    enumBstr=styleGalleryClass.NewObjectTypes
    objType=enumBstr.Next
    
    Do While Not (objType="")
        objTypeList=objTypeList & "," & objType
        objType=enumBstr.Next
    Loop
    
    MsgBox(styleGalleryClass.Name)
    
Next i

//Parameter check.
if (application == null)
{
    return ;
}

IMxDocument mxDoc=application.Document as IMxDocument;
IStyleGallery styleGallery=null;
styleGallery=mxDoc.StyleGallery;

IEnumBSTR enumBstr=null;
string objTypeList=null;
string objType=null;
int numClasses=styleGallery.ClassCount;
IStyleGalleryClass styleGalleryClass=null;

for (int i=0; i <= (numClasses - 1); i++)
{
    styleGalleryClass=styleGallery.Class(i);
    objTypeList=styleGalleryClass.Name + ":";
    enumBstr=styleGalleryClass.NewObjectTypes;
    objType=enumBstr.Next();

    while (!(objType == ""))
    {
        objTypeList=objTypeList + "," + objType;
        objType=enumBstr.Next();
    }

    MessageBox.Show(styleGalleryClass.Name);
}

'Create the new object.
Dim styleGalleryClass As IStyleGalleryClass
Dim newObject As stdole.IUnknown
styleGalleryClass=New FillSymbolStyleGalleryClass
newObject=TryCast(styleGalleryClass.NewObject("Fill Symbol"), stdole.IUnknown)
'Assign properties specific to the style class.
Dim simpleFillSymbol As ISimpleFillSymbol
If TypeOf newObject Is ISimpleFillSymbol Then
    simpleFillSymbol=TryCast(newObject, ISimpleFillSymbol)
    simpleFillSymbol.Color=BuildRGB(55, 55, 200)
End If
'Create a new style item using the object.
Dim newGalleryItem As IStyleGalleryItem=New StyleGalleryItem
newGalleryItem.Item=newObject
newGalleryItem.Name="My Fill Symbol"

Public Function BuildRGB(ByVal red As Int, ByVal green As Int, ByVal blue As Int) As IColor
    
    Dim rgbColor As IRgbColor=New RgbColorClass
    With rgbColor
        .Red=red
        .Green=green
        .Blue=blue
        .UseWindowsDithering=True
    End With
    Return rgbColor
    
End Function

//Create the new object.
IStyleGalleryClass styleGalleryClass;
stdole.IUnknown newObject;
styleGalleryClass=new FillSymbolStyleGalleryClass();
newObject=styleGalleryClass.get_NewObject("Fill Symbol")as stdole.IUnknown;
//Assign properties specific to the style class.
ISimpleFillSymbol simpleFillSymbol=null;
if (newObject is ISimpleFillSymbol)
{
    simpleFillSymbol=newObject as ISimpleFillSymbol;
    simpleFillSymbol.Color=BuildRGB(55, 55, 200);
}

//Create a new style item using the object.
IStyleGalleryItem newGalleryItem=new StyleGalleryItem();
newGalleryItem.Item=newObject;
newGalleryItem.Name="My Fill Symbol";


private IColor BuildRGB(int red, int green, int blue)
{
    IRgbColor rgbColor=new RgbColorClass();
    rgbColor.Red=red;
    rgbColor.Green=green;
    rgbColor.Blue=blue;
    rgbColor.UseWindowsDithering=true;
    return rgbColor;
}

Dim styleGallery As IStyleGallery=New StyleGallery
Dim styleDialog As IStyleDialog=New StyleManagerDialog
styleDialog.DoModal(styleGallery, Application.hWnd)

IStyleGallery styleGallery=new StyleGallery();
IStyleDialog styleDialog=new StyleManagerDialog();
styleDialog.DoModal(styleGallery, Application.hWnd);

Dim symbolSelector As ISymbolSelector=New SymbolSelector
Dim markerSymbol As ISimpleMarkerSymbol=New SimpleMarkerSymbol

If Not symbolSelector.AddSymbol(CType(markerSymbol, ISymbol)) Then
    'Return a message here.
Else
    
    If symbolSelector.SelectSymbol(0) Then
        Dim symbol As ISymbol
        symbol=symbolSelector.GetSymbolAt(0)
    End If
    
End If

ISymbolSelector symbolSelector=new SymbolSelector();
ISimpleMarkerSymbol markerSymbol=new SimpleMarkerSymbol();

if (!(symbolSelector.AddSymbol((ISymbol)markerSymbol)))
{
    //Return a message here.
}

else
{

    if (symbolSelector.SelectSymbol(0))
    {
        ISymbol symbol=null;
        symbol=symbolSelector.GetSymbolAt(0);
    }
}

Property pages

• ISymbolPropertyPage
• IComPropertyPage
• IComPropertyPage2
• IPropertyPageContext

Dim markerSymbol As IMarkerSymbol=New SimpleMarkerSymbol
Dim symbolEditor As ISymbolEditor=New SymbolEditor
symbolEditor.Title="Edit My Marker"

If Not symbolEditor.EditSymbol(markerSymbol, 0) Then
    'Return a message here.
Else
    'Do something with the edited symbol.
    'A multi-layer symbol will be returned.
    
    Dim newSymbol As IMarkerSymbol
    Dim multiMarker As IMultiLayerMarkerSymbol
    multiMarker=TryCast(markerSymbol, IMultiLayerMarkerSymbol)
    newSymbol=multiMarker.Layer(0)
End If

IMarkerSymbol markerSymbol=new SimpleMarkerSymbol();
ISymbolEditor symbolEditor=new SymbolEditor();
symbolEditor.Title="Edit My Marker";
if (!symbolEditor.EditSymbol(markerSymbol as ISymbol, 0))
{
    //Return a message here.
}

else
{
    //Do something with the edited symbol.
    //A multi-layer symbol will be returned.
    IMarkerSymbol newSymbol=null;
    IMultiLayerMarkerSymbol multiMarker=null;
    multiMarker=markerSymbol as IMultiLayerMarkerSymbol;
    newSymbol=multiMarker.get_Layer(0);
}