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
Dim b(60)
b(0) = "Artist (dude)"
b(1) = "My Computer: CD Drive"
b(2) = "Year (calendar)"
b(3) = "Title (note)"
b(4) = "Playlist (big note)"
b(5) = "My Computer: Hard Drive"
b(6) = "Location-Diskette: (diskette)"
b(7) = "Genre (notes)"
b(8) = "Play Button"
b(9) = "My Computer: Root (big monitor)"
b(10) = "Big Folder"
b(11) = "Big Folder"
b(12) = "Dead Links (big note + broken chain)"
b(13) = "Location: Folder (folder)"
b(14) = "??? (notes on staff)"
b(15) = "Files to Edit (broken note)"
b(16) = "Album (disc)"
b(17) = "Virtual CD (big silver disc)"
b(18) = "Previews (note and clock)"
b(19) = "Library (multiple boxes)"
b(20) = "Location: Folder (folder)"
b(21) = "Ascending Sort (little gray triangle)"
b(22) = "Descending Sort (little gray triangle)"
b(23) = "Virtual CD Queue (big disc + paper)"
b(24) = "Search (magnifying glass)"
b(25) = "My Computer: CD Drive"
b(26) = "My Computer: Diskette Drive"
b(27) = "My Computer: Network Drive"
b(28) = "Classification (colored squares)"
b(29) = "Tempo (drums)"
b(30) = "Mood (smileys)"
b(31) = "Occasion (balloon/heart)"
b(32) = "Quality (blue star)"
b(33) = "Rating (yellow star)"
b(34) = "My Computer: Network Neighborhood"
b(35) = "My Computer: Networks(?) (multiple monitors)"
b(36) = "AutoPlaylist (playlist + magnifying glass)"
b(37) = "? (globe)"
b(38) = "Convert Tracks (note to note)"
b(39) = "Unsynchronized Tags (tag + arrows)"
b(40) = "Now Playing (note + speaker)"
b(41) = "Location Root (monitor)"
b(42) = "? (big gold disc)"
b(43) = "Location: Hard Drive (hard drive)"
b(44) = "Virtual CD (big silver disc)"
b(45) = "Location: Network (multiple monitors)"
b(46) = "Duplicate Titles (note = note)"
b(47) = "? (CD w/ note on it)"
b(48) = "Multiple Artists (two dudes)"
b(49) = "? (folder + magnifying glass)"
b(50) = "My Computer: Network Folder"
b(51) = "My Computer: ? (globe + ?)"
b(52) = "Copy to Folder (two files, folder and a green arrow)"
b(53) = "Move to Folder (file, folder, green arrow)"
b(54) = "Synchronize (blue audio device)"
b(55) = "Unknown Album Art (gray CD box)"
b(56) = "Net Radio"
b(57) = "My Documents (In My Computer node)"
b(58) = "and higher -> nothing (blank)"


CustomNodeRoot.Caption = "Node Icons with Description"
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 = a &" - "& b(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

Code: Select all

Sub OnStartup
 
  Set Tree = SDB.MainTree
  Set UI = SDB.UI
  
    Dim i

    ' Nodes
    for i = 0 to 56
      Set Node = SDB.MainTree.CreateNode
      Node.Caption = CStr(i)
      Node.IconIndex = i
      SDB.MainTree.AddNode SDB.MainTree.Node_Playlists, Node, 1
    next

    ' Toolbars
    'for i = 0 to 30
    for i = 30 to 60
      Set Mnu = SDB.UI.AddMenuItem(SDB.UI.Menu_TbAdvanced, 0, 0)
      Mnu.Hint = i
      Mnu.IconIndex = i
    next

    ' Menus
    for i = 0 to 75
      Set Mnu = SDB.UI.AddMenuItem(SDB.UI.Menu_Tools, -2, 0)
      Mnu.Caption = CStr(i)
      Mnu.Hint = CStr(i)
      Mnu.IconIndex = i
    next

End Sub

Code: Select all

 0 = Artist (dude)
 1 = My Computer: CD Drive
 2 = Year (calendar)
 3 = Title (note)
 4 = Playlist (big note)
 5 = My Computer: Hard Drive
 6 = Location-Diskette: (diskette)
 7 = Genre (notes)
 8 = Play Button
 9 = My Computer: Root (big monitor)
10 = Big Folder
11 = Big Folder
12 = Dead Links (big note + broken chain)
13 = Location: Folder (folder)
14 = ??? (notes on staff)
15 = Files to Edit (broken note)
16 = Album (disc)
17 = Virtual CD (big silver disc)
18 = Previews (note and clock)
19 = Library (multiple boxes)
20 = Location: Folder (folder)
21 = Ascending Sort (little gray triangle)
22 = Descending Sort (little gray triangle)
23 = Virtual CD Queue (big disc + paper)
24 = Search (magnifying glass)
25 = My Computer: CD Drive
26 = My Computer: Diskette Drive
27 = My Computer: Network Drive
28 = Classification (colored squares)
29 = Tempo (drums)
30 = Mood (smileys)
31 = Occasion (balloon/heart)
32 = Quality (blue star)
33 = Rating (yellow star)
34 = My Computer: Network Neighborhood
35 = My Computer: Networks(?) (multiple monitors)
36 = AutoPlaylist (playlist + magnifying glass)
37 = ? (globe)
38 = Convert Tracks (note to note)
39 = Unsynchronized Tags (tag + arrows)
40 = Now Playing (note + speaker)
41 = Location Root (monitor)
42 = ? (big gold disc)
43 = Location: Hard Drive (hard drive)
44 = Virtual CD (big silver disc)
45 = Location: Network (multiple monitors)
46 = Duplicate Titles (note = note)
47 = ? (CD w/ note on it)
48 = Multiple Artists (two dudes)
49 = ? (folder + magnifying glass)
50 = My Computer: Network Folder
51 = My Computer: ? (globe + ?)
52 = Copy to Folder (two files, folder and a green arrow)
53 = Move to Folder (file, folder, green arrow)
54 = Synchronize (blue audio device)
55 = Unknown Album Art (gray CD box)
56 = nothing (blank)
57 and beyond ...  nothing