Modementia: Removed additional While loop

2008-08-21T08:02:20Z

Removed additional While loop

← Older revision		Revision as of 08:02, 21 August 2008
Line 25:		Line 25:
	Set Trcks = SDB.MainTracksWindow		Set Trcks = SDB.MainTracksWindow

	Dim i~~, j~~		Dim i
	j=0		i=0
	~~While j<3 And Not Script.Terminate~~		While i<List.Count And Not Script.Terminate
	~~i=0~~		Trcks.AddTrack List.Item(List.Count-i-1)
	While i<List.Count And Not Script.Terminate		i=i+1
	Trcks.AddTrack List.Item(List.Count-i-1)
	i=i+1
	~~WEnd~~
	~~j=j~~+1
	WEnd		WEnd
	Trcks.FinishAdding		Trcks.FinishAdding
	End Sub		End Sub
	</source>		</source>

Jiri at 21:45, 25 March 2007

2007-03-25T21:45:59Z

New page

<source lang="vb">
' Sample Simple Tree Node script
'
' This script adds a new sub-node to Now Playing node. All tracks from Now Playing
' are present in the new node, but they are in reversed order.

Sub OnStartup
Dim Tree
Set Tree = SDB.MainTree

Dim Node
Set Node = Tree.CreateNode
Node.Caption = "Reversed Now Playing"
Node.IconIndex = 40
Node.UseScript = Script.ScriptPath
Node.OnFillTracksFunct = "FillNPTracks"

Tree.AddNode Tree.Node_NowPlaying, Node, 3 ' Add as the last child
Tree.Node_NowPlaying.Expanded = True
End Sub

Sub FillNPTracks( Node)
Dim List, Trcks
Set List = SDB.Player.CurrentPlaylist
Set Trcks = SDB.MainTracksWindow

Dim i, j
j=0
While j<3 And Not Script.Terminate
i=0
While i<List.Count And Not Script.Terminate
Trcks.AddTrack List.Item(List.Count-i-1)
i=i+1
WEnd
j=j+1
WEnd
Trcks.FinishAdding
End Sub
</source>

Sample Simple Tree Node script - Revision history

Modementia: Removed additional While loop

Jiri at 21:45, 25 March 2007