图片管理 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 图片管理

共有6270人关注过本帖树形打印复制链接主题：图片管理

江南小镇

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2020/5/22 22:02:00 [显示全部帖子]

老师好，下面是添加图片按钮代码。

Dim dlg As New OpenFileDialog
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif"
If dlg.ShowDialog = DialogResult.OK Then
    Dim pth As String = ProjectPath & "Attachments\"
    'If dlg.FileName.ToLower.StartsWith(pth.ToLower) Then '如果文件来自Attachments目录
    If FileSys.FileExists(pth & "文件\商品图片\" & FileSys.GetName(dlg.FileName)) Then
        Messagebox.Show("文件已经存在!","提示")
        ' Else
        ' piv.AddFile(dlg.FileName.SubString(pth.Length))
    Else '如果不是
        FileSys.CopyFile(dlg.FileName, pth & "文件\商品图片\" & FileSys.GetName(dlg.FileName))
        piv.AddFile("文件\商品图片\" & FileSys.GetName(dlg.FileName))
        Messagebox.Show("文件不存在或已经被删除!","提示")
    End If
End If

此主题相关图片如下：image 1.png

江南小镇

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2020/5/23 10:01:00 [显示全部帖子]

老师好，上面的添加代码在添加名称相同图片时电击对话框“是”时报错。

.NET Framework 版本：2.0.50727.8669

Foxtable 版本：2017.4.22.1

错误所在事件：窗口,产品图标,Button6,Click

详细错误信息：

文件“I:\设备管理\Attachments\文件\商品图片\1001.jpg”已经存在。

江南小镇

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2020/5/23 12:45:00 [显示全部帖子]

老师，上面代码弹出对话框点击“是”没有反应。

[此贴子已经被作者于2020/5/23 12:51:23编辑过]

江南小镇

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2020/5/23 14:56:00 [显示全部帖子]

老师，双引号屏蔽在可以设置代码。

Return ""

End If

ElseIf Result = DialogResult.cancel Then

Return ""

江南小镇

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2020/5/23 16:02:00 [显示全部帖子]

老师，不好意思问题太多了。下面是扫描的全局代码。

Public Sub LinkLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Dim frm As WinForm.Form = Forms("产品图标")

Dim piv As WinForm.PictureViewer = Forms("产品图标").Controls("PictureViewer1")

Dim imageFile As WIA.imageFile

Dim cdc As New WIA.CommonDialogClass()

Try

imageFile = cdc.ShowAcquireImage(WIA.WiaDeviceType.ScannerDeviceType, WIA.WiaImageIntent.TextIntent, WIA.WiaImageBias.MaximizeQuality, "{00000000-0000-0000-0000-000000000000}", True, True,False)

If imageFile IsNot Nothing Then

Dim path As String = ProjectPath & "Attachments\文件\产品图片" & Format(Date.Now,"yyyyMMddHHmmss") & ".jpg"

imageFile.SaveFile(path)

piv.AddFile(FileSys.GetName(path))

Catch generatedExceptionName As System.Runtime.InteropServices.COMException

MessageBox.Show("您的扫描仪尚未准备好!","错误",MessageBoxButtons.OK,MessageBoxIcon.Error)

End Try

End Sub

在图片管理器添加了扫描按钮在扫描过后桌面弹出提示。

此主题相关图片如下：扫描.png