https://www.mediamonkey.com/wiki/index.php?action=history&feed=atom&title=Sample_TreeList_listview_script
Sample TreeList listview script - Revision history
2026-05-03T15:45:13Z
Revision history for this page on the wiki
MediaWiki 1.41.4
https://www.mediamonkey.com/wiki/index.php?title=Sample_TreeList_listview_script&diff=4764&oldid=prev
Jiri at 22:36, 2 January 2009
2009-01-02T22:36:15Z
<p></p>
<p><b>New page</b></p><div><source lang="vb"><br />
' This scripts shows how to use SDBUITreeList control to show and control a grid-like list of items. <br />
<br />
Dim lbl, VT<br />
<br />
Sub OnStartUp()<br />
Dim Form<br />
<br />
Set Form = SDB.UI.NewForm<br />
Form.Common.SetRect 100, 100, 500, 440<br />
Form.BorderStyle = 3<br />
Form.FormPosition = 4<br />
Form.StayOnTop = True<br />
Form.Caption = "Test"<br />
<br />
Set lbl = SDB.UI.NewLabel(Form)<br />
lbl.Common.SetRect 10, 10, 400, 15<br />
<br />
Set VT = SDB.UI.NewTreeList(Form)<br />
VT.Common.SetRect 10, 30, 400, 300<br />
VT.HeaderVisible = true<br />
VT.HeaderAddColumn "Title"<br />
VT.HeaderAddColumn "Column 2"<br />
VT.HeaderAddColumn "Column 3"<br />
VT.HeaderColumnWidth(0) = 150<br />
VT.HeaderColumnWidth(1) = 120<br />
VT.HeaderColumnWidth(2) = 120<br />
VT.RootNodeCount = 10<br />
VT.ShowTreeLines = false<br />
VT.Indent = 0<br />
VT.FullRowSelect = true<br />
VT.ExtendedFocus = true<br />
VT.MultiSelect = true<br />
VT.GridExtensions = true<br />
VT.ShowRoot = false<br />
Script.RegisterEvent VT, "OnFocusChanged", "VTFocusChanged"<br />
Script.RegisterEvent VT, "OnGetText", "VTGetText"<br />
<br />
Form.Common.Visible = True<br />
<br />
SDB.Objects("Form") = Form<br />
End Sub<br />
<br />
Sub VTFocusChanged( Node, Column)<br />
lbl.Caption = Node.Index & " - " & Column<br />
End Sub<br />
<br />
Function VTGetText( Node, Column)<br />
If Column=0 Then<br />
VTGetText = "Node index: " & node.index<br />
Else<br />
VTGetText = "Column " & Column<br />
End If<br />
End Function<br />
</source></div>
Jiri