共10 条记录, 每页显示 10 条, 页签: [1]

[浏览完整版]

标题：[求助]文件

1楼

江南小镇 发表于：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

2楼

有点蓝 发表于：2024/1/15 20:18:00

最后3行就是打开文件的代码，有啥问题？

3楼

江南小镇 发表于：2024/1/16 12:34:00

老师好，图片打不开。

4楼

有点蓝 发表于：2024/1/16 13:30:00

提示什么错误？

5楼

江南小镇 发表于：2024/1/16 14:44:00

老师，其他文件能打开，就图片文件打不开。

.NET Framework 版本：2.0.50727.9174

Foxtable 版本：2017.4.22.1

错误所在事件：

详细错误信息：

系统找不到指定的文件。

6楼

有点蓝 发表于：2024/1/16 14:54:00

说明合成的路径不正确，不存在这个文件

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

7楼

江南小镇 发表于：2024/1/16 19:42:00

老师，打开图片找不到应用程序。

错误所在事件：

详细错误信息：

找不到应用程序

8楼

有点蓝 发表于：2024/1/16 20:07:00

什么扩展名的文件？电脑没有安装默认打开这种类型文件的程序

9楼

江南小镇 发表于：2024/1/16 20:35:00

jpg

10楼

有点蓝 发表于：2024/1/16 20:37:00

电脑的文件关联有问题，或者没有设置默认打开jpg文件的程序

共10 条记录, 每页显示 10 条, 页签: [1]