今天学习了一个窗体image控件,发现可以实现客户资料的加载显示功能,目前学到的一个是加载(.jpg)格式类图片,具体我想可以在文件夹中加载一些客户产品图片、客户营业执照、员工照片等强调可视化内容的资料。

  • 显示效果如图:

代码很简单,只有一句话:

1
2
3
4
5
6
7
8
9
10
11
Private Sub TextBox1_Change()

On Error Resume Next

Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & TextBox1.Text & ".jpg")

Image1.PictureSizeMode = fmPictureSizeModeZoom

Exit Sub

End Sub

相关链接

  1. VBA练习七(窗体图片加载)

=================我是分割线=================

欢迎到公众号来唠嗑: