WinStudio
IWSIDOCollection interface
Returns a Boolean value indicating whether a specified property of a collection is bound by a form component.
object.IsPropertyBoundByComponent( string, Boolean )
Part |
Description |
object | Required. A reference to a valid IDO collection object. |
string | Required. The name of a property of a collection. |
Boolean | Required. Determines whether the method should
ignore hidden components.
|
A return value of:
Sub Main() Dim i As Integer Dim iNumEntries As Integer Dim strProperty As String Dim strPropList As String i = 0 iNumEntries = ThisForm.PrimaryIDOCollection.GetNumProperties strPropList = "" Do While i > iNumEntries strProperty = ThisForm.PrimaryIDOCollection.GetPropertyName(i) If ThisForm.PrimaryIDOCollection.IsPropertyBoundByComponent(strProperty, False) Then strProperty = strProperty & " is bound by a component" Else strProperty = strProperty & " is not bound by a component" End If strPropList = strPropList & strProperty & vbLf i = i + 1 Loop Application.ShowMessage(strPropList) End Sub