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

[浏览完整版]

标题：图片上传完成后不显示图片显示红色叉号

1楼

deliangzhaoe 发表于：2025/3/15 19:22:00

做了一个文件管理器模式窗口，窗口中加了图片查看器，图片上传能成功，但是上传后不显示图片内容，显示叉号，双击打开时，显示“此文件不存在”，打开文件存储位置，文件是正常存在的，这是怎么回事？代码应该怎么修改一下。谢谢！
上传按钮的代码如下：

Dim 当前目录 As String = e.Form.Controls("当前目录").text

Dim 刷新 As WinForm.Button = e.Form.Controls("刷新")

Dim curtable As Table = vars("tabc")

Dim curColName As String = curtable.Cols(curtable.ColSel).Name

Dim curCol As DataCol = curtable.DataTable.datacols(curColName)

Dim dr As DataRow = curtable.Current.DataRow

Dim openFilter As String = ""

Dim tpBl As Boolean = False

' 判断是否是图片列

If curCol.ExtendType = ExtendTypeEnum.Images Then

openFilter = "文件|*.jpeg;*.bmp;*.jpg;*.png;*.gif"

tpBl = True

Else

openFilter = "所有文件|*.*"

End If

Dim dlg As New OpenFileDialog ' 定义一个新的OpenFileDialog

dlg.Filter = openFilter ' 设置筛选器

dlg.MultiSelect = True

If dlg.ShowDialog = DialogResult.OK Then ' 如果用户单击了确定按钮

Dim upOk As New List(Of String)

Dim upNok As New List(Of String)

Dim result As New List(Of String)

For Each fl As String In dlg.FileNames

Dim fl2 As String = fl

If tpBl Then

' 压缩图片

fl2 = Functions.Execute("压缩图片", fl, 350)

If fl2 Is Nothing Then Continue For

End If

Dim flname As String = FileSys.GetName(fl2)

Dim 目标路径 As String = 当前目录 & "\" & flname

' 将文件复制到本地目录

Try

FileSys.CopyFile(fl2, 目标路径, True)

upOk.Add("上传成功: " & flname)

result.Add(目标路径)

Catch ex As Exception

upNok.Add("上传失败: " & flname)

Dim tishi As String = String.Join(vbCrLf, upNok.ToArray)

MessageBox.Show(tishi) ' 新增的,上传失败必须提示

End Try

' 删除压缩后的临时文件

If tpBl Then

FileSys.DeleteFile(fl2)

End If

' 把成功的添加到记录里面

For Each s As String In dr.Lines(curColName)

If result.Contains(s) Then Continue For

result.Add(s)

dr.Lines(curColName) = result

刷新.PerformClick()

End If

文件管理器窗口如图：

此主题相关图片如下：微信截图_20250315191944.png

双击打开文件时报错：

此主题相关图片如下：微信截图_20250315191957.png

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