Manage Learn to apply best practices and optimize your operations.

Table of view and action icons

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

Rob Breault

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 last published in September 2001

Dig Deeper on Domino Resources - Part 4

Start the conversation

Send me notifications when other members comment.

Register

Please create a username to comment.

-ADS BY GOOGLE

SearchWindowsServer

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 ...

SearchDataCenter

  • How do I size a UPS unit?

    Your data center UPS sizing needs are dependent on a variety of factors. Develop configurations and determine the estimated UPS ...

  • How to enhance FTP server security

    If you still use FTP servers in your organization, use IP address whitelists, login restrictions and data encryption -- and just ...

  • 3 ways to approach cloud bursting

    With different cloud bursting techniques and tools from Amazon, Zerto, VMware and Oracle, admins can bolster cloud connections ...

SearchContentManagement

Close