窗体内Image1插入图片的问题

KrystalSteal

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

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

复制代码

jsxjd

Cr.show
If … then …

KrystalSteal

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

谢谢啦   可以了

1. Private Sub Image1_Click()
   
2. Dim cr As FileDialog
   
3. Set cr = Application.FileDialog(msoFileDialogFilePicker)
   
4. With cr
   
5. .ButtonName = "浏览"
   
6. .Title = "请浏览图片文件"
   
7. .AllowMultiSelect = True
   
8. .Filters.Clear
   
9. .Filters.Add "支持的图片文件（*.JPG,*.PNG,*.GIF,*.TIFF,*.JPEG,*.BMP）", "*.JPG,*.PNG,*.GIF,*.TIFF,*.JPEG,*.BMP"
   
10. End With
    
11. If cr.Show = True Then
    
12. Image1.Picture = LoadPicture(cr.SelectedItems(1))
    
13. Image1.PictureSizeMode = fmPictureSizeModeStretch
    
14. End If
    
15. End Sub

复制代码

02761752696

谢谢    分享

古云号

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

jiangjiang211

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

mythqiu

学习了。。。

xlxwd

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

xlxwd

请求赐教！！！