Sample ListBox script

From MediaMonkey Wiki
Jump to: navigation, search
' This scripts shows how to easily use SDBUIListBox control for showing ordinary lists of strings. 
 
Dim lbl, LB
 
Sub OnStartUp()
  Dim Form
 
  Set Form = SDB.UI.NewForm
  Form.Common.SetRect 100, 100, 500, 440
  Form.BorderStyle = 3
  Form.FormPosition = 4
  Form.StayOnTop = True
  Form.Caption = "Test"
 
  Set lbl = SDB.UI.NewLabel(Form)
  lbl.Common.SetRect 10, 10, 400, 15
 
  Set LB = SDB.UI.NewListBox(Form)
  LB.Common.SetRect 10, 30, 400, 300
  LB.Items.Add "Item1"
  LB.Items.Add "Item2"
  Script.RegisterEvent LB, "OnChange", "VTChange"
 
  Set Btn = SDB.UI.NewButton(Form)
  Btn.Common.SetRect 10, 350, 80, 25
  Btn.Caption = "Add item"
  Script.RegisterEvent Btn, "OnClick", "BtnClick"
 
  Form.Common.Visible = True
 
  SDB.Objects("Form") = Form
End Sub
 
Sub VTChange( Control)
  lbl.Caption = Control.ItemIndex
End Sub
 
Sub BtnClick
  LB.Items.Add "New item"
End Sub