Ok here's a script I'm working on below. First off how can I check which radio boxes are selected? Secondly, is there a way to dynamically add nodes/get data from there. For instance if I had something like CheckBoxOptions = array ("Enqueue Album", "Enqueue Artist"), how can I add check boxes for this and read if they are on/off?
Sub TestScript
FormWidth=250
FormHeight=250
' Create the window to be shown
Set Form = SDB.UI.NewForm
Form.Common.SetRect 0, 0, FormWidth, FormHeight
Form.FormPosition = 4 ' Screen Center
Form.Caption = "IR Controls"
Form.StayOnTop = True
'Create a label at the top
Set TheLabel = SDB.UI.NewLabel(Form)
TheLabel.Caption = "Hit the Record Button to Select."
TheLabel.Common.Left = 10
TheLabel.Common.Top = 10
TheLabel.Common.Width = 150
TheLabel.MultiLine=True
TheLabel.Common.FontBold=1 ' Bold
'Create TreeList
Set MTL = SDB.UI.NewTreeList(Form)
MTL.Common.SetRect 10, 50, (FormWidth-40), (FormHeight-100)
' First Parent
Set node1 = MTL.AddNode(Nothing) ' nothing puts it as a parent
node1.UserText = "Currently Playing"
node1.Expanded = True
'Checkbox 1
Set Node1Child1 = MTL.AddNode(node1)
Node1Child1.UserText = "Enqueue Album"
Node1Child1.CheckType = 3
Node1Child1.CheckState = 0
'Check box2
Set Node1Child2 = MTL.AddNode(node1)
Node1Child2.UserText = "Enqueue Album"
Node1Child2.CheckType = 3
Node1Child2.CheckState = 0
Script.RegisterEvent MTL, "OnGetText", "MTLGetText"
'Show form
Form.Common.Visible = True ' Only show the form, don't wait for user input
SDB.Objects("Sample Report Form") = Form ' Save reference to the form somewhere, otherwise it would simply disappear
End Sub
Function MTLGetText( Node, Column)
If node.UserText<>"" Then
MTLGetText = node.UserText
Else
MTLGetText = "Node index: " & node.index
End If
End Function
Regarding Second thing you ask the best is to Save MTL as Object and then access it directly (Again there is example in scrobbler plugin where Toolbar button is updated according to Selected settings).
UI.NewCheckBox(GBoxSubmit)
...
CheckBox1.Common.ControlName = "EnableLastFM"
[and then later to get the value]
Sheet.Common.ChildControl( "EnableLastFM").Checked
Which doesn't seem to be able to be used with "Common.ControlName". Not sure what I'm doing wrong here. I'm connecting these to a treelist (which I like the functionality of), just not sure how to combine this...
Hmm doesn't seem like I can find any code with radio boxes. Google turns up this post. This example from the wiki is what I copied, but it doesn't have any code that shows how to get which radio box is unchecked.
sub TestSCript
Dim Form
FormWidth=250
FormHeight=250
' Create the window to be shown
Set Form = SDB.UI.NewForm
Form.Common.SetRect 0, 0, FormWidth, FormHeight
Form.FormPosition = 4 ' Screen Center
Form.Caption = "IR Controls"
Form.StayOnTop = True
'Create a label at the top
Set TheLabel = SDB.UI.NewLabel(Form)
TheLabel.Caption = "Hit the Record Button to Select."
TheLabel.Common.Left = 10
TheLabel.Common.Top = 10
TheLabel.Common.Width = 150
TheLabel.MultiLine=True
TheLabel.Common.FontBold=1 ' Top
' Create a TreeList for selection of data to be shown
Set MTL = SDB.UI.NewTreeList(Form)
MTL.Common.SetRect 10, 50, (FormWidth-40), (FormHeight-100)
MTL.Common.ControlName = "CurrentlyPlaying"
Set node1 = MTL.AddNode(Nothing) ' nothing puts it as a parent
node1.UserText = "Currently Playing"
node1.Expanded = True
Set Node1Child1 = MTL.AddNode(node1)
Node1Child1.UserText = "Enqueue Album"
Node1Child1.CheckType = 3
Node1Child1.CheckState = 0
Set Node1Child2 = MTL.AddNode(node1)
Node1Child2.UserText = "Enqueue Artist"
Node1Child2.CheckType = 3
Node1Child2.CheckState = 0
Set node2 = MTL.AddNode(Nothing)
node2.UserText = "TreeList"
Set Node2Child1 = MTL.AddNode(node2)
Node2Child1.UserText = "Enqueue Song"
Node2Child1.CheckType = 3
Node2Child1.CheckState = 0
Set Node2Child2 = MTL.AddNode(node2)
Node2Child2.UserText = "Enqueue Album"
Node2Child2.CheckType = 3
Node2Child2.CheckState = 0
Set node3 = MTL.AddNode(Nothing)
node3.UserText = "PlayList"
Set Node2Child1 = MTL.AddNode(node3)
Node2Child1.UserText = "Remove Next Song"
Node2Child1.CheckType = 3
Node2Child1.CheckState = 0
Set Node2Child2 = MTL.AddNode(node3)
Node2Child2.UserText = "Remove Song After"
Node2Child2.CheckType = 3
Node2Child2.CheckState = 0
'Form.ActiveControl = MTL.Common.ControlName
Form.Common.Visible = True ' Only show the form, don't wait for user input
SDB.Objects("IRHelperForm") = Form ' Save reference to the form somewhere, otherwise it would simply disappear
Script.RegisterEvent MTL, "OnFocusChanged", "MTLFocusChanged"
Script.RegisterEvent MTL, "OnExpanding", "MTLExpanding"
Script.RegisterEvent MTL, "OnGetText", "MTLGetText"
'Kill the form in 10 seconds
Set Timer1 = SDB.CreateTimer( 10000) ' Pop up a message in 10 seconds
Script.RegisterEvent Timer1, "OnTimer", "TestTimer1"
End Sub
Sub TestTimer1( Timer)
Script.UnregisterEvents Timer ' Terminate usage of this timer
set Form = SDB.Objects("IRHelperForm")
' kill the form
SDB.Objects("IRHelperForm") = Nothing
End Sub
Sub MTLFocusChanged( Node, Column)
'lbl.Caption = Node.Index & " - " & Column
End Sub
Sub MTLExpanding( Node)
'MTL.AddNode( node)
'MTL.AddNode( node)
'MTL.AddNode( node)
End Sub
Function MTLGetText( Node, Column)
If node.UserText<>"" Then
MTLGetText = node.UserText
Else
MTLGetText = "Node index: " & node.index
End If
End Function
Sub TestSCript
Script.Reload(Script.ScriptPath) 'Script Reload on INI Sheet so that updates can be checked
Dim Form
FormWidth=250
FormHeight=300
' Create the window to be shown
Set Form = SDB.UI.NewForm
Form.Common.SetRect 0, 0, FormWidth, FormHeight
Form.FormPosition = 4 ' Screen Center
Form.Caption = "IR Controls"
Form.StayOnTop = True
'Create a label at the top
Set TheLabel = SDB.UI.NewLabel(Form)
TheLabel.Caption = "Tree Node Name"
TheLabel.Common.Left = 10
TheLabel.Common.Top = 10
TheLabel.Common.Width = 150
TheLabel.Common.FontBold=1
SDB.Objects("IRFormLabel") = TheLabel
' Create a TreeList for selection of data to be shown
Set MTL = SDB.UI.NewTreeList(Form)
MTL.Common.SetRect 10, 30, (FormWidth-40), (FormHeight-100)
MTL.Common.ControlName = "CurrentlyPlaying"
SDB.Objects("IRFormNode") = MTL
Script.RegisterEvent MTL, "OnGetText", "MTLGetText"
Set node1 = MTL.AddNode(Nothing) ' nothing puts it as a parent
node1.TreeList.Common.ControlName = "CurrentlyPlaying1"
node1.UserText = "Currently Playing"
Set Node1Child1 = MTL.AddNode(node1)
Node1Child1.UserText = "Enqueue Album"
Node1Child1.CheckType = 3
Node1Child1.CheckState = 0
Set Node1Child1 = MTL.AddNode(node1)
Node1Child1.UserText = "Enqueue Album 2"
Node1Child1.CheckType = 3
Node1Child1.CheckState = 1
node1.Expanded = True 'this needs to be set here after all child nodes are added or node would not be expanded
Set CBut = SDB.UI.NewButton(Form)
CBut.Caption = "Check"
CBut.OnClickFunc = "CbutClick"
CBut.UseScript = Script.ScriptPath
Cbut.Common.SetRect 10, (FormHeight-60), 50, 20
'------------- If we only show the forms nods do not get Updated
'Form.Common.Visible = True ' Only show the form, don't wait for user input
'SDB.Objects("IRHelperForm") = Form ' Save reference to the form somewhere, otherwise it would simply disappear
'-------------
'------------- If we show form as modal than it gets updated.
Form.ShowModal
'-------------
Script.UnRegisterHandler "MTLGetText"
End Sub
Function MTLGetText(treenode, columnid)
If InEventHandler Then Exit Function
'Show Msg Box to see what will be shown in Tree Node
'Dim resi
'resi = SDB.MessageBox( treenode.UserText, mtError, Array(mbOk))
SDB.Objects("IRFormLabel").Caption = "Node Name: "&treenode.UserText
MTLGetText = treenode.UserText 'Return text of Node
End Function
Sub CbutClick( Btn) 'Check which ones are selected
Dim resi
Set treenode = SDB.Objects("IRFormNode") 'get treelist object
Set WorkingNode = treenode.FirstNode 'Get first treenode
While not WorkingNode is Nothing 'Set loop thrum all Tree Root Nodes
If WorkingNode.HasChildren Then 'Check if TreeNode Has Child Nodes in this case Radio button nodes
Set NextWorkingNode = WorkingNode.FirstChild 'Load first child nodes
Set NextWorkingNodeChild = NextWorkingNode 'Remember treenode object
While Not NextWorkingNodeChild Is Nothing 'create loop thrum childnodes
If NextWorkingNodeChild.CheckState = 1 Then resi = SDB.MessageBox( NextWorkingNodeChild.UserText&" Is Checked", mtInformation, Array(mbOk)) 'If checked show MSGBox
Set NextWorkingNodeChild = NextWorkingNodeChild.NextSibling 'get next child node
If Not NextWorkingNodeChild Is Nothing Then Set NextWorkingNode = NextWorkingNodeChild 'check if next childnode exist remember is last known node
Wend
Set WorkingNode = NextWorkingNode.NextNode 'retrieve next Root Node if exist
End If
Wend
End Sub
For others that want to test this you need to save this code to Test form modal.vbs in Scripts folder and add these lines to Scripts.ini
[SampleFormScript1]
Filename=Test form modal.vbs
Procname=TestSCript
Order=99
DisplayName=Create new Form Modal
Description=This will create New MM form and show it as modal
Language=VBScript
ScriptType=0
