Re: Tab Control , Forms 4.5 , tabswitching

From: Jens U. Veigel <jens_at_deutschware.com>
Date: 1997/03/09
Message-ID: <33230d8d.265101085_at_news.aud.alcatel.com>#1/1


>
>We use a VBX control, produced by a company called Videosoft. This
>generally works well. However, when Forms5.0 comes along, VBX controls
>will not be useable. Also Forms 5.0 will have built-in TAB controls, so
>you would have to convert them when/if you migrate.
>
>--
>The above posting represents the personal opinions of the author and
>is not to be taken as official (or unofficial) policy or opinions of
>his employer.
>
>Alex Heney, Living in the Global Village.

Hey Alex ,

saw your response about videosoft's tab control .

I have aquestion for you.

I also use the same VSVBX, version 4 (the only version that works for me) Version 5 always bomp's out) !

[Quoted] I use this tab switching procedure, which works but my problem is, that I would like to switch between the tabs without using GO_ITEM. Just using Show canvas does not always work, I guess I have a refresh or overlapp problem, that's why I use Go_item to begin with.

I would like to make all the
fields in on the subcanvas display items, now I have to leave one item on each canvas a text item, so the go_item does work. Do you have any ideas how to be able to switch between canvases without using Go_item, or to make Go_item work with display items. I don't want to user in these canvases to enter or change anything, it's just for querrying and displaying. Any Suggestions?? I would appreciate it very much.
Here is how I do it today :

PROCEDURE tab_switching
IS

   TabEvent VARCHAR2(80);
   TabNumber NUMBER;
BEGIN
   TabEvent := :system.custom_item_event;    IF (UPPER(TabEvent) = 'CLICK') then
--hide_tabs;

      TabNumber := VBX.Get_Property('STENCIL_TAB', 'CurrTab');
      IF TabNumber = 0 then
         show_view('PRODUCTION');
      GO_ITEM ('STENCIL_P.STENCIL_SLOT'); <---- switch to  Prod.  Tab
      ELSIF TabNumber = 1 then
         show_view('ENGINEERING');
      GO_ITEM ('STENCIL_E.STENCIL_SLOT'); <--- switch to Eng. Tab
      ELSIF TabNumber = 2 then
         show_view('OBSOLETE');
      GO_ITEM ('STENCIL_O.STENCIL_SLOT'); <--- switch to Fixture Tab
      ELSIF TabNumber = 3 then
         show_view('FIXTURE_INFO');
         GO_ITEM ('FIXTURE_TAB');

... etc, you get the idea

Thanks for looking at it

Jens   Received on Sun Mar 09 1997 - 00:00:00 CET

Original text of this message