以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]文件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=190085)

--  作者:江南小镇
--  发布时间:2024/1/15 19:00:00
--  [求助]文件
老师,下面代码能添加打开图片文件的代码吗?

If GetConfigValue("文件夹路径1","") = "" Then
    MessageBox.Show("请先指定存储路径!","提醒")
    Return
End If

If Tables("文件管理").Current.isnull("文件") = True Then  \'若未存储文件名
    MessageBox.Show("未上传文件!","提醒")
    Return
End If

If e.Form.Controls("文件名").text = "文件已被删除!" Then
    Tables("文件管理").Current("文件") = Nothing
    e.Form.Controls("文件名").text = "未上传文件!"
    e.Form.Controls("PictureBox1").image = getimage("other.png")
    Return
End If


msgbox(e.Form.Controls("路径").text)
msgbox(e.Form.Controls("文件名").text)
Dim proc As new Process
proc.File = e.Form.Controls("路径").text & "\\" & Tables("文件管理").Current("文件")
proc.Start

--  作者:有点蓝
--  发布时间:2024/1/15 20:18:00
--  
最后3行就是打开文件的代码,有啥问题?
--  作者:江南小镇
--  发布时间:2024/1/16 12:34:00
--  
老师好,图片打不开。
--  作者:有点蓝
--  发布时间:2024/1/16 13:30:00
--  
提示什么错误?
--  作者:江南小镇
--  发布时间:2024/1/16 14:44:00
--  
老师,其他文件能打开,就图片文件打不开。


.NET Framework 版本:2.0.50727.9174
Foxtable 版本:2017.4.22.1
错误所在事件:
详细错误信息:
系统找不到指定的文件。

--  作者:有点蓝
--  发布时间:2024/1/16 14:54:00
--  
说明合成的路径不正确,不存在这个文件

msgbox(e.Form.Controls("路径").text & "\\" & Tables("文件管理").Current("文件"))


--  作者:江南小镇
--  发布时间:2024/1/16 19:42:00
--  
老师,打开图片找不到应用程序。


错误所在事件:
详细错误信息:
找不到应用程序

--  作者:有点蓝
--  发布时间:2024/1/16 20:07:00
--  
什么扩展名的文件?电脑没有安装默认打开这种类型文件的程序
--  作者:江南小镇
--  发布时间:2024/1/16 20:35:00
--  
jpg
--  作者:有点蓝
--  发布时间:2024/1/16 20:37:00
--  
电脑的文件关联有问题,或者没有设置默认打开jpg文件的程序