RE: Adding Images to AS/400 Screens

["Steve Richter" <srichter@xxxxxxxxxxxxx>]

Hi Chuck,

The reflection tn5250 client has visual basic macro capability the could
meet your needs.

To display the picture of the employee:
        The user would position the cursor or mouse to the employee id nbr
        Then mouse click or ctrl-SomeKey keystroke  ( right click, ctrl-X, etc )
        A reflection VB macro that is linked to the keystroke runs on the pc.
        The VB macro screen scrapes the employee id nbr.
        Then the VB macro runs ADO or ODBC code to chain to a file on the as400 
by
employee nbr that contains the name of the employee picture image file.
        VB pgm then displays the image file in a picture control.

Here is a reflection vb macro that runs when the right mouse button is
clicked:
  Sub RightMouseClick()
    Dim col As Long
    Dim row As Long
    Dim sText As String
    col = Session.MouseClickColumn
    row = Session.MouseClickRow
    sText = Session.GetDisplayText(row, col, 20)
    MsgBox "Right mouse click. Column:" & col & "  Row:" & row & _
           " Contents:" & sText
  End Sub

Reflection has very good capabilities for something like this.  You can even
run VB code every time a new screen is displayed.  That code would interpret
which display is on the screen and if it is the one with the employee
number, it could auto display the picture of the employee.

Contact me if you want me to code it for you.


Steve Richter
AutoCoder, LLC


-----Original Message-----
From: midrange-l-admin@midrange.com
[mailto:midrange-l-admin@midrange.com]On Behalf Of GRAFCOR@aol.com
Sent: Saturday, March 02, 2002 1:56 PM
To: midrange-l@midrange.com
Subject: Adding Images to AS/400 Screens


--
[ Picked text/plain from multipart/alternative ]
We would like to add,  to our payroll system, the ability to display a
employes' picture (GIF,  JPG) on the AS/400 screen.

Any help would be appreciated.

Chuck
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.