Using Microsoft's TreeView Control in Forms 5.0

Question

I created the OCX item, assigned it the OLE class 'COMCTL.TreeCtrl.1', inserted Microsoft TreeView Control 5.0, imported the appropriate OLE packages and set the appropriate OCX specific properties. With all that done, I created a simple code to clear the nodes collection and then populate it with two dummy nodes. The following is that snippet of code:
PROCEDURE DO$TREE_INIT(
i_study_id IN VARCHAR2 DEFAULT NULL
) IS
v_inodes COMCTLLIB_CONSTANTS.INODES;
v_inode0 COMCTLLIB_CONSTANTS.INODE;
v_inode1 COMCTLLIB_CONSTANTS.INODE;
BEGIN
-- Get pointer to the treeview control's nodes collection.
v_inodes := COMCTL_ITREEVIEW.NODES(:item('CB_MAIN.OCX_TREE').interface);
-- Clear nodes collection
COMCTL_INODES.CLEAR(v_inodes);
-- Create initial tree structure when provided with a study.
IF (i_study_id IS NOT NULL) THEN
v_inode0 := COMCTL_INODES.OLE_ADD(
interface => v_inodes
,relative => OLEVAR_NULL
,relationship => OLEVAR_NULL -- TO_VARIANT(COMCTLLIB_CONSTANTS.TVWFIRST, vtype => VT_R8)
,key => TO_VARIANT('STUD|AA|123|BC|12', vtype => VT_BSTR)
,text => TO_VARIANT('Dursban MOR Study (12312123)', vtype => VT_BSTR)
,image => OLEVAR_NULL
,selectedimage => OLEVAR_NULL
v_inode1 := COMCTL_INODES.OLE_ADD(
interface => v_inodes
,relative => TO_VARIANT(COMCTL_INODE.OLE_INDEX(v_inode0), vtype => VT_R8)
,relationship => TO_VARIANT(COMCTLLIB_CONSTANTS.TVWCHILD, vtype => VT_R8)
,key => TO_VARIANT('FF+|AA|123|BC|12', vtype => VT_BSTR)
,text => TO_VARIANT('Facility Functions', vtype => VT_BSTR)
,image => OLEVAR_NULL
,selectedimage => OLEVAR_NULL
END IF;
END DO$TREE_INIT;
My form complies properly but during runtime I get this error:
FRM-40735: < ... > trigger raised unhandled exception ORA-100504.
This form is very simple. It contains only one control block, the tree control, OLE packages, WHEN-NEW-FORM-INSTANCE trigger, and this package. I have tried everything within my understanding. Do you have any suggestions?
Any help would be appreciated.
Thanks,
Rahul

Answer 1

I have the same situation too. The only solution
I could think of is to install "Additional ActiveX"
from custom VB5 installation. Besides there is
a problem when VB6 is installed, because the controls are
called "Microsft TreeView ... (SP2)".
If you find any progress , keep me in touch :) ...
Iain Sutherst (guest) wrote:
: I have spent sometime implementing ListView and TreeView
: controls (provided by COMCTL32.OCX, under VB 5) in Oracle
Forms
: 5.0, believing that the only files I would need to distribute
: when I came to implement on other machines were COMCTL32.DLL
and
: COMCTL32.OCX, followed by registering COMCTL32.OCX.
: This does not seem to be the case, since the control (ListView
: or TreeView) is not being activated during run-time, and when
I
: try to use 'Insert Object...' in the layout editor for the
: control, nothing happens.
: Unfortunately, I have loaded VB 5, and Oracle Objects for OLE
on
: to my original development environment, and so I cannot now be
: sure whether I need just COMCTL32.* or whether I need
something
: else as well.
: If anyone has had experience of using these controls and has
had
: to roll-out the developed applications to other machines, I'd
be
: grateful for any information.
: Thanks.
: Iain
null