VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >

  • vb.net 教程 5-7 Bitmap类 2

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
本节主要从代码介绍Bitmap的几个方法。
 
设计界面：
 
 
 
为了便于观察，请将PicDest的SizeMode设置为：AutoSize。
 
cbRotateFlip的Items属性设置为RotateFlipType的成员名称：
 
 
 
主要代码：
 
 
 
    '窗体级变量，保存加载的图片
    Dim sourceImg As Bitmap
 
    '载入图片
    Private Sub btnLoadimg_Click(sender As Object, e As EventArgs) Handles btnLoadimg.Click
        sourceImg = New Bitmap("d:\15z.jpg")
        '或者：
        'sourceImg = Image.FromFile("d:\15z.jpg")
        picSource.Image = sourceImg
    End Sub
 
    '旋转、翻转
    Private Sub cbRotateFlip_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbRotateFlip.SelectedIndexChanged
        Dim destImg As Bitmap
        destImg = sourceImg.Clone
        Select Case cbRotateFlip.Text
            Case "Rotate180FlipX"
                destImg.RotateFlip(RotateFlipType.Rotate180FlipX)
            Case "Rotate180FlipNone"
                destImg.RotateFlip(RotateFlipType.Rotate180FlipNone)
            Case "Rotate180FlipXY"
                destImg.RotateFlip(RotateFlipType.Rotate180FlipXY)
            Case "Rotate180FlipY"
                destImg.RotateFlip(RotateFlipType.Rotate180FlipY)
            Case "Rotate270FlipNone"
                destImg.RotateFlip(RotateFlipType.Rotate270FlipNone)
            Case "Rotate270FlipX"
                destImg.RotateFlip(RotateFlipType.Rotate270FlipX)
            Case "Rotate270FlipXY"
                destImg.RotateFlip(RotateFlipType.Rotate270FlipXY)
            Case "Rotate90FlipNone"
                destImg.RotateFlip(RotateFlipType.Rotate90FlipNone)
            Case "Rotate90FlipX"
                destImg.RotateFlip(RotateFlipType.Rotate90FlipX)
            Case "Rotate90FlipXY"
                destImg.RotateFlip(RotateFlipType.Rotate90FlipXY)
            Case "Rotate90FlipY"
                destImg.RotateFlip(RotateFlipType.Rotate90FlipY)
            Case "RotateNoneFlipNone"
                destImg.RotateFlip(RotateFlipType.RotateNoneFlipNone)
            Case "RotateNoneFlipX"
                destImg.RotateFlip(RotateFlipType.RotateNoneFlipX)
            Case "RotateNoneFlipXY"
                destImg.RotateFlip(RotateFlipType.RotateNoneFlipXY)
            Case "RotateNoneFlipY"
                destImg.RotateFlip(RotateFlipType.RotateNoneFlipY)
        End Select
        picDest.Image = destImg
    End Sub
 
    '保存图片
    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        picDest.Image.Save("d:\1515.jpg", Imaging.ImageFormat.Jpeg)
    End Sub
 
 
 
 
 
 
 
 
 
 
运行效果：
 
 
 
 
 
 
 
 
 
 
 
由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。
 
学习更多vb.net知识，请参看 vb.net 教程 目录
————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/uruseibest/article/details/72582400

相关教程