以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助 运行外部程序  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113349)
--  作者：jackyfashion
--  发布时间：2018/1/14 12:15:00
--  求助 运行外部程序
老师:
 您好!
以下代码运行外部程序,可以开打外部程序,但不可以打开外部文件,请老师指点!
Dim Proc As New Process
Proc.File = "E:\\欧璐非\\大货纸样\\1610003.prj"
Proc.Start
Proc.WaitForInputIdle() \'等程序自动结束并进入空闲状态
Sendkeys.Send("AndAlso e.Control = True AndAlso e.KeyCode = Keys.0") \'发送按键信息
外部程序是打开了,但1610003.prj文件打不开
没有扩展名为prj的文件所支持的动作
怎样才打的开文件?
请老师指教!
谢谢!!!


[此贴子已经被作者于2018/1/14 13:09:35编辑过]
--  作者：jackyfashion
--  发布时间：2018/1/14 14:27:00
--  
老师:
您好!
我截图后,怎样用代码把图片复制到当前行的图片列
请老师指教!
谢谢!!!
--  作者：有点甜
--  发布时间：2018/1/14 18:02:00
--  
以下是引用jackyfashion在2018/1/14 12:15:00的发言：
 
外部程序是打开了,但1610003.prj文件打不开
没有扩展名为prj的文件所支持的动作


[此贴子已经被作者于2018/1/14 13:09:35编辑过]

 

如果提示这个，说明你电脑上没有安装打开.prj的软件。你需要安装那样的软件，才行的。
--  作者：有点甜
--  发布时间：2018/1/14 18:03:00
--  
以下是引用jackyfashion在2018/1/14 14:27:00的发言：
老师:
您好!
我截图后,怎样用代码把图片复制到当前行的图片列
请老师指教!
谢谢!!!

 

参考代码

 

Dim proc As new Process
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start
If ClipBoard.GetImage IsNot Nothing Then
    ClipBoard.GetImage.save("d:\\test.jpg")
    msgbox("保存到了d盘")
End If
--  作者：jackyfashion
--  发布时间：2018/1/14 21:43:00
--  
谢谢老师!!!