https://www.mediamonkey.com/wiki/index.php?action=history&feed=atom&title=Sample_ListBox_script 2026-04-26T21:15:29Z Revision history for this page on the wiki MediaWiki 1.41.4 https://www.mediamonkey.com/wiki/index.php?title=Sample_ListBox_script&diff=4762&oldid=prev 2009-01-02T22:34:46Z

<p></p> <p><b>New page</b></p><div>&lt;source lang=&quot;vb&quot;&gt;<br /> &#039; This scripts shows how to easily use SDBUIListBox control for showing ordinary lists of strings. <br /> <br /> Dim lbl, LB<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 = &quot;Test&quot;<br /> <br /> Set lbl = SDB.UI.NewLabel(Form)<br /> lbl.Common.SetRect 10, 10, 400, 15<br /> <br /> Set LB = SDB.UI.NewListBox(Form)<br /> LB.Common.SetRect 10, 30, 400, 300<br /> LB.Items.Add &quot;Item1&quot;<br /> LB.Items.Add &quot;Item2&quot;<br /> Script.RegisterEvent LB, &quot;OnChange&quot;, &quot;VTChange&quot;<br /> <br /> Set Btn = SDB.UI.NewButton(Form)<br /> Btn.Common.SetRect 10, 350, 80, 25<br /> Btn.Caption = &quot;Add item&quot;<br /> Script.RegisterEvent Btn, &quot;OnClick&quot;, &quot;BtnClick&quot;<br /> <br /> Form.Common.Visible = True<br /> <br /> SDB.Objects(&quot;Form&quot;) = Form<br /> End Sub<br /> <br /> Sub VTChange( Control)<br /> lbl.Caption = Control.ItemIndex<br /> End Sub<br /> <br /> Sub BtnClick<br /> LB.Items.Add &quot;New item&quot;<br /> End Sub<br /> &lt;/source&gt;</div>

Jiri