VB程序判断打开图片

追问：真是头脑简单。四肢发达！（猪脑）

答案：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
if picture1.picture=NUll  then
label1.caption =“图片已经打开”

else 
label1.caption =““图片未打开” 
end if
具体的没做过，在此只是说说我的想法，希望能对你有所帮助。
 
不管是图片，还是文本，其实根本还是文件，而文件是可以用很多应用程序去操作的，所以上面说判断ACDSee.exe程是否运行，根本就没粘上边。
 
既然提到了是文档，你可以参考一下“最近打开文档”，研究一下最近打开文档是如何工作的，万一不行，判断最近打开的文档是否为图片，也能得到一些有用的数据的。
 
这个提问的人（不想让你哭），你MMD脑子有问题吧，别人好心好意回答你了，你还骂人，请大家易做图他！
不再回答他的问题！
让他没趣，等他学会了礼貌，再来学习！

上一个：VB如何检测软件更新？
下一个：VB二进制打开JPG文件