VB.NET中用drawImage()画图以后怎么保存?程序代码如下:
Public Class Form1
Inherits System.Windows.Forms.Form
Dim ofd As New SaveFileDialog
' Private pictureBox1 As New PictureBox
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.MainMenu1 = New System.Windows.Forms.MainMenu
Me.MenuItem1 = New System.Windows.Forms.MenuItem
Me.MenuItem2 = New System.Windows.Forms.MenuItem
Me.MenuItem3 = New System.Windows.Forms.MenuItem
Me.SuspendLayout()
'
'PictureBox1
'
Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.PictureBox1.Location = New System.Drawing.Point(0, 0)
Me.PictureBox1.Name = "PictureBox1 "
Me.PictureBox1.Size = New System.Drawing.Size(392, 358)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 0
Me.PictureBox1.TabStop = False
'
'MainMenu1
'
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1})
'
'MenuItem1
'
Me.MenuItem1.Index = 0
Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem3})
Me.MenuItem1.Text = "file "
'
'MenuItem2
'
Me.MenuItem2.Index = 0
Me.MenuItem2.Text = "save "
'
'MenuItem3
'
Me.MenuItem3.Index = 1
Me.MenuItem3.Text = " "
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(392, 358)
Me.Controls.Add(Me.PictureBox1)
Me.Menu = Me.MainMenu1
Me.Name = "Form1 "
Me.Text = "Form1 "
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Dock the PictureBox to the form and set its background to white.
' pictureBox1.Dock = DockStyle.Fill
' pictureBox1.BackColor = Color.White
' pictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
' Connect the Paint event of the PictureBox to the event handling method.
AddHandler pictureBox1.Paint, AddressOf Me.pictureBox1_Paint
' Add the PictureBox control to the Form.
' Me.Controls.Add(pictureBox1)
End Sub
Private Sub pictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)
' Create image.
Dim newImage1 As Image = Image.FromFile( "F:\lianxi\Image1--1.jpg ")
Dim newImage2 As Image = Image.FromFile( "F:\lianxi\Image1--2.jpg ")
Dim newImage3 As Image = Image.FromFile( "F:\lianxi\Image2--1.jpg ")
Dim newImage4 As Image = Image.FromFile( "F:\lianxi\Image2--2.jpg ")
' Create rectangle for displaying image.
Dim destRect As New Rectangle(0, 0, 520, 520)
' Create rectangle for source image.
Dim srcRect As New Rectangle(0, 0, 520, 520)
Dim destRect1 As New Rectangle(520, 0, 520, 520)
Dim destRect2 As New Rectangle(0, 520, 520, 520)
Dim destRect3 As New Rectangle(520, 520, 520, 520)
Dim rec As Rectangle
Dim units As GraphicsUnit = GraphicsUnit.Pixel
' Draw image to screen.
e.Graphics.DrawImage(newImage1, destRect, srcRect, units)
e.Graphics.DrawImage(newImage2, destRect1, srcRect, units)
e.Graphics.DrawImage(newImage3, destRect2, srcRect, units)
e.Graphics.DrawImage(newImage4, destRect3, srcRect, units)
End Sub 'pictureBox1_Paint
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
ofd.Filter = "jpg file|*.jpg|bmp file|*.bmp "
Dim bmp As New Bitmap(1040, 1040)
bmp = Me.PictureBox1.Image
If (ofd.ShowDialog = DialogResult.OK) Then
bmp.Save(ofd.FileName)
End If
End Sub
End Class
每次运行到 bmp.Save(ofd.FileName)
这一步时就出现An unhandled exception of type 'System.NullReferenceException ' occurred in WindowsApplication4.exe
Additional information: Object reference not set to an instance of an object.查看了下,原来Me.PictureBox1.Image为nothing,这样传值给bmp时,bmp也是nothing.想了下,最终的问题归结为用DrawImage()函数以后,居然没有把图象画到PictureBox1中,但是可以在PictureBox1中显示,也不知道是怎么回事.
在线等回复.
[解决办法]
看一下ofd是否为空引用。 然后bmp.Save(file) 中file参数应该是你要保存到的路径。
[解决办法]
bmp.save的时候第一个写名字，第二个一定要 imageformat.xx，即保存的格式，否则就保存为位图
