老师,下面代码能添加打开图片文件的代码吗?
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