Undo Paint

Normalt når man har sendt data til printeren, skal jobbet annulleres af brugeren, vha den udskriftsboks som kommer til syne til venstre for uret i start menuen..  lige når man har trykket print.

Jeg sender jo ikke et print til printeren, jeg skriver en tekst ind oven i billedet.

//akj

Det er en ret kompliceret affære hvis du skal til at skrive kode for en multi-undo funktion til en picturebox, men en enkel måde at gøre det på kunne være at originalen bliver gemt i en anden picturebox hver hver gang blilledet ændre sig, og så hvis brugeren ønsker at fortryde kan du bare hente indholdet fra den anden picturebox ind i originalen. Ulempen er bare at der kun kan fortrydes én gang. Her en kode til ovenstående eksempel:
(Opret 2 picturebox'e "Picture1" og "Picture2")
'Skal refereres til fra der hvor du ændre i billedet
Public Sub OpretUndo()
'Kopier indholdet af Picture1 over i Picture2
Picture2.Width = Picture1.Width
Picture2.Height = Picture1.Height

DoEvents

BitBlt Picture2.hDC, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, Picture1.hDC, 0, 0, vbSrcCopy
End Sub

'Skal refereres til fra din Undo-funktion
Public Sub Undo()
'Kopier indholdet af Picture2 over i Picture1
Picture1.Width = Picture2.Width
Picture1.Height = Picture2.Height

DoEvents

BitBlt Picture1.hDC, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, Picture2.hDC, 0, 0, vbSrcCopy
End Sub

Håber du kan bruge det...
- Sion

Jeg har tænkt over den mulighed du nævner sion men havde håbet på en "rigtig" undo funktion.

//akj

Hvis ikke det gør noget at hele picboxen bliver "slettet" -dvs at alt hvad der er skrevet/tegnet med grafiske metoder, så kan du anvende kommandoen Cls:

Picture1.Cls

/tjacob

Takker for hjælpen.

Bruger CLS funktionen.

//akj