DisplayUI

'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);
    }
}

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);
}