Codejock Developer Community : [SOLVED] PropertyEnumItem index?

[SOLVED] PropertyEnumItem index? : Thank you again, Aaron!

Tue, 11 Jan 2011 10:33:29 +0000

Author: rdeboer
Subject: 17758
Posted: 11 January 2011 at 10:33am

Thank you again, Aaron!

[SOLVED] PropertyEnumItem index? : Hi, Your stupidity is forgiven...

Fri, 07 Jan 2011 01:36:42 +0000

Author: Aaron
Subject: 17758
Posted: 07 January 2011 at 1:36am

Hi,

Your stupidity is forgiven

Constraints collection isn't zero based, first item will start at 1

So if you would add constraint:

.Constraints. Add "First item", 0
.Constraints. Add "Second item", 1
.Constraints. Add "Third item", 2

and want to get the index of the first item, it will produce an error because there is no constraint with index 0

In this case you have to set Item.value + 1

Me.wndPropertyGrid.FindItem(ITEM.ID or "Caption").Constraints(Me.wndPropertyGrid.FindItem(ITEM.ID or "Caption").Value + 1).Data (or index)

If you don't use successive numbers for the for the added constraints above doesn't work

.Constraints. Add "First item", 0
.Constraints. Add "Second item", 1
.Constraints. Add "Third item", 2
.Constraints. Add "Third item", 4
.Constraints. Add "Third item", 8

In this case you have to loop constraints and compare constraint, annoying thing to do (in my opinion...)

Best way is to start added constraint with = 1 and use successive numbers, this way you are able to use Item.Value to "find" selected constraint.

Hope this helps

[SOLVED] PropertyEnumItem index? : How? I tried:Set Itemx = Advan...

Thu, 06 Jan 2011 17:06:13 +0000

Author: rdeboer
Subject: 17758
Posted: 06 January 2011 at 5:06pm

How? I tried:

Set Itemx = AdvancedGrid.FindItem("Enum")

If Not (Itemx Is Nothing) Then

Debug.Print Itemx.Constraints(Itemx.Value)

End If

But that gives an error?

Excuse my stupidity :)

[SOLVED] PropertyEnumItem index? : SameItemEnum.Value will work later....

Thu, 06 Jan 2011 16:29:28 +0000

Author: Oleg
Subject: 17758
Posted: 06 January 2011 at 4:29pm

Same ItemEnum.Value will work later.

[SOLVED] PropertyEnumItem index? : I use code similar like this:...

Thu, 06 Jan 2011 16:16:37 +0000

Author: rdeboer
Subject: 17758
Posted: 06 January 2011 at 4:16pm

I use code similar like this:

Dim ItemEnum As PropertyGridItem

'Adds a PropertyItemEnum item with a caption of "Enum" and an initial value of 2

'This will cause the constraint with a value of 2 to be selected

Set ItemEnum = Category.AddChildItem(PropertyItemEnum, "Enum", 2)

'Adds some constraints along with a Data value

ItemEnum.Constraints.Add "Windows 98", 1

ItemEnum.Constraints.Add "Windows 2000", 2

ItemEnum.Constraints.Add "Windows XP", 3

Now while ItemEnum is active, you can read the value of the selected item:

Debug.Print "Enum Item Value =" & ItemEnum.Value

So far so good. But how do i find this value later in the program?

The old VB method would be:

Value = cmbBox.ListIndex

to find the listindex of the currently selected item.

How do i find 'ListIndex' in PropertyGrid? lets say i selected Windows 2000, the listindex would be 2.