Graphic Tabs on Form

Page does not seem to want to open, I will try again in a bit. But it is good to know it is possible.

or if you want to pursue framsets, you need to use @SetTargetFrame to open the details in your lower frame. if you are using an anchor HTML tag (<a>), you can include target="framename" so that the link will open in the desired frame.

programmed tables seems neat as suggested by sjef_bosman. haven't tried them though.

hope this helps.

Sjef, thabnks I will try this method.

Welcome! :)

I am trying to get this going but I think I am doing somrthing wrong. When I do a programmed table, but when I enter the code for the cell, it displays each graphic in the cell below the tabs. What type of table do I setup. How do I configure these so it has the graphics all in the top row "tabs", with an available cell for a nested table of information.

I think you'd have to create two tables, the first is a normal table with only one row containing your tabs, and the second is the programmed table.

OK I have been making progress but I am running into an issue I can't figure out here.

Am getting an Object Varible Note Set error on this line from the code below:If uidoc.editmode Then
I have tried adding the Set commands above this but it keeps failing. This is in a Script Library I am calling.

Sub OnClickTab ( w As NotesUIWorkspace, s As NotesSession, uidoc As NotesUIDocument, doc As NotesDocument, row As String )
' FUNCTION: OnClickTab ( w, s, uidoc, doc, row )
' PURPOSE: Change the row the the programmable table
' ARGUMENTS:
'      w ( NotesUIWorkspace ) - global ui workspace
'      s ( NotesSession ) - global session
'      uidoc ( NotesUIDocument ) - notes ui document
'      doc ( NotesDocument ) - notes backend document
'      row ( row ) - row to set
      
      If uidoc.editmode Then
            Call doc.ReplaceItemValue("$row", row)
            Call uidoc.refresh
      Else
            Call s.setEnvironmentVar("RevolutionRow", row)
            Call uidoc.close
            Call w.EditDocument(False , uidoc.Document)
      End If
      
End Sub

These are the items on the form

Declarations:
Dim s As NotesSession
Dim w As NotesUIWorkspace
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim uidoc As Notesuidocument

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
      
      Set w = New NotesUIWorkspace
      Set s = New NotesSession
      Set db = s.CurrentDatabase
      Set uidoc = source
      
      Call InitializeRow ( s, uidoc )
      
End Sub

Sub Postopen(Source As Notesuidocument)
      
      Set doc = source.Document
      
End Sub

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
      
      Call FinalizeRow ( s, source )
      
End Sub

One of the objects has no value (or Nothing). Can you test with the debugger? What is the complete call to OnClickTab??

Just a hint: calling New NotesSession or New NotesUIWorkspace many times isn't a problem: there is only ONE of those objects ever available. Each time you use New, you will get the same object. Putting them in a Global space is neater but not more efficient.

Another problem: when you call uidoc.Close from a form, the code AFTER that call will never be executed.

Most of this code is right from that site you recomemended. I have run it through debugger and it give me the OVNS error at the first line, it no longer seems to have a handle on s, ws, doc etc. even though that is set on the QueryOpen event. Somehow it seems to lose the info when it goes to the OnClickTab function.

Not sure what you mean by the complete call for the OnClickTab, All that code is above.

Just a note here..

Usually when I do the programmatic tables, if you want nice graphic buttons, you put these above or below the programmatic tables.  YOu have to edit each row in the programmatic tables  so that the programmatic table has a name, and each row has a name or ID.

So, you have a table:  maintable
  Look in the Table Properties, and the NAME/ID of the TAble = maintable
it has three rows:  R1, R2, R3
  Look in each ROW properties and set R1 = "R1", etc.

When you click on graphic 1, you want row 1 to display
when you click on graphic2, you want row 2 to display
when you click on graphic3, you want row 3 to display

At the top of your form is  simple text field, editable, called $maintable with a default value of "R1" - so when you open the form, no rows are visible, or "R1" is visible


Your graphic tabs can either use an "onclick" event, or a hotspot:

