怎样使对话框(“打开”对话框)只显示扩展名为为gif,jpg的文件,且单击他的确定按钮后,image1的Picture属性变成对话框选中的图片?
Private Sub Picture1_Click()
With CommonDialog1
.Filter = "支持的图片格式|*.gif;*.jpg"
.ShowOpen
If .FileName <> "" Then Picture1.Picture = LoadPicture(.FileName)
End With
End Sub