VB中如何用命令修改图片的属性与显示内容？

在Visual Basic（VB.NET）中，通过命令操作图片主要依赖System.Drawing命名空间中的类（如Bitmap、Graphics、Image等），结合控件（如PictureBox）和文件对话框实现图片的加载、修改与保存，以下是详细操作步骤及代码示例,涵盖常见图片修改需求。

准备工作：添加必要控件与引用

在窗体（Form）中添加以下控件，用于交互操作：

• PictureBox：用于显示和预览图片。
• Button（如“加载图片”“修改图片”“保存图片”）：触发操作命令。
• OpenFileDialog：选择图片文件。
• SaveFileDialog：保存修改后的图片。

在代码开头引入System.Drawing命名空间：

Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.IO

核心操作步骤及代码实现

加载图片到PictureBox

通过OpenFileDialog选择图片文件，并加载到PictureBox和Bitmap对象中（Bitmap用于后续像素级修改）。

Private Sub btnLoadImage_Click(sender As Object, e As EventArgs) Handles btnLoadImage.Click
    Using openFileDialog As New OpenFileDialog()
        openFileDialog.Filter = "图片文件|*.jpg;*.jpeg;*.png;*.bmp|所有文件|*.*"
        If openFileDialog.ShowDialog() = DialogResult.OK Then
            Dim filePath As String = openFileDialog.FileName
            ' 加载到PictureBox
            PictureBox1.Image = Image.FromFile(filePath)
            ' 保存为Bitmap对象（后续修改用）
            Dim originalBitmap As New Bitmap(filePath)
            ' 可将originalBitmap存储为窗体级变量，供其他方法调用
            Me.currentBitmap = originalBitmap
        End If
    End Using
End Sub

修改图片属性（大小、亮度、对比度等）

图片修改的核心是通过Graphics类绘制图片，或直接操作Bitmap的像素数据,以下是常见修改场景的代码示例：

（1）调整图片大小

使用Graphics.DrawImage方法，结合目标尺寸和高质量插值模式，避免缩放导致的模糊。

Private Sub btnResize_Click(sender As Object, e As EventArgs) Handles btnResize.Click
    If currentBitmap Is Nothing Then Exit Sub
    Dim newWidth As Integer = 800 ' 目标宽度
    Dim newHeight As Integer = 600 ' 目标高度
    ' 创建新Bitmap对象存储调整后的图片
    Dim resizedBitmap As New Bitmap(newWidth, newHeight)
    Using g As Graphics = Graphics.FromImage(resizedBitmap)
        ' 设置高质量缩放模式
        g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
        g.DrawImage(currentBitmap, 0, 0, newWidth, newHeight)
    End Using
    ' 更新PictureBox和当前Bitmap
    PictureBox1.Image = resizedBitmap
    Me.currentBitmap = resizedBitmap
End Sub

（2）调整图片亮度与对比度

通过遍历Bitmap的每个像素，修改RGB值实现亮度/对比度调整。

Private Sub btnAdjustBrightnessContrast_Click(sender As Object, e As EventArgs) Handles btnAdjustBrightnessContrast.Click
    If currentBitmap Is Nothing Then Exit Sub
    Dim brightness As Integer = 30 ' 亮度调整值（-255~255，正数变亮）
    Dim contrast As Single = 1.5f ' 对比度系数（>1增强，<1减弱）
    Dim adjustedBitmap As New Bitmap(currentBitmap)
    For x As Integer = 0 To adjustedBitmap.Width - 1
        For y As Integer = 0 To adjustedBitmap.Height - 1
            Dim pixel As Color = adjustedBitmap.GetPixel(x, y)
            ' 调整亮度：RGB值加上brightness（限制在0-255）
            Dim r As Integer = Math.Max(0, Math.Min(255, pixel.R + brightness))
            Dim g As Integer = Math.Max(0, Math.Min(255, pixel.G + brightness))
            Dim b As Integer = Math.Max(0, Math.Min(255, pixel.B + brightness))
            ' 调整对比度：(RGB-128)*contrast + 128
            r = CInt(Math.Max(0, Math.Min(255, (r - 128) * contrast + 128)))
            g = CInt(Math.Max(0, Math.Min(255, (g - 128) * contrast + 128)))
            b = CInt(Math.Max(0, Math.Min(255, (b - 128) * contrast + 128)))
            adjustedBitmap.SetPixel(x, y, Color.FromArgb(r, g, b))
        Next
    Next
    PictureBox1.Image = adjustedBitmap
    Me.currentBitmap = adjustedBitmap
End Sub

（3）图片旋转与翻转

使用Graphics的变换方法（如RotateTransform、ScaleTransform）实现旋转或翻转。

