- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]扫描图片 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150274)
-- 发布时间：2020/5/25 18:19:00
-- [求助]扫描图片
老师，扫描获得的图片能重命名吗？
此主题相关图片如下：图片重命名.png
-- 发布时间：2020/5/25 18:20:00
-- 回复：（江南小镇）[求助]扫描图片
组合名称 加一个时间戳就不会重名了
-- 发布时间：2020/5/25 18:39:00
--
老师，不会搞啊！
-- 发布时间：2020/5/25 20:32:00
--
保存的代码应该在全局代码或者自定义函数里。
-- 发布时间：2020/5/26 8:13:00
--
老师好，把图片扫描到"Attachments"子文件夹中“商品图标"文件夹后在图片管理器中图片无法浏览。
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\\商品图标\\sm" & Format(Date.Now,"yyyyMMddHHmmss") & ".jpg"
imageFile.SaveFile(path)
piv.AddFile(FileSys.GetName(path))
End If
Catch generatedExceptionName As System.Runtime.InteropServices.COMException
MessageBox.Show("您的扫描仪尚未准备好!","错误",MessageBoxButtons.OK,MessageBoxIcon.Error)
End Try
End Sub
-- 发布时间：2020/5/26 8:43:00
--
piv.AddFile(“商品图标\\” & FileSys.GetName(path))
-- 发布时间：2020/5/26 9:14:00
--
此主题相关图片如下：image 3.png
[此贴子已经被作者于2020/5/26 9:15:45编辑过]
-- 发布时间：2020/5/26 9:37:00
--
谢谢老师，好了。
-- 发布时间：2020/5/26 9:40:00
--
关闭退出项目，删除项目所在的文件夹里的bin目录，然后重启项目试试。
-- 发布时间：2020/5/26 9:56:00
--
老师，下面的文件要进行外部引用吗？
DShowNET.dll
DirectX.Capture.dll