图片与项目资源

18.1 PictureBox 是什么？

PictureBox 是 Windows Forms 中专门用于显示图片的控件。

18.2 PictureBox.Image

PictureBox 的 Image 属性保存当前显示的图片。

picStudent.Image = My.Resources.StudentPlaceholder

要清除图片：

picStudent.Image = Nothing

18.3 SizeMode：图片如何适应 PictureBox？

例如：

picStudent.SizeMode =
    PictureBoxSizeMode.Zoom

18.4 从图片文件加载

如果已经知道图片路径，可以使用：

Dim imagePath As String =
    txtImagePath.Text.Trim()

picStudent.Image =
    Image.FromFile(imagePath)

但在真正加载前应该先确认文件存在：

If Not File.Exists(imagePath) Then
    MessageBox.Show("找不到图片文件。")
    Exit Sub
End If

因此 Form1 顶部需要：

Imports System.IO

18.5 常见图片文件

Windows Forms 的 Image / Bitmap 可以处理常见位图格式，例如：

18.6 什么是项目 Resources？

项目资源可以把图片、字符串等内容嵌入应用中。对于固定素材，例如 Logo、默认头像和工具栏图标，这通常比依赖外部文件路径更方便。

18.7 把图片加入项目资源

在 Visual Studio 中，可以通过项目的资源管理界面加入图片资源。加入后为图片设一个清楚的资源名称，例如：

StudentPlaceholder

之后即可在代码中使用：

picStudent.Image =
    My.Resources.StudentPlaceholder

18.8 外部文件还是项目资源？

18.9 替换图片时释放旧 Image

如果程序不断从文件加载不同图片，建议在替换前释放旧图片：

If picStudent.Image IsNot Nothing Then
    picStudent.Image.Dispose()
    picStudent.Image = Nothing
End If

然后再加载新图片。

18.10 更稳妥地从文件复制图片

一种更稳妥的做法是先读取图片，再建立独立 Bitmap：

Private Function LoadImageCopy(
    imagePath As String) As Image

    Using sourceImage As Image =
        Image.FromFile(imagePath)

        Return New Bitmap(sourceImage)

    End Using

End Function

调用：

picStudent.Image =
    LoadImageCopy(imagePath)

这样返回的新 Bitmap 不再直接依赖原文件对象。

18.11 实作：学生照片查看器

建立新的 Windows Forms 项目：

StudentPhotoViewer2026

本项目让用户输入学生姓名和图片文件路径，然后加载照片；还可以恢复项目内置的默认头像。

加入以下控件：

先加入默认头像资源

把一张默认头像加入项目 Resources，并命名为：

StudentPlaceholder

Form1.vb 顶部

Imports System.IO

Public Class Form1

图片复制方法

Private Function LoadImageCopy(
    imagePath As String) As Image

    Using sourceImage As Image =
        Image.FromFile(imagePath)

        Return New Bitmap(sourceImage)

    End Using

End Function

释放 PictureBox 旧图片

Private Sub ClearCurrentImage()

    If picStudent.Image IsNot Nothing Then
        picStudent.Image.Dispose()
        picStudent.Image = Nothing
    End If

End Sub

加载图片按钮

Private Sub btnLoadImage_Click(
    sender As Object,
    e As EventArgs) Handles btnLoadImage.Click

    Dim studentName As String =
        txtStudentName.Text.Trim()

    Dim imagePath As String =
        txtImagePath.Text.Trim()

    If String.IsNullOrWhiteSpace(studentName) Then
        MessageBox.Show("请输入学生姓名。")
        txtStudentName.Focus()
        Exit Sub
    End If

    If String.IsNullOrWhiteSpace(imagePath) Then
        MessageBox.Show("请输入图片路径。")
        txtImagePath.Focus()
        Exit Sub
    End If

    If Not File.Exists(imagePath) Then
        MessageBox.Show("找不到图片文件。")
        txtImagePath.Focus()
        Exit Sub
    End If

    ClearCurrentImage()

    picStudent.Image =
        LoadImageCopy(imagePath)

    picStudent.SizeMode =
        PictureBoxSizeMode.Zoom

    lblStatus.Text =
        $"已加载 {studentName} 的照片。"

End Sub

显示默认头像

Private Sub btnDefaultImage_Click(
    sender As Object,
    e As EventArgs) Handles btnDefaultImage.Click

    ClearCurrentImage()

    picStudent.Image =
        New Bitmap(
            My.Resources.StudentPlaceholder)

    picStudent.SizeMode =
        PictureBoxSizeMode.Zoom

    lblStatus.Text =
        "已显示默认头像。"

End Sub

清除按钮

Private Sub btnClear_Click(
    sender As Object,
    e As EventArgs) Handles btnClear.Click

    ClearCurrentImage()

    txtStudentName.Clear()
    txtImagePath.Clear()
    lblStatus.Text = ""

    txtStudentName.Focus()

End Sub

18.12 程序执行流程

18.13 也可以在设计阶段设置 Image

如果图片固定不变，例如顶部 Logo，可以在 Designer 的 PictureBox Image 属性中直接选择项目资源，而不一定需要写代码。

18.14 初学者常见错误

18.15 小练习

1. 把 PictureBox 的 SizeMode 分别改成 Normal、StretchImage、CenterImage、Zoom，比较效果。
2. 加入第二张项目资源图片，例如 CompanyLogo，并显示在另一个 PictureBox。
3. 新增“清除照片”按钮，只清除 PictureBox，不清除姓名。
4. 新增 Label 显示图片原始宽度与高度：picStudent.Image.Width 和 Height。
5. 让默认头像在 Form.Load 时自动出现。
6. 测试加载 JPG 与 PNG，并比较透明背景显示效果。