[RESOLVED][2008]Save Resources?

[pirate16]

I was wondering if there was a way to save an image(a resource of the program)? My program now what it does is you select the image you want to see but right now there is no way to save it. How can i do it if being able to save resources is not an option?

This is how i load the resoruce.bitmap:

Case "Widescreen"
picturebox1.Image = My.Resources.noImageAvailable

Based on that i want the user to be able to save the image that is placed into the picture box!

[.paul.]

i don't think thats possible. my.resources resources are added at design time but can't be added at runtime. you could save the image to your my.application.info.directorypath (where the executable is) then save the filename in my.settings

EDIT: or just save the filename + path in my.settings

[pirate16]

How would i set that up so it saves where the executable is? I'm still new at vb and learning so some things i am still confuzed about . Also i am not adding to the resources im taking away from the resources and adding them to wherever the user wishes to save lol but if you say its not possible then its not possible .

[.paul.]

to add a my.settings setting

menus - Project-->Properties-->Settings

change Name to "test", Type to string, + scope to user.

to try it add this to your form, then run the project + doubleclick the form:

Private Sub form1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClick
     My.Settings.test = "test"
     My.Settings.Save()
     MsgBox(My.Settings.test)
End Sub

[pirate16]

Alright now how will this alloq me to save the image where the .exe is at? What do i have to do to make it so it can save?

Thanks for your help btw

[.paul.]

to save an image anywhere you need to create a new bitmap, then save it.

dim img as new bitmap(filename here)
img.save(new filename here, System.Drawing.Imaging.ImageFormat.Bmp)

[pirate16]

So if i add all that coding its as simple as saying image1.image.save(location) and it will work or is it more complicated? Is there a way you can set this up for me? I can send you my project folder so you can try it out :d.

[.paul.]

have a try at it yourself. you'll learn more

[pirate16]

Alright i did it myself but it wont work. I click the button to save the image and it does nothing, what do i have to place in the file name here part of the code? Sorry this is probably really annoying right now.

[Deepak Sakpal]

What is your code?

[pirate16]

The code he game me to use to save it here:

1.
dim img as new bitmap(filename here)
2.
img.save(new filename here, System.Drawing.Imaging.ImageFormat.Bmp)

[Deepak Sakpal]

If you want to just save image of picture box then following one line code is enough. You can choose different formats to save form ImageFormat.

PictureBox1.Image.Save("c:\test.bmp", Imaging.ImageFormat.Bmp)

[pirate16]

What if i want the user to choose where to save if i have a save dialog?

[Atheist]

Have you read up on the SaveFileDialog on MSDN?

[pirate16]

Yes i know how to use it but how would i place that code into it to make sure it does the right thing without error?

[.paul.]

read up on the SaveFileDialog on MSDN
it shows you how to avoid errors

[.paul.]

Private Sub button1_Click(sender As Object, e As System.EventArgs)
    Dim saveFileDialog1 As New SaveFileDialog()
 
    saveFileDialog1.Filter = "bmp files (*.bmp)|*.bmp|All files (*.*)|*.*"
    saveFileDialog1.FilterIndex = 2
    saveFileDialog1.RestoreDirectory = True
 
    If saveFileDialog1.ShowDialog() = DialogResult.OK Then
        img.save(saveFileDialog1.filename, Imaging.ImageFormat.Bmp)
    End If
End Sub

[pirate16]

I keep getting Dim img As New Bitmap(filename here) error with here underlined blue Comma or expression needed and img underlined blue with error "declaration expected"

[Deepak Sakpal]

Can u pls post the actual code that u have written in ur project??

[pirate16]

dim img as new bitmap(filename here)
img.save(new filename here, System.Drawing.Imaging.ImageFormat.Bmp)

This is the code where i get the error.

[Atheist]

Is that your exact code? What is the exact error messages?

[Deepak Sakpal]

dim img as new bitmap(filename here)
img.save(new filename here, System.Drawing.Imaging.ImageFormat.Bmp)

This is the code where i get the error.

Have u seen the code posted .paul.? Use that code.

[pirate16]

I did use that code lol thats the code giving me the error. The error is:

(filename here) here is underlined blue and it says comma, ')', or a valid expression continuation expected.

and img.save(new filename here) file name here underlined with same error and img udnerlined with error: name img is not declared although i did put dim img!

[.paul.]

post your COMPLETE code + someone might help you.
looking at your previous posts in this thread it looks like you've got confused.

[pirate16]

Public Class Form1
    Dim img As New Bitmap(filename here) 
    Private documentTitle As String
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Select Case ListBox1.SelectedItem.ToString()
            Case "Save"
                PictureBox1.Image = My.Resources.Save_Button
        End Select
    End Sub




    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)



        Dim saveFileDialog1 As New SaveFileDialog()



        saveFileDialog1.Filter = "bmp files (*.bmp)|*.bmp|All files (*.*)|*.*"

        saveFileDialog1.FilterIndex = 2

        saveFileDialog1.RestoreDirectory = True



        If saveFileDialog1.ShowDialog() = DialogResult.OK Then

            img.save(saveFileDialog1.FileName, Imaging.ImageFormat.Bmp)
            documentTitle = saveFileDialog1.FileName
        End If


    End Sub



End Class

Dim img As New Bitmap(filename here) - THIS IS WHERE I GET ERROR on the here part. The image one is no longer there but yeah.

[.paul.]

Dim img As New Bitmap(filename here)

you're supposed to substitute - filename here - for the filename of the image file.

[pirate16]

I figured that much lmao. *smack self in head* so basically every time the user changes the image in the list box i dim it as the new image name? Also when i hit the save button it only saves the one image i set up in the dim image as new bitmap(my.resources.save_button). IS there a way to save save as whats in the image box? Cause when i say dim image as new bitmap(picturebox1.image) it comes up with some handling error.

[.paul.]

If you want to just save image of picture box then following one line code is enough. You can choose different formats to save form ImageFormat.

PictureBox1.Image.Save("c:\test.bmp", Imaging.ImageFormat.Bmp)

Deepak Sakpal told you how to do that 4 days ago!

[pirate16]

I know but how do i set that up so the user can select where to save? Nevermind i figured it out . Thanks for this guys i know it was annoying but you dont know how much this helped!!

[Deepak Sakpal]

I know but how do i set that up so the user can select where to save? Nevermind i figured it out . Thanks for this guys i know it was annoying but you dont know how much this helped!!

ok then you can now mark the thread as resolved and don't forget to rate our post