Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Public Sub ShowProperties(rCtl_Control As Object)
Dim lTLI_Appl As TLIApplication
Dim lInt_Interface As InterfaceInfo
Dim lMem_MemberInfo As MemberInfo
Dim lStr_PropName As String
Dim lStr_PropValue As String
Set lTLI_Appl = New TLIApplication
Set lInt_Interface = TLI.InterfaceInfoFromObject(rCtl_Control)
For Each lMem_MemberInfo In lInt_Interface.Members
lStr_PropName = ""
Select Case lMem_MemberInfo.InvokeKind
Case INVOKE_FUNC
' Dont Want to Invoke the function
' iNbrParms = mi.Parameters.Count
' If iNbrParms > 0 Then
'
' ReDim vaParms(iNbrParms - 1)
'
' '/* there is one child item in treeview */
' '/* for each invoke method parameter */
' Set nChild = nSelected.Child
' For iParmIndx = 1 To nSelected.Children
'
' sParmValue = InputBox( _
' "Enter Parameter Value " & _
' nChild.Text)
'
' '/* blank - assume optional and remove */
' If Trim$(sParmValue) = "" Then
' ReDim Preserve vaParms(iNbrParms - 1)
'
' Else
' '/* set parameter type */
' '/* (tag set in loadTreeViewWithClassInfo) */
' vaParms(iNbrParms - 1) = _
' setType(sParmValue, nChild.Tag)
' End If
'
' '/* in reverse order! */
' iNbrParms = iNbrParms - 1
' Set nChild = nChild.Next
'
' Next iParmIndx
'
' vParm = TLI.InvokeHookArray(obj, sMethod, _
' INVOKE_FUNC, vaParms())
' Else
'
' '/* no parameters */
' vParm = TLI.InvokeHook(obj, sMethod, _
' INVOKE_FUNC)
' End If
'
' MsgBox "Return = " & vParm
Case INVOKE_PROPERTYPUT
' Dont Want to Change the Value
' sParmValue = InputBox( _
' "Enter Value for Property ", _
' "Property Put")
'
' If sParmValue <> "" Then
' vParm = setType(sParmValue, mi.ReturnType)
' Call TLI.InvokeHook(obj, sMethod, _
' INVOKE_PROPERTYPUT, vParm)
' End If
Case INVOKE_PROPERTYGET
Select Case lMem_MemberInfo.ReturnType.VarType
Case VT_I2, VT_EMPTY, VT_DISPATCH
' Ignore these types
Case Else
lStr_PropName = lMem_MemberInfo.Name
lStr_PropValue = CStr(lTLI_Appl.InvokeHook(rCtl_Control, lMem_MemberInfo.MemberId, INVOKE_PROPERTYGET))
MsgBox "Control: " & rCtl_Control.Name & vbCrLf & "Property " & lStr_PropName & " = " & lStr_PropValue
End Select
End Select
Next lMem_MemberInfo
Set lTLI_Appl = Nothing
Set lInt_Interface = Nothing
Set lMem_MemberInfo = Nothing
End Sub