Private Sub btnRotate_Click(sender As Object, e As EventArgs) Handles btnRotate.Click
    If currentBitmap Is Nothing Then Exit Sub
    Dim angle As Single = 90 ' 旋转角度（90度顺时针）
    Dim rotatedBitmap As New Bitmap(currentBitmap.Width, currentBitmap.Height)
    Using g As Graphics = Graphics.FromImage(rotatedBitmap)
        g.TranslateTransform(currentBitmap.Width / 2, currentBitmap.Height / 2)
        g.RotateTransform(angle)
        g.TranslateTransform(-currentBitmap.Width / 2, -currentBitmap.Height / 2)
        g.DrawImage(currentBitmap, 0, 0)
    End Using
    PictureBox1.Image = rotatedBitmap
    Me.currentBitmap = rotatedBitmap
End Sub
Private Sub btnFlipHorizontal_Click(sender As Object, e As EventArgs) Handles btnFlipHorizontal.Click
    If currentBitmap Is Nothing Then Exit Sub
    Dim flippedBitmap As New Bitmap(currentBitmap.Width, currentBitmap.Height)
    Using g As Graphics = Graphics.FromImage(flippedBitmap)
        g.ScaleTransform(-1, 1) ' 水平翻转（X轴缩放-1）
        g.DrawImage(currentBitmap, -currentBitmap.Width, 0)
    End Using
    PictureBox1.Image = flippedBitmap
    Me.currentBitmap = flippedBitmap
End Sub

保存修改后的图片

通过SaveFileDialog选择保存路径和格式（JPEG、PNG、BMP等），调用Bitmap.Save方法保存。

Private Sub btnSaveImage_Click(sender As Object, e As EventArgs) Handles btnSaveImage.Click
    If currentBitmap Is Nothing Then Exit Sub
    Using saveFileDialog As New SaveFileDialog()
        saveFileDialog.Filter = "JPEG图片|*.jpg|PNG图片|*.png|BMP图片|*.bmp"
        If saveFileDialog.ShowDialog() = DialogResult.OK Then
            Dim filePath As String = saveFileDialog.FileName
            ' 根据文件扩展名选择格式
            Select Case Path.GetExtension(filePath).ToLower()
                Case ".jpg", ".jpeg"
                    currentBitmap.Save(filePath, ImageFormat.Jpeg)
                Case ".png"
                    currentBitmap.Save(filePath, ImageFormat.Png)
                Case ".bmp"
                    currentBitmap.Save(filePath, ImageFormat.Bmp)
            End Select
            MessageBox.Show("图片保存成功！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Using
End Sub

常用控件属性与方法参考

以下是操作图片时常用的PictureBox属性和Graphics方法，便于快速查阅：

表1：PictureBox常用属性

表2：Graphics常用方法

相关问答FAQs

问题1：VB.NET中如何批量处理文件夹中的所有图片进行修改？

解答：可通过Directory.GetFiles获取文件夹中所有图片文件，循环加载并修改，再保存到目标文件夹，示例代码：

Private Sub BatchProcessImages()
    Dim inputFolder As String = "C:InputImages" ' 输入文件夹路径
    Dim outputFolder As String = "C:OutputImages" ' 输出文件夹路径
    Directory.CreateDirectory(outputFolder) ' 创建输出文件夹
    Dim imageFiles As String() = Directory.GetFiles(inputFolder, "*.jpg") ' 获取所有JPG文件
    For Each filePath As String In imageFiles
        Dim originalBitmap As New Bitmap(filePath)
        ' 示例：批量调整大小
        Dim resizedBitmap As New Bitmap(800, 600)
        Using g As Graphics = Graphics.FromImage(resizedBitmap)
            g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
            g.DrawImage(originalBitmap, 0, 0, 800, 600)
        End Using
        ' 保存到输出文件夹（保留原文件名）
        Dim outputFileName As String = Path.GetFileName(filePath)
        resizedBitmap.Save(Path.Combine(outputFolder, outputFileName), ImageFormat.Jpeg)
    Next
    MessageBox.Show("批量处理完成！")
End Sub

问题2：如何修改图片并保存为透明背景的PNG？

解答：需确保原图具有Alpha通道（如PNG格式），修改时保留透明像素，保存时指定ImageFormat.Png，示例代码：

Private Sub SaveWithTransparency()
    If currentBitmap Is Nothing Then Exit Sub
    ' 创建支持透明的新Bitmap
    Dim transparentBitmap As New Bitmap(currentBitmap.Width, currentBitmap.Height, PixelFormat.Format32bppArgb)
    ' 复制原图并保留透明通道
    Using g As Graphics = Graphics.FromImage(transparentBitmap)
        g.DrawImage(currentBitmap, 0, 0)
    End Using
    ' 保存为PNG（自动保留透明背景）
    Using saveFileDialog As New SaveFileDialog()
        saveFileDialog.Filter = "PNG图片|*.png"
        If saveFileDialog.ShowDialog() = DialogResult.OK Then
            transparentBitmap.Save(saveFileDialog.FileName, ImageFormat.Png)
            MessageBox.Show("透明背景图片保存成功！")
        End If
    End Using
End Sub

通过以上步骤和代码，可实现VB.NET中图片的加载、属性修改（大小、亮度、对比度、旋转等）及保存功能，满足基本的图片处理需求，实际应用中可根据需要扩展更多高级功能（如滤镜、裁剪等）。