用VB打开一幅图片的问题

来源：百度知道 编辑：UC知道 时间：2024/05/16 11:44:24
commondialog1.action=1
image1.picture=loadpicture(commondialog1.filename)

这样打开图片文件，若用户选择一个视频文件或者非图片文件时，程序会出错，
如果想通过编写代码，实现：若打开图片，则程序正常执行，若打开非图片文件，程序提示“请打开图片文件”，应该如何编写？
请注意我的问题，我是问：如何实现档打开非图片文件时，系统弹出：请打开图片类型文件

在commondialog的filter属性中设置过滤类型如：txt|*.txt
这样就只能查看txt的文件。
jpg bmp 自己添加吧。这样就不怕打开非图片文件了。

你不觉得你的补充是多余吗？如果已经过滤掉那些非图片文件 那样的界面不是更友好吗？非得让一些不懂的用户 一个个点选文件 一遍遍弹出警告对话框 让人烦。 才甘心吗？ 你非这样也办法。。告诉你一个比较简单的方法。

捕捉错误信息
Private Sub Command1_Click()
On Error Resume Next
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)
If Err.Number = 481 Then
MsgBox "请选择图片文件"
Err.Clear
End If
Resume
End Sub

commondialog1.Action = 1
a = False
IF (~~~~~~~"这里用一个FOR循环来判断一个文件的后缀名是否和你的文件后缀名相符，如果相符) THEN
a = True
End If
If a = True Then
image1.Picture = LoadPicture(commondialog1.FileName)
Else
MsgBox ("请选择正确格式的图片文件")
End
End If

Me.CommonDialog1.Filter = "*.jpg|*.jpg|位图文件|*.bmp"
Me.CommonDialog1.ShowOpen

Dim i As Integer, S As String, merr As Integer
commondialog1.Action = 1
CommonDialog1