Picturebox opslaan

[jd m]

Ik ben net begonnen met programmeren met Visual Basic. Ik probeer een tekenprogramma te maken om te oefenen. Nu mijn vraag:

Als ik in de picturebox wat getekend heb wil ik dat graag opslaan op de harde schijf. Ik wil dus een knop maken met "Opslaan". en dat je dan moet browsen waar je het wilt opslaan. Maakt niet zoveel uit welk bestandstype het wordt. Als het dan opgeslagen is, dan zie je als je het opent het plaatje wat ik in de picturebox getekend heb.

Is er een script voor?

 

[That Guy]

SavePicture Picture1, "C:\wads.bmp"

 

[eeyk]

of

Open App.Path & "\save.gif" For Random As #1
Write #1, Picture1.Picture
Close #1
MsgBox App.Path & " File save"

in een Commando sub

 

[That Guy]

gebruik niet "#1" maar een freefile (tip....)

On error GoTo Hell

dim FF as long
FF = freefile
   Open App.Path & "\save.gif" for random As #FF
      Write #FF, Picture1.Picture
   Close #FF

Hell:
   if err.number <> 0 then
      msgbox "er was een fout, en wel #" & err.number
   end if