|
Dim x As Integer, y As Integer
Dim bmpIn As New Bitmap(fInName)
Dim bmpOut As New Bitmap(fOutName)
For x = 0 To bmpIn.Height - 1
For y = 0 To bmpIn.Width - 1
bmpOut.SetPixel(x, y, bmpIn.GetPixel(x, y))
Next
Next
bmpOut.Save(fOutName, System.Drawing.Imaging.ImageFormat.Bmp)
I've tried to save a bitmap image but failed. Please help me!!!
Thanks!
|
|
|
|
|
What do you mean you have failed. Are you getting an error? Is the output not what you expect? What exactly are you trying to do with this code. Please explain so we might help, because I don't think this code is what you want. From what I can tell you are creating a bitmap from an image on your harddrive. You are then creating another bitmap from a different image on your harddrive. The loop attempts to copy all the pixels from the first image over the second image.
|
|
|
|
|
bmpOut.Save(fOutName, System.Drawing.Imaging.ImageFormat.Bmp)
The error is found on this command statement. I dont think it is wrong but I cant even figure out what's happened
|
|
|
|
|
You didn't answer the question. What has failed ? Did you get an error at runtime ? At compile time ? Did you end up with a file you can't open ? A file that doesn't contain what you expected ?
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
Creating a bitmap using dim bmp as new bitmap("somefile") will lock the file. In your code you created the bitmap from fOutName. You are also trying to write the new bitmap to that same file. My guess is whatever error your getting is due to the fact that the file is locked. You can get around this by using a stream instead.
Dim fs As New IO.FileStream(fOutName, IO.FileMode.Open)
Dim bmpOut As New Bitmap(fs)
fs.Dispose()
Hope that helps.
|
|
|
|
|
Dim x As Integer, y As Integer
Dim bmpIn As New Bitmap(fInName)
Dim fs As New IO.FileStream(fOutName, IO.FileMode.Open, FileAccess.Write)
Dim bmpOut As New Bitmap(fs)
For x = 0 To bmpIn.Height - 1
For y = 0 To bmpIn.Width - 1
bmpOut.SetPixel(x, y, bmpIn.GetPixel(x, y))
Next
Next
bmpOut.Save(fOutName, System.Drawing.Imaging.ImageFormat.Bmp)
fs.Dispose()
I've tried but failed with the error statement "Parameter is not vail" which can be describled in detail that:
System.ArgumentException: Parameter is not valid.
at System.Drawing.Bitmap..ctor(Stream stream)
at IP.frmMain.SubMenuSave_Click(Object sender, EventArgs e) in D:\Thu_Vien\Documents\Studying Files\Image Processing\IP.NET\IP\IP\frmMain.vb:line 97
at System.Windows.Forms.ToolStripItem.RaiseEvent(Object key, EventArgs e)
at System.Windows.Forms.ToolStripMenuItem.OnClick(EventArgs e)
at System.Windows.Forms.ToolStripItem.HandleClick(EventArgs e)
at System.Windows.Forms.ToolStripItem.HandleMouseUp(MouseEventArgs e)
at System.Windows.Forms.ToolStripItem.FireEventInteractive(EventArgs e, ToolStripItemEventType met)
at System.Windows.Forms.ToolStripItem.FireEvent(EventArgs e, ToolStripItemEventType met)
at System.Windows.Forms.ToolStrip.OnMouseUp(MouseEventArgs mea)
at System.Windows.Forms.ToolStripDropDown.OnMouseUp(MouseEventArgs mea)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ScrollableControl.WndProc(Message& m)
at System.Windows.Forms.ToolStrip.WndProc(Message& m)
at System.Windows.Forms.ToolStripDropDown.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
What should I do??? 
|
|
|
|
|
First try moving fs.dispose up a few lines. If the stream hasn't been disposed the file will still be locked I believe. You did give write permission, but even so this will ensure you have full access to the file. Once you've created the bitmap you can dispose of the stream so just do it after the bitmap gets made. Try that first. You may still get an error from the sounds of it. I got that same error for completly unknown reasons. As far as I could tell it was a glitch. I closed VS 2005 and re-opened it. I then used the exact same code and it worked. Also just to re-create the code that I used perfectly don't use FileAccess.write. If you move the dispose code up and remove FileAccess.write the code should work. If it doesn't you may be experiencing the same glitch I came across. In that case I'm not sure what to tell you. To double check try creating a new project and use just the code to create the bitmap from the stream. Try the code and if it works move that code to your current project. If it then fails we know there is a problem.
|
|
|
|
|
Hi all
I use a DropDownList control in my web application but my problem is that the selectedindexchanging event dose not work well and first value of that control is selected
Please help me
Thanks a lot
|
|
|
|
|
Do you have autoPostback set to true on the dropdown? If you don't you need to set it to true.
Ben
|
|
|
|
|
Hi
Yes I do this job.
Thanks in advance
|
|
|
|
|
I have a date string which is YYMMDD and I want to check if it is valid. I used the ISDATE(MyDateString) syntax with a valid date, but it returns false. Is there another function available I can use?
Any help is appreciated
Lost in the vast sea of .NET
|
|
|
|
|
Can you check this function by use the "/" character?
|
|
|
|
|
Here is what I did. tbxCourseDate3 is YYMMDD. Example 070329.
Dim strDate As String = Mid(tbxCourseDate3.Text, 3, 4) + Mid(tbxCourseDate3.Text, 1, 2)
strDate = strDate.Insert(2, "/")
strDate = strDate.Insert(5, "/")
If IsDate(strDate) = False Then
....
Thanks for the help. 
Lost in the vast sea of .NET
|
|
|
|
|
You can use the DateTime.TryParseExact method with the format string "yyMMdd" to attempt to parse the string.
---
single minded; short sighted; long gone;
|
|
|
|
|
If Mid(txtDate.Text, 3, 1) = "/" And Mid(txtDate.Text, 6, 1) = "/" Then
If Val(Mid(txtDate.Text, 7, 4)) < 1900 Or Val(Mid(txtDate.Text, 7, 4)) > 2078 Then
lblmessage.Text = "Invalid Date..."
Exit Sub
End If
If Not IsDate(Mid(txtDate.Text, 4, 3) & Mid(txtDate.Text, 1, 3) & Mid(txtDispatchDate.Text, 7, 4)) Then
lblmessage.Text = "Invalid Date..."
Exit Sub
End If
strdate = Mid(txtDate.Text, 4, 3) & Mid(txtDate.Text, 1, 3) & Mid(txtDate.Text, 7, 4)
lblmessage.Text = ""
Else
lblmessage.Text = "Invalid Date..."
Exit Sub
End If
All sorrows will be forget...,When u think ur most lovable one...,
Mag,
|
|
|
|
|
I noticed from the msdn help that posting a large message to the event
log is a bad practice. Logging a path to a file is better in this
instance. Is it possible to send a hyperlink in an event log message
that references an XML file that has a processing instruction to be
transformed by an XSLT file? I'd like the user to be able to click the
hyperlink in the event log and have a formatted html page open in a
browser.
Is this possible or is it a bad practice?
Thanks in advance,
|
|
|
|
|
|
hi
hi i want to create a setup for the application developed by me in vb.net 2005 which should ask for the license key when u try to install it
if u dono the license key the installation should be forced to abort
how to do that
pls reply asap
thank u
with regards
Balagurunathan.B
|
|
|
|
|
|
Why are you asking the same question, over and over again ?
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
i dint get a correct reply more over that if its 24hrs late no one looks at that question so i did that
with regards
Balagurunathan.B
|
|
|
|
|
hi
hi i want to create a setup which should ask for the license key when u try to install it
if u dono the license key the installation should be forced to abort
how to do that
pls reply asap
thank u
with regards
Balagurunathan.B
|
|
|
|
|
|
Sir/Madam,
Can i programically open the outlook to send the mails in vb.net 2005 Window Applications.
Thanks And Regards
Pankaj
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
