Table of view and action icons

Here is how to display a list of view and action icons available for use.

After designing a detailed Web-based status page, a client wanted to switch to using a single row of icons instead of several rows of text status messages. All the ones I picked, they didn't like, so I threw together a quick agent to let them pick them out. The result is a nice printed page to see all the view and action icons.


Sub Initialize
 Dim x As Integer
 Print |<table>|
 Print |  <tr valign=top>|
 Print |    <td>|
 Print |     <table border=1>|
 Print |       <tr>|
 Print |         <td colspan=10 align=center><font face="arial" size="-1">|
 Print |           <b>Action Icons</b><br>Web Usage:<br>|
 Print |           <img src="/icons/actn000.gif" width=21 height=21></font>|
 Print |         </td>|
 Print |       </tr>|
 'Loop thru the action icons...
 For x = 1 To 155
   If Right$(Cstr(x),1) = 1 Then Print |<tr>| 'Open row...
   Print |<td align=center>|
   Print |  <img src="/icons/actn|| & Format$(x,"000") & |.gif" width=21 height=21 vspace=3 hspace=4 border=0><br>|
   Print |  <font face="arial" size="-2">| & Format$(x,"000") & |</font>|
   Print |</td>|
   If Right$(Cstr(x),1) = 0 Then Print |</tr>| 'Close row...
 Next x
 Print |     </table>|
 Print |   </td>|
 Print |   <td>  </td>|
 Print |   <td>|
 Print |     <table border=1>|
 Print |       <tr>|
 Print |         <td colspan=10 align=center><font face="arial" size="-1">|
 Print |           <b>View Icons</b><br>Web Usage:<br>|
 Print |           <img src="/icons/vwicn000.gif" width=12 height=11></font>|
 Print |         </td>|
 Print |       </tr>|
 'Loop thru the view icons...
 For x = 1 To 176
   If Right$(Cstr(x),1) = 1 Then Print |<tr>| 'Open row...
   Print |<td align=center>|
   Print |  <img src="/icons/vwicn|| & Format$(x,"000") & |.gif" width=12 height=11 vspace=5 hspace=7 border=0><br>|
   Print |  <font face="arial" size="-2">| & Format$(x,"000") & |</font>|
   Print |</td>|
   If Right$(Cstr(x),1) = 0 Then Print |</tr>| 'Close row...
 Next x  
 Print |     </table>|
 Print |   </td>|
 Print | </tr>|
 Print |</table>|
End Sub
This was first published in September 2001

Dig deeper on Domino Resources - Part 4

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.UK

Close