Code archives/Graphics/Save Screenshot

This code has been declared by its author to be Public Domain code.

Download source code

Save Screenshot by Milky Joe
(Posted 25 years ago)
Saves a snapshot of the current view (front buffer) to the current directory. Automatically determines the next available file number; Screenshot001.bmp, Screenshot002.bmp etc. 
Function SaveScreenshot()

; Version: 1.0
; Author: Leigh Bowers
; Homepage: http://www.curvenet.co.uk

    iFileNumber% = 0
    Repeat
        iFileNumber = iFileNumber + 1
        sFileName$ = "Screenshot" + String$("0", 3 - Len(Str$(iFileNumber))) + iFileNumber + ".bmp"
    Until Not(FileType(sFileName))
    
    SaveBuffer FrontBuffer(), sFileName

End Function

Comments

Sunshine Dreamer
(Posted 20 years ago)
thanks guys ! :)

S/D

ThermO
(Posted 18 years ago)
7 Years!

Man, where did you get your nick? *Milky Joe.....boosh?

Code Archives Forum