Numbers of library icons wanted

[rk]

Hello together,
does anybody have a list of icon numbers together with the picture that they show in the MM library tree?

I would like to modify Magic Nodes in a way that I am able to set arbitrary icons by using the icon's internal number.

Can anyone help?

[onkel_enno]

Code: Select all

Option Explicit

'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'					Startup Function
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Dim SDB
Set SDB = CreateObject( "SongsDB.SDBApplication")

Dim Tree
Set Tree = SDB.MainTree
Dim CustomNodeRoot
Set CustomNodeRoot = Tree.CreateNode
Dim NewNode
Dim a

CustomNodeRoot.Caption = "View Icons"
CustomNodeRoot.IconIndex = 28

'Adding the Node to the Tree
Tree.AddNode Tree.Node_Web, CustomNodeRoot, 1

CustomNodeRoot.HasChildren = False   ' To delete all old children

for a=0 to 60
	Set NewNode = Tree.CreateNode
	NewNode.Caption = "Icon " & a 'Caption
	NewNode.IconIndex = a
	NewNode.hasChildren = False

	Tree.AddNode CustomNodeRoot, NewNode, 3
	Set NewNode = Nothing
next

CustomNodeRoot.hasChildren = True

Set CustomNodeRoot = Nothing
Set Tree = Nothing
Set SDB = Nothing

Viel Spass. Einfach ne vbs-Datei im Auto-Ordner erstellen.

[rk]

Cool!
Do you have an idea how I could get this list into a word or RTF document (structured, not as a screenshot/graphic)?

Thanks!

[onkel_enno]

No Sorry, I don't know how to export the icons.

[DreadM]

Greetings

Nice and helpful script,I'm wondering if it's possible to show also the menu Icons ?