Binding a combo box item to a shape's custom properties
Hi,
I have a problem with combo boxes in Visio 2003. My question is how to bind the combo box item with the shape's custom properties. I already created custom properties for a shape. I also insert a combo box and add to it some items:
Private Sub Document_DocumentOpened(ByVal doc As IVDocument)
ComboBox1.AddItem "hardware devices"
ComboBox1.AddItem "operating system"
ComboBox1.AddItem "database"
ComboBox1.AddItem "applications"
ComboBox1.Value = " -- select --"
End Sub
I don't know how to bind one of these items to the shape's custom properties. I want when I click on a item to view the shape's properties. I try with Select Case:
Private Sub ComboBox1_Change()
Select Case ComboBox1
Case "hardware devices"
....
Case "operating system"
...
Case "database"
....
Case "applications"
....
End Select
End Sub
Is there any method or class to make this? Is this possible in general and am I on the right way?
If anyone have any ideas on how to make this happen, it will be greatly appreciated.
Thanks.
