hur fixar ja så att ja kan bestämma bild till en imagebox
med commondialog

jag behöver kunna öppna o välja en bild till en picture eller en image ruta


// Tobben

<code>
Dim Pic As String
On Error GoTo OpenError
cmDialog.Filter = "Bild|*.jpg"
cmDialog.InitDir = PicFile
cmDialog.DefaultExt = "*.jpg"
cmDialog.DialogTitle = " Öppna Picfil"
cmDialog.Flags = &H1000
cmDialog.FileName = ""
cmDialog.ShowOpen
Pic = cmDialog.FileName
Picture1.Picture = LoadPicture(Pic) ' Alt
'Image1.Picture = LoadPicture(Pic)
</code>

hur gör jag för o spara bilden som jag har plockat frm till bildrutan?

///tobben

I princip efter detta.
<code>
CmDialog.DialogTitle = " Spara som..."
CmDialog.Flags = &H2
CmDialog.FileName = ""
CmDialog.ShowSave
SaveNamePic = CmDialog.FileName
</code>