VB程序判断打开图片

VB程序怎样判断电脑是否打开图片类型有：jpg、bmp、gif、还有其他什么格式就不说了。 反正只要判断电脑是否打开图片 成立后将执行下面的语句。 不管我是打开jpg、bmp、gif 或者其他，只要是图片，打开后在VB程序的 label1.caption 显示“图片已经打开” else “图片未打开” 如果用程序打开那就是ACDSee5.exe 这样的话那么在进程里有个 ACDSee5.exe 这样只要判断进程ACDSee5.exe是否存在，如果存在那么图片已 经打开！这个办法我自己知道！可我要的不是这个！ 如果用windows打开，那么进程里根本没有ACDSee.exe 只是在进程的应用程序里显示图片的标题和 后缀名！ 我要的是判断进程是否有后缀名 （jpg、bmp、gif）在运行。或者干脆就判断屏幕是否打开图片更好！因为根本不能确定其他的电脑用什么工具打开图片的，也不知道打开的图片是什么格式！ 所以只有用这样强悍的办法来判断了。求高手给出完整代码！ 我查看了这个图片的宽度210，高度是280 该怎样判断！

Function CheckApplicationIsRun(ByVal szExeFileName As String) As Boolean
On Error GoTo Err
Dim WMI
Dim Obj
Dim Objs
CheckApplicationIsRun = False
Set WMI = GetObject("WinMgmts:")
Set Objs = WMI.InstancesOf("Win32_Process")
For Each Obj In Objs
If InStr(UCase(szExeFileName), UCase(Obj.Description)) <> 0 Then
CheckApplicationIsRun = True
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
Exit Function
End If
Next
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
Exit Function
Err:
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
End Function

Private Sub Command1_Click()
If CheckApplicationIsRun("ACDSee.exe ") = True Then
MsgBox "已经运行了pic程序"
Else
MsgBox "pic程序没有运行"
End If

If CheckApplicationIsRun("ACDSee.exe ") = True Then
MsgBox "已经运行了ACDSee.exe 程序"
Else
MsgBox "ACDSee.exe 程序没有运行"
End If
End Sub

这个提问的人（不想让你哭），你MMD脑子有问题吧，别人好心好意回答你了，你还骂人，请大家抵制他！

不再回答他的问题！

让他没趣，等他学会了礼貌，再来学习！

具体的没做过，在此只是说说我的想法，希望能对你有所帮助。

不管是图片，还是文本，其实根本还是文件，而文件是可以用很多应用程序去操作的，所以上面说判断ACDSee.exe程是否运行，根本就没粘上边。

既然提到了是文档，你可以参考一下“最近打开文档”，研究一下最近打开文档是如何工作的，万一不行，判断最近打开的文档是否为图片，也能得到一些有用的数据的。

if picture1.picture=NUll then

label1.caption =“图片已经打开” else

label1.caption =““图片未打开”

end if

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息