要实现图片更换功能,可以使用PictureBox控件来显示图片,并用OpenFileDialog控件来选择要更换的图片。以下是一个简单的示例:
示例代码如下:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim openFileDialog1 As New OpenFileDialog()
' 设置可以选择的文件类型
openFileDialog1.Filter = "图片文件|*.jpg;*.jpeg;*.png;*.bmp"
' 如果选择了文件并点击了“确定”按钮
If openFileDialog1.ShowDialog() = DialogResult.OK Then
' 将选择的图片路径赋给PictureBox控件的ImageLocation属性
PictureBox1.ImageLocation = openFileDialog1.FileName
End If
End Sub
这样,当点击Button控件时,会弹出一个文件选择对话框,选择图片后,PictureBox控件会显示选择的图片。