vb.net picturebox 旋转与放大

在picturebox中有一图片，picbox.image
我用下面的语句实现旋转
picLicense.Image.RotateFlip(RotateFlipType.Rotate90FlipNone)
我暂时把原图假设为img1,旋转后的图片为img2
如果用pivbox.image.save()保存的话，那么保存下在的图片还是img1，而不是 img2
因为执行picLicense.Image.RotateFlip(RotateFlipType.Rotate90FlipNone)后，
picbox.image仍旧是img1,而不是img2。
怎样才能得到img2呢，并保存下来。
如有别的方法，也请赐教。
望高手帮忙解决一下，谢谢！

 
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
回复次数：13
#1 得分：2回复于： 2005-08-11 15:15:42
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.PictureBox1.Image.RotateFlip(RotateFlipType.Rotate90FlipNone)
        Me.PictureBox1.Refresh()
        Me.PictureBox1.Image.Save("c:\abcdfdfd.ico")
    End Sub

我试了一下，保存下来的是旋转后的效果，与你说的不符
CSDN论坛“大龄程序员的出路在哪里”有奖征文
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
#2 得分：10回复于： 2005-08-11 15:25:49
dim bmptarget as bitmap 
bmpTarget = New Bitmap(iWidth, iHeight, Drawing.Imaging.PixelFormat.Format24bppRgb) '创建目标空画布
g = Graphics.FromImage(bmpTarget) '创建目标空画布指针
imgSource = Image.FromFile("c:\1.jpg") '图像源
'旋转
imgSource.RotateFlip(RotateFlipType.Rotate90FlipNone)
    g.DrawImage(imgSource, New Rectangle(0, 0, x, y)) '图像源到目标空画布
    imgSource.Dispose() : imgSource = Nothing '释放源图像
 ‘保存           
 bmpTarget.Save(c"\2.jpg", Imaging.ImageFormat.Jpeg) '目标画布存储
百度云技术论坛有奖讨论第一期
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
#3 得分：0回复于： 2005-08-11 16:58:46
谢谢，我也发现了，不知道刚才哪里没弄好。
我还想问一下，怎样才能让图片按比例缩小来显示
免费领取CSDN积分大礼包
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
#4 得分：2回复于： 2005-08-11 17:28:37
放大缩小的问题：

    Private ImageHeight As Short
    Private ImageWidth As Short

    '点击一次放大两倍
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
        Me.PictureBox1.Width = ImageWidth * 2
        Me.PictureBox1.Height = ImageHeight * 2
        ImageWidth = Me.PictureBox1.Width
        ImageHeight = Me.PictureBox1.Height

        'Me.PictureBox1.Refresh()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
        ImageWidth = Me.PictureBox1.Width
        ImageHeight = Me.PictureBox1.Height
    End Sub
 
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
#5 得分：0回复于： 2005-08-12 09:06:13
这样放大，那图片就失真的，我的意思是在不失真的前提下，能不能放大和缩小
 
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
 
#6 得分：2回复于： 2005-08-12 09:13:12
不用那么样设置，因为对image来说你的缩放应该操作于graphics对象，而不是简单地让pictruebox控件来 设置SizeMode 
Dim image = Me.PictureBox1.Image
        Dim g As Graphics = Me.PictureBox1.CreateGraphics
        g.DrawImage(image, New Rectangle(0, 0, image.width * 2, image.height * 2))
 
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
#7 得分：0回复于： 2005-08-12 14:19:01
再请问一下，用DrawImage()方法所画图象显示在picturebox1中，但原图仍存在于picturebox1中，两者会一起显示，怎样才能使显示缩小的图象的同时，不显示原图。
 
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
#8 得分：0回复于： 2005-08-12 15:34:36
bmpTarget = New Bitmap(iWidth, iHeight, Drawing.Imaging.PixelFormat.Format24bppRgb) 
这条语句有问题啊，提示“使用了无效参数”
我先dim iwidth,iheight as integer,还是一样，我用0代替iWidth, iHeight也一样
 
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
 
#9 得分：2回复于： 2005-08-12 16:52:25
为什么还要去用picturebox.creategraphic来绘制呢，如果只是想在picturebox上显示扩大或者缩小后的图片那么可以使用该方法，但是相反，你要是想把图片显示并且要存储，最好就直接用创建新image对象的方法：
 Dim bitmap As Bitmap = bitmap.FromFile("f:\1.jpg")
        Dim image As New Bitmap(bitmap, bitmap.Width / 2, bitmap.Height / 2)
        Me.PictureBox1.Image = image
        image.Save("f:\3.jpg")
 
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
#10 得分：1回复于： 2005-08-13 00:41:58
bmpTarget = New Bitmap(, Drawing.Imaging.PixelFormat.Format24bppRgb) 
这条语句有问题啊，提示“使用了无效参数”
我先dim iwidth,iheight as integer,还是一样，我用0代替iWidth, iHeight也一样

----------------------------------------
iWidth, iHeight还有 g.DrawImage(imgSource, New Rectangle(0, 0, x, y)) 中的x,y均为图片的宽和高。
 
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
#11 得分：0回复于： 2005-08-16 10:00:07
图片已经保存在数据库中，我只想把从数据库中取出来的显示在picturebox里的图片，能通过事件使其放大和缩小，请问怎么实现
 
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
#12 得分：1回复于： 2005-08-16 12:00:48
'Function to Display Image
    Private Sub ShowImage(ByVal s As String)
        cn = New SqlClient.SqlConnection(SqlConnection1.ConnectionString)
        cn.Open()
        Dim str As String = "SELECT photo FROM Photos WHERE name='" & s & "'"
        Dim cmd As New SqlClient.SqlCommand(str, cn)
        TextBox1.Text = s
        Dim b() As Byte
        b = cmd.ExecuteScalar()
        If (b.Length > 0) Then
            Dim stream As New MemoryStream(b, True)
            stream.Write(b, 0, b.Length)
            DrawToScale(New Bitmap(stream))
            stream.Close()
        End If
        cn.Close()
    End Sub
 
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
#13 得分：0回复于： 2005-08-17 12:59:29
不是显示，是怎样放大和缩小

posted on 2013-06-12 21:34  song2013  阅读(2597)  评论(0)    收藏  举报

导航