窗体内Image1插入图片的问题

KrystalSteal · 发表于 2013-9-1 14:25

本帖最后由 KrystalSteal 于 2013-9-1 14:26 编辑

在窗体内有Image1控件，需要点击一下就可以弹出浏览图片文件的对话框，要求当前Image1控件显示所选图片，代码到此处不会了，请老师们补充下

Private Sub Image1_Click()
Dim cr As FileDialog
Set cr = Application.FileDialog(msoFileDialogFilePicker)
With cr
.ButtonName = "浏览"
.Title = "请浏览图片文件"
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "支持的图片文件（*.JPG,*.PNG,*.GIF,*.TIFF,*.JPEG,*.BMP）", "*.JPG,*.PNG,*.GIF,*.TIFF,*.JPEG,*.BMP"
End With

复制代码

jsxjd · 发表于 2013-9-1 14:33

Cr.show
If … then …

KrystalSteal · 发表于 2013-9-1 14:54

jsxjd 发表于 2013-9-1 14:33
Cr.show
If … then …

谢谢啦可以了

Private Sub Image1_Click()
Dim cr As FileDialog
Set cr = Application.FileDialog(msoFileDialogFilePicker)
With cr
.ButtonName = "浏览"
.Title = "请浏览图片文件"
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "支持的图片文件（*.JPG,*.PNG,*.GIF,*.TIFF,*.JPEG,*.BMP）", "*.JPG,*.PNG,*.GIF,*.TIFF,*.JPEG,*.BMP"
End With
If cr.Show = True Then
Image1.Picture = LoadPicture(cr.SelectedItems(1))
Image1.PictureSizeMode = fmPictureSizeModeStretch
End If
End Sub

复制代码

02761752696 · 发表于 2017-8-24 18:43

谢谢分享

古云号 · 发表于 2019-7-20 00:42

我怎么按照这个代码图片无法到图像控件内呢？

jiangjiang211 · 发表于 2021-3-20 11:29

也可以用getopenfilename命令
strFile = Application.GetOpenFilename
If strfile = False Then Exit Sub
Me.Image1.Picture = LoadPicture(strfile)

mythqiu · 发表于 2023-8-11 06:47

学习了。。。

xlxwd · 发表于 2024-7-3 10:24

按上面的代码，把代码放窗体初始化，可正常显示，但放窗体的命令按钮就不能正常显示，且LoadPicture返回的是一串数字

xlxwd · 发表于 2024-7-3 10:25

请求赐教！！！

		自动登录	找回密码
密码			免费注册

[求助] 窗体内Image1插入图片的问题