Community discussion forum

how can i save an image from image box

• • Reply

  1 year ago

  by titusgroan

  zafer onursal

  , Turkey

  Joined 1 year ago

  please help ! 

  how can i save an image from image box to  window  folder. i want to copy this  image from image box to window  folder.
  

  Report abuse
• • Reply

  1 year ago

  by Judau_Ashta

  R. N. Infante

  Manila, Philippines

  Joined 3 years ago

  Try using Commondialog box to make a copy
  

  Project>components> Windows Common Dialog Control 6.0 (SP6)

  Commondialog1.Filter = "JPEG Files (*.jpg)|*.jpg"
  Commondialog1.Showsave 'Save As Dialog

   

   

   

  
   

  Report abuse
• • Reply

  1 year ago

  by titusgroan

  zafer onursal

  , Turkey

  Joined 1 year ago

  Please Help Me Again! 

   Private Sub Image1_Click()
  CommonDialog.ShowOpen
  Image1.Picture = LoadPicture(CommonDialog.FileName)
  End Sub
  Private Sub cmdSaveImage_Click()
  

  'Help me coding for this Command Button 

  'When i press SaveImgae button
  'I want to save or copy that image from ImageBox to Window Folder
  'Example.....Save that image to C:\MyPhoto
  End Sub
  
  

  Report abuse
• • Reply

  1 year ago

  by Judau_Ashta

  R. N. Infante

  Manila, Philippines

  Joined 3 years ago

   ok.. this is it...

  Dim srcFilename As String 

  Private Sub cmdBrowsePicture_Click()
      Me.CommonDialog1.Filter = "JPEG FIle (*.jpg)|*.jpg"
      Me.CommonDialog1.ShowOpen
      Me.Image1.Picture = LoadPicture(CommonDialog1.Filename)
      srcFilename = CommonDialog1.Filename
  End Sub
  

  Private Sub cmdSavePicture_Click()
      Me.CommonDialog1.Filter = "JPEG FIle (*.jpg)|*.jpg"
      Me.CommonDialog1.ShowSave
      Call FileCopy(srcFilename, CommonDialog1.Filename)
  End Sub
  

  Note: FileCopy is a visual basic keyword..
  

  Report abuse
• • Reply

  1 year ago

  by titusgroan

  zafer onursal

  , Turkey

  Joined 1 year ago

  Dear Fri Please help again
  

   Dim I, K As String
  
  Private Sub cmdSaveImage_Click()
  CDC.Filter = "JPEG Files(*.jpg)|*.jpg"
  CDC.ShowSave

  ' when Save As dialog box appear , may i disable file name field
  Call FileCopy(I, K) ' and i want to copy image with my  constant destination file name

  'eg. Text1.text instead of CDC.Filename
  End Sub
  
  Private Sub Command1_Click()
  Unload Me
  End
  End Sub
  
  Private Sub Img_Click()
  CDC.Filter = "JPEG Files(*.jpg)|*.jpg"
  CDC.ShowOpen
  Img.Picture = LoadPicture(CDC.FileName)
  I = CDC.FileName
  K = Text1.Text
  End Sub
  
  

  Report abuse
• • Reply

  1 year ago

  by Judau_Ashta

  R. N. Infante

  Manila, Philippines

  Joined 3 years ago

  ok.. i think you dont want to use commondialog control for saving image.. heres another way, i hope this will solve your problem 

  This code is working but make sure that filename that you will input in textbox must have a valid path and valid image format. 

  Private Sub cmdBrowsePicture_Click()
      Me.CommonDialog1.Filter = "JPEG File (*.jpg)|*.jpg"
      Me.CommonDialog1.ShowOpen
      Me.Image1.Picture = LoadPicture(CommonDialog1.Filename)
  End Sub
  

  Private Sub cmdSavePicture_Click()
      Call SavePicture(Image1.Picture, Text1.Text)
  End Sub

  Note:

  Text1.Text= is your new filename consist of (Directory,Foldername,Filename,and file extention/format)

  e.g. Text1.text="C:\MyPhoto\myPicture.jpg"

  SavePicture is a visual basic Keyword 

  Report abuse