Jag har DragDroppat ner en bild i en Picture box & nu
vill jag spara ner den i min mapp (App.Path) & döpa om den.
typ?
Picture1.Picture = SavePicture(App.path & "\bild.gif")
vet inte hur????
eller något annat sätt?

Mycket tacksam för hjälp!

SavePicture(Picture1.Picture, "\bild.gif")

Ja något i den stilen, men jag får det inte att funka!

Nytt område för mig.

Tack på förhand.

Skippa paranteserna.
Du kan bara spara den som bmp fil.

SavePicture Picture1.Picture, app.Path & "/Test.bmp"

Om du har ritat linjet och sånt på PictureBox'en ska du använad Picture1.Image för att spara den synliga bilden. Har för mig att den dock ej tar med sig objekt ipictoreboxen. T.ex en image kontroll eller ett line objekt. Utan förändringar du gjor med t.ex PSet, Line, etc...

SavePicture Picture1.Image, app.Path & "/Test.bmp"

Hej
En sak som Ni bör tänka på när ni använder App.Path.

Om App.Path ligger direkt under tex. C:\ kommer Ni att få
dubbla \\ alltså Ni får fel på sökvägen.

>SavePicture Picture1.Picture, app.Path & "\Test.bmp"
Därför bör Ni ha denna kod stump som standard i Form_Load
Modul Nivå
Dim SearchPath As String

SearchPath = App.Path
If Right$(SearchPath, 1) <> "\" Then _
SearchPath = SearchPath & "\"

SavePicture Picture1.Picture, SearchPath & "Test.bmp"

mvh
Sven

Hoss mig fungerade:
SavePicture Form1.Image, "c:\\Test.bmp"

Så om inte jag misstar så klarar den att hantera sådana sökvägar. Så varför bry sig. Krånglar ju bar till koden i onödan...

Hej
Vilken version av Windows talar Vi om.Det var nytt
att man kan ha 2 backslasch i sökväg.

Snacka inte om onödigt du bara gör dig dum !!

mvh
Sven

Jag kör win2000, gör inte alla det?

Men kära SvenPon, jag ville bara tracka dig lite för att du brukar klaga på onödig kod... Håller med dig om att man bör ange en korrekt sökväg...

Men det är då bättre att kapsla den i en funktion. För man kommer förmodligen använda den mer än en gång... :O)

Ex:

Public Function MapPath(Path As String) As String
If Right$(App.Path, 1) = "\" Then
MapPath = App.Path & Path
Else
MapPath = App.Path & "\" & Path
End If
End Function

Dim sFileName as String
sFileName = MapPath("Test.bmp")

Hej
Phuuu "Ständigt denna vessla" som Ture Sventon skulle säga.

Sven

Hej
>Men det är då bättre att kapsla den i en funktion. För man kommer förmodligen använda den mer än en gång... :O).

Skulle det vara bättre att återvända 8 programrader + en
Funktion än att återanvända en textsträng på 4 rader ??

undrar
Sven

Jag är emot globala/modul varibler...

Om man gör som du och laddar värdet i form Load alternativt Sub Main. Tror faktist det är bättre att använda sig av Sub Main och en global variabel eftersom ett formulär kan ju laddas om under en applikations instans livstid. Fast inte särskilt troligt för huvudformuläret.

Man behöver ju inte använda sig av en funktion. Efter som sökvägen för applikatione är statisk under instansens livstid...

Tack för din alternativa lösnig. Ett bra inlägg för mångfalden...