- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于调用摄像头和扫描仪 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63602)
-- 发布时间：2015/1/24 14:35:00
-- 关于调用摄像头和扫描仪
请问如何调用摄像头和扫描仪？调用后在窗口上预览、拍照、保存照片等。代码怎么写？请指点，谢谢！
-- 发布时间：2015/1/24 14:43:00
--
扫描仪不用对接,监控扫描文件存放的文件夹即可
-- 发布时间：2015/1/27 10:23:00
--
拍照的功能能够实现了，多谢指点！
在您给的功能里，保存文件可以通过手工改变文件名实现，但是对于操作人员来说，很容易出错，或不规范，不利于数据向sql数据库中上传操作。我的想法是保存一张图片后，文件名自动加后缀01、02、03等，这样文件名就是cam.jpg、cam01.jpg、cam02.jpg、cam03.jpg等。
-- 发布时间：2015/1/27 10:25:00
--
监控文件夹,出现新文件就一张张复制过去并且重命名.
-- 发布时间：2015/1/27 10:36:00
--
那样操作挺麻烦的，而且也容易出错呀！
-- 发布时间：2015/1/27 10:38:00
--
以下是引用starshowercn在2015-1-27 10:36:00的发言：
那样操作挺麻烦的，而且也容易出错呀！
那样操作挺麻烦的，而且也容易出错呀！
关键保存按钮不是你去控制的么？为什么不能加入后缀？
-- 发布时间：2015/1/27 10:45:00
--
以下是引用有点甜在2015-1-27 10:38:00的发言：
关键保存按钮不是你去控制的么？为什么不能加入后缀？
是的，但是我想用保存代码自动去实现文件名加后缀
-- 发布时间：2015/1/27 10:46:00
--
不会写代码，我是小白
-- 发布时间：2015/1/27 10:54:00
--
Dim max As Integer = 0
For Each f As String In FileSys.GetFiles("d:\\")
f = FileSys.GetName(f)
If f Like "*cam*" Then
Dim idx As Integer = f.LastIndexOf(".")
idx = f.SubString(3, f.Length - idx - 1)
If idx > max Then
max = idx
End If
End If
Next
msgbox("目前最大后缀" & max)
-- 发布时间：2015/1/27 10:55:00
--
好的，谢谢！我试试。