添加自定义的符号到符号选择对话框中

<TABLE width="100%">

<TR>
<TD class=subtitle colSpan=6>内容摘要</TD></TR>
<TR>
<TD class=txt colSpan=6>除了可以使用默认的符号之外，你还可以添加自定义的符号到符号选择对话框中。</TD></TR>
<TR>
<TD class=subtitle colSpan=6>过程描述</TD></TR>
<TR>
<TD class=txt colSpan=6>1 启动ArcMap。
2 创建一个新的UIButtonControl。
A 选择工具> 自定义，打开自定义对话框
B 单击命令项
C 从列表框中选择UIControls
D 单击新建UIControl，选择UIButtonControl
E 把新创建的Control拖到你选择的工具条中
F 关闭自定义对话框
3 右击UIButtonControl ，并查看源代码
4 拷贝下面的代码到UIButtonControl 单击事件中
Dim pSymbolSelector As ISymbolSelector
Dim pMarkerIn As IMarkerSymbol
Dim pMarkerOut As IMarkerSymbol
Dim pSymbol As ISymbol
Dim pColorIn As IRgbColor
Dim pRGBColorOut As IRgbColor

Set pMarkerIn = New CharacterMarkerSymbol
Set pSymbolSelector = New SymbolSelector

Set pColorIn = New RgbColor
pColorIn.Red = 25
pColorIn.Green = 25
pColorIn.Blue = 150

pMarkerIn.Color = pColorIn
pMarkerIn.Angle = 45
pMarkerIn.Size = 15
' X and Y Offset values are not persisted.
' This is a known issue.
' pMarkerIn.XOffset = -5
' pMarkerIn.YOffset = 2

pSymbolSelector.AddSymbol pMarkerIn

If pSymbolSelector.SelectSymbol(0) Then
' The SymbolSelect Dialog popped up
Set pSymbol = pSymbolSelector.GetSymbolAt(0)

' Capture the values set by the user
Set pMarkerOut = pSymbol
Set pRGBColorOut = pMarkerOut.Color
Else
MsgBox "User cancelled"
End If
5 运行此代码，就可以看到添加符号到符号选择对话框中。</TD></TR></TABLE>

在arcinfo Engine中不能使用ISymbolSelector接口，请问有哪位知道如何从*.style文件中取得符号的位图，显示到listview中