Initialize ckecklist state

Hi,

I have GH definitions using many parameters the user has to enter before generating Rhino objects.

In order not to forget some parameter, i add checkboxes that print messages to remind that all entries have been completed, or not:

Now, I am trying to give the user the possibility to reset the states of all those checklists. Is this possible to do this with some VB code or by others means ?

Thank in advance,

Jean-Louis

Attachments:

CaptureCheckList_oneUnchecked.PNG, 42 KB

Replies to This Discussion

Permalink Reply by Mkr on March 31, 2015 at 6:31am

It's not exactly what you wanted, but may be it'll work for you. Reset button returns all states to unchecked.

Attachments:

checkbox.gh, 18 KB

Permalink Reply by Jean-Louis Herman on April 1, 2015 at 9:17am

Thank you, it could be a solution indeed.

In practice, the GH definition may become a bit too heavy. It may take too much room in our definitions to place the two components each time (button+panel, the cluster could be placed outside)...

Permalink Reply by Mkr on April 1, 2015 at 9:57am

It's true. Here's a little bit different cluster that checks if data was entered, so you don't need to check anything and can hide it away.

Attachments:

checkbox2.gh, 14 KB

Permalink Reply by Jean-Louis Herman on April 2, 2015 at 2:22am

Yes, it works fine !

I'm wondering if it would be possible to access, via VB, directly to our GH checkboxes objects :

If I set their name to "check", I can get the GH object via this code :

    For Each obj As IGH_DocumentObject In owner.OnPingDocument().Objects
      If obj.Nickname = "check" Then
               ... add some code here to set the state ?
      End If
    Next

The next step is to know how to access specific methods/subs in order to set the state of checklist...

Permalink Reply by Jean-Louis Herman on April 2, 2015 at 3:10am

Got It!

   If reset Then

      Dim checkBox As Grasshopper.Kernel.Special.GH_ValueList = Nothing

      For Each obj As IGH_DocumentObject In owner.OnPingDocument().Objects
        If obj.Nickname = "Check" Then
          checkBox = TryCast(obj, Special.GH_ValueList)
          If     checkBox IsNot Nothing Then
            If checkBox.SelectedItems().Count = 1 Then
              checkBox.ToggleItem(0)
            End If
          End If
        End If
      Next

    End If