@SetField("$Maintable";"R1");
@Command([ViewRefreshFields]);
@Command([RefreshHideFormulas]);
--------------------or-------------------------------

doc.~$Maintable = "R1"
Call uidoc.refresh
Call uidoc.Refreshhideformulas()

I just knew you couldn't resist... :-D

First requirement: add a line in the Options-section:
    Option Explicit
So you'll know all variables are declared before use.

You have to put the global variables of the form really global, i.e. in the (Globals) Formname part of the form. Otherwise, the Click-button will not have access to them.

I have the Dims below in the Global declarations
Dim s As NotesSession
Dim w As NotesUIWorkspace
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim uidoc As Notesuidocument

And the code below to set the script library
Option Public
Use "OnClickTab"

Seems like when it goes to the OnClickTab event it no longer has a handle on any of the items, it has them in the previous QueryOpen and PostOpen events.

One other thing I am not sure how to setup is when I use a computed cell in the table to get the graphic, how do I add a hotspot, I only seem to be able to add a hot spot when I add a picture.

Can I add code to use a @Function to have the image change to the "active/over" state and then go back to the normal state when released. I can't get the button to react to the click.

Which declarations section? You have to be in the (Globals) Formname part of your form, the topmost in the Objects reference window. You have to put these declarations there. Otherwise, the button's code doesn't know where to find the variables mentioned in the code. The compiler doesn't go looking for the declarations in the Form declarations, but only in the (Globals) (declarations).

And where is Option Explicit ?? Add this option to the button's options section and you'll see what I mean.

Just a hint: look in the Programmer's Pane (Alt-Enter), 2nd tab, and enable "Automatically add 'Option Declare'" . Option Explicit and Option Declare are equivalent.

"Which declarations section? You have to be in the (Globals) Formname part of your form, the topmost in the Objects reference window. You have to put these declarations there. Otherwise, the button's code doesn't know where to find the variables mentioned in the code. The compiler doesn't go looking for the declarations in the Form declarations, but only in the (Globals) (declarations).

And where is Option Explicit ?? Add this option to the button's options section and you'll see what I mean."

I have the Dims in the Form level global declarations. I added to the Option Explicit to each button

Option Explicit
Use "OnClickTab"


"Just a hint: look in the Programmer's Pane (Alt-Enter), 2nd tab, and enable "Automatically add 'Option Declare'" . Option Explicit and Option Declare are equivalent."

I enabled this option in the programmers pane, not sure if it is retroactive and will add to the form I have already created.

There are, in the window with the Objects reference etc, a lot of objects, like

    - ABCD (Form)
        Window Title
        HTML Head...
        ...

but there us a section before that, you may have to scroll up to see it:

    + (Globals) ABCD
    - ABCD (Form)
        Window Title
        HTML Head...
        ...

When you open the very first line, with the +, you'll see
    - (Globals) ABCD
        x (Options)
        x (Declarations)
        ....
    - ABCD (Form)
        Window Title
        HTML Head...
        ...

You have to put your declarations in that very first section of your form. Are they in there?

It's not retroactive, one of the serious misconceptions in the Designer.

I have put them into that section for the global declarations, I am checking with the guy who wrote that code to see what I am missing here. Will let you know what the final fix ends up being.

I'd love to see it. If you think it would be useful if I had a copy of the form you're testing, put it into an empty database, zip it and send it to me. My address is in my EE-profile, somewhere in the middle.

Heh, you defined all variables both in the (Globals) section and in the Form section. Now there exist two sets of variables with the same name, in different spaces. The functions in the form will access the variables declared in the for, whereas the functions in the button will access the (Global) variables.

Simple remedy: remove the variables defined in the form, and leave those (Globals).

You should do a similar thing with FinalizeRow and InitializeRow: put only one function in the Globals section, so they will be visible for all other functions. And remove those local functions.

Off to dreamland...

Cool tabs by the way!

Thank you so much for the help, with some help from Chris, have this working now.

Great!