Posts
To Download Source Code Click Here > Save image in MySettings.rar
- Open Visual Studio and Click on New Project window from template.
- Place Four buttons and a Picture box.
- Set Name Properties of :
- Button1 = "btnBrowse"
- Button2 = "btnSave"
- Button3 = "btnDelete"
- Button4 = "btnExit"
- Picturebox1 = "pctImage"
- OpenFileDialog1 = "ofdImage"
- Form1 = "frmImageSave"
- Button1 = "Browse"
- Button2 = "Save"
- Button3 = "Delete"
- Button4 = "Exit"
- Form1 = "Save Image"
6.From the Left side Select Settings Tab
7.Now Set the Name as Image.
8.Select the Type and click on Browse.
9. Now a Window will open. In that click on System.Collections. Under that Click on ArrayList.
10. Select Scope as User.
11. Set Value Field as Empty. I mean don't Enter any value.
12. Right Click on Form and click on View Code.
13. And Paste the following Code.
Imports System.IO
Public Class frmImageSave
Private Sub frmImageSave_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not My.Settings.Image.Count = 0 Then
Dim bytImage(My.Settings.Image.Count - 1) As Byte
For index As Integer = 0 To My.Settings.Image.Count - 1
bytImage(index) = My.Settings.Image.Item(index)
Next
Dim MS As New MemoryStream(bytImage)
pctImage.Image = Image.FromStream(MS)
Else
pctImage.Image = Nothing
End If
Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
With ofdImage
.InitialDirectory = "C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\"
.Filter = "JPEGs|*.jpg"
.FilterIndex = 1
End With
If ofdImage.ShowDialog = Windows.Forms.DialogResult.OK Then
If FormatNumber(FileLen(ofdImage.FileName) / 1024, 0) > 30 Then
MessageBox.Show("Please Select Image of Size less then 30kbs", "Save Image", MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
.Image = Image.FromFile(ofdImage.FileName)
.SizeMode = PictureBoxSizeMode.StretchImage
End With
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Try
Dim MS As New MemoryStream
pctImage.Image.Save(MS, Imaging.ImageFormat.Jpeg)
Dim bytImage() As Byte = MS.GetBuffer
For index As Integer = 0 To bytImage.Length - 1
My.Settings.Image.Add(bytImage(index))
Next
My.Settings.Save()
MessageBox.Show("Image Saved Successfully.", "Save Image", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message & " btnSave_Click")
End Try
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
My.Settings.Image.Clear()
My.Settings.Save()
MessageBox.Show("Image Deleted Successfully.", "Save Image", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Application.Exit()
End Sub
Public Class frmImageSave
Private Sub frmImageSave_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not My.Settings.Image.Count = 0 Then
Dim bytImage(My.Settings.Image.Count - 1) As Byte
For index As Integer = 0 To My.Settings.Image.Count - 1
bytImage(index) = My.Settings.Image.Item(index)
Next
Dim MS As New MemoryStream(bytImage)
pctImage.Image = Image.FromStream(MS)
Else
pctImage.Image = Nothing
End If
End Sub
Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
With ofdImage
.InitialDirectory = "C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\"
.Filter = "JPEGs|*.jpg"
.FilterIndex = 1
End With
If ofdImage.ShowDialog = Windows.Forms.DialogResult.OK Then
If FormatNumber(FileLen(ofdImage.FileName) / 1024, 0) > 30 Then
MessageBox.Show("Please Select Image of Size less then 30kbs", "Save Image", MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If
With pctImage.Image = Image.FromFile(ofdImage.FileName)
.SizeMode = PictureBoxSizeMode.StretchImage
End With
End If
End Sub
Try
Dim MS As New MemoryStream
pctImage.Image.Save(MS, Imaging.ImageFormat.Jpeg)
Dim bytImage() As Byte = MS.GetBuffer
For index As Integer = 0 To bytImage.Length - 1
My.Settings.Image.Add(bytImage(index))
Next
My.Settings.Save()
MessageBox.Show("Image Saved Successfully.", "Save Image", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message & " btnSave_Click")
End Try
End Sub
My.Settings.Image.Clear()
My.Settings.Save()
MessageBox.Show("Image Deleted Successfully.", "Save Image", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Application.Exit()
End Sub
End Class
To Download Source Code Click Here > Save image in MySettings.rar