Hii Hans I am unable get the data from that zip file downloaded. Pl. check
Thanks On Wed, Sep 9, 2009 at 5:38 PM, Rolf Bjarne Kvinge <[email protected]> wrote: > Hi, > > Please file a bug report in bugzilla.novell.com with a complete > (compilable) test case. > > Rolf > > > -----Original Message----- > > From: [email protected] [mailto:mono-vb- > > [email protected]] On Behalf Of Easy_Rider9999 > > Sent: domingo, 16 de agosto de 2009 11:45 > > To: [email protected] > > Subject: [mono-vb] Re sizing Images > > > > > > The following code works with .Net Framework but not with Mono. What is > > wrong! No new files are generated! > > > > > > gStatus = CodeLoc & " Sizing Image" > > Using newImage As Image = clsGrafics.SizeImage(_size, > > img) > > gStatus = CodeLoc & " Copy Exif" > > clsExif.Copy(img, newImage) > > img.Dispose() > > img = Nothing > > Dim f As String > > BackPath = "" > > If optNewName.Checked Then > > Action = ClsGlobal.GetLang("ResizeNewName", > > "Verkleinern > > in neue Datei", Me) > > ActionType = clsUndo.EnumActionType.Resize > > f = Me.GetRenamePath(sPictures(i)) > > ElseIf optFolder.Checked Then > > > > Action = ClsGlobal.GetLang("ResizeNewFolderName", > > "Verkleinern in Ordner", Me) > > ActionType = clsUndo.EnumActionType.Resize > > f = IO.Path.Combine(txtFolder.Text, > > IO.Path.GetFileName(sPictures(i))) > > ElseIf optOverwrite.Checked Then > > Action = ClsGlobal.GetLang("ResizeNewName", > > "Verkleinern", > > Me) > > ActionType = clsUndo.EnumActionType.Resize > > BackPath = ClsGlobal.GetBackPath(sPictures(i)) > > Try > > gStatus = CodeLoc & " Renaming File " & > > sPictures(i) & " > > to: " & BackPath > > My.Computer.FileSystem.RenameFile(sPictures(i), > > IO.Path.GetFileName(BackPath)) > > f = sPictures(i) > > blnOverWrite = True > > Catch ex As Exception > > f = "" > > MsgBox(ex.Message) > > End Try > > > > Else > > Throw New ApplicationException("No option selected!") > > End If > > If Not blnOverWrite Then > > ClsGlobal.gStatusLabel.Text = > > ClsGlobal.GetLang("CreatingResizeFile", "Erstelle neue verkleinerte > > Datei > > für ", Me) & sPictures(i) > > Else > > ClsGlobal.gStatusLabel.Text = > > ClsGlobal.GetLang("ResizingFile", "Speichere verkleinerte Datei für ", > > Me) & > > sPictures(i) > > End If > > gStatus = CodeLoc & " " & ClsGlobal.gStatusLabel.Text > > My.Application.DoEvents() > > If f <> "" Then > > Try > > gStatus = CodeLoc & " Saving NewImage to File " & f > > clsGrafics.SaveImg(newImage, f, tbCompr.Value) > > frmMain.AddToUndo(f, BackPath, Action, ActionType) > > Catch ex As Exception > > MsgBox(ex.Message) > > End Try > > End If > > Pictures(i) = f > > End Using > > > > > > -- > > View this message in context: http://www.nabble.com/Resizing-Images- > > tp24991889p24991889.html > > Sent from the Mono - VB mailing list archive at Nabble.com. > > > > _______________________________________________ > > Mono-vb mailing list > > [email protected] > > http://lists.ximian.com/mailman/listinfo/mono-vb > > _______________________________________________ > Mono-vb mailing list > [email protected] > http://lists.ximian.com/mailman/listinfo/mono-vb >
_______________________________________________ Mono-vb mailing list [email protected] http://lists.ximian.com/mailman/listinfo/mono-vb
