Remove and Add Database Icons on Workspace with Program

I saw many postings in forums for code to remove database icons from the workspace. There is no way to completely

remove the icons programmetically with out the user interaction, but I came up with the following code to do this. Only drawback to this code is it prompts user to confirm before removing each icon.

Button: Remove and Add database Icons
REM " To remove the first database Icon"
REM"Use AddDatabase, File opendatabase,WindowNext and closewindow to select the existing icon on workspace"
@PostedCommand([AddDatabase]; "Develop":"Dev\Testing\icontesting.nsf");
@PostedCommand([FileOpenDatabase]; "Develop":"Dev\Testing\icontesting.nsf");
@PostedCommand([FileCloseWindow]);
@PostedCommand([WindowNext]) ;
REM" use file database Remove to remove the selected the icon. this will prompt user to confirm before removing the icon"
@PostedCommand([FileDatabaseRemove]);
REM " To remove the second database Icon"
@PostedCommand([AddDatabase]; "Develop":"Dev\Testing\icontesting2.nsf");
@PostedCommand([FileOpenDatabase]; "Develop":"Dev\Testing\icontesting2.nsf");
@PostedCommand([FileCloseWindow]);
@PostedCommand([FileDatabaseRemove]);
REM " To add database Icons"
@PostedCommand([AddDatabase]; "Develop"::"Dev\Testing\icontesting.nsf");
@PostedCommand([AddDatabase]; "Develop":"Dev\Testing\icontesting2.nsf")

You can remove as many database icons you want from workspace by adding similar code as "To remove the second database icon" in above code

You can add as many database icons as you want by adding similar code as " To add database Icons" in the above code.


This was first published in February 2001

Dig deeper on Domino Resources

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:

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