Foxtable(狐表)用户栏目专家坐堂 → [求助]扫描


  共有6191人关注过本帖树形打印复制链接

主题:[求助]扫描

帅哥哟,离线,有人找我吗?
江南小镇
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
[求助]扫描  发帖心情 Post By:2018/2/24 11:36:00 [显示全部帖子]

老师新年好

图片点击可在新窗口打开查看此主题相关图片如下:图像 1.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2018/2/24 11:57:00 [显示全部帖子]

老师,是人家的项目没有修改过,dll引用了。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:图片管理器.rar

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2018/2/24 12:37:00 [显示全部帖子]

老师,我购买的狐表软件已无法更新了,如要更新更高的版本要多少钱。

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2018/2/24 20:58:00 [显示全部帖子]

以下是引用有点蓝在2018/2/24 12:29:00的发言:
原来的代码不严谨,电脑没有摄像头,或者无法识别就会有问题
 下载信息  [文件大小:106.9 KB  下载次数:7]
图片点击可在新窗口打开查看点击浏览该文件:图片管理器加入拍照扫描.zip

老师,你给我的项目版本过高我无法打开,我想过段时间升级。望老师发给低版本的项目。


 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2018/2/26 10:31:00 [显示全部帖子]

老师好

 

 


图片点击可在新窗口打开查看此主题相关图片如下:图像 1.png
图片点击可在新窗口打开查看

 

下面是窗口代码

 

 

If _Cams Is Nothing OrElse _CamList.Count = 1 Then
    msgbox("没有摄像头,或者无法识别摄像头")
    Return
End If
Dim lbl As New Windows.Forms.LinkLabel
lbl.Text = "拍照"
lbl.width = 30
lbl.ForeColor = Color.Blue
lbl.Font = New Font("宋体",9,FontStyle.Underline)
Dim obj As object = e.Form.Controls("PictureViewer1").basecontrol.Controls(0)
obj.panel2.controls("FlowLayoutPanel2").Controls.Add(lbl)

AddHandler lbl.Click, AddressOf LinkLabel_Click

 

Dim lbl1 As New Windows.Forms.LinkLabel
lbl1.Text = "扫描"
lbl1.width = 30
lbl1.ForeColor = Color.Blue
lbl1.Font = New Font("宋体",9,FontStyle.Underline)
Dim obj1 As object = e.Form.Controls("PictureViewer1").basecontrol.Controls(0)
obj1.panel2.controls("FlowLayoutPanel2").Controls.Add(lbl1)

AddHandler lbl1.Click, AddressOf LinkLabel1_Click

 

Dim lbl2 As New Windows.Forms.LinkLabel
lbl2.Text = "左转90"
lbl2.width = 45
lbl2.ForeColor = Color.Blue
lbl2.Font = New Font("宋体",9,FontStyle.Underline)
Dim obj2 As object = e.Form.Controls("PictureViewer1").basecontrol.Controls(0)
obj2.panel2.controls("FlowLayoutPanel2").Controls.Add(lbl2)

AddHandler lbl2.Click, AddressOf LinkLabel2_Click

Dim lbl3 As New Windows.Forms.LinkLabel
lbl3.Text = "右转90"
lbl3.width = 45
lbl3.ForeColor = Color.Blue
lbl3.Font = New Font("宋体",9,FontStyle.Underline)
Dim obj3 As object = e.Form.Controls("PictureViewer1").basecontrol.Controls(0)
obj3.panel2.controls("FlowLayoutPanel2").Controls.Add(lbl3)

AddHandler lbl3.Click, AddressOf LinkLabel3_Click

'打印
Dim lbl4 As New Windows.Forms.LinkLabel
lbl4.Text = "打印"
lbl4.width = 30
lbl4.ForeColor = Color.Blue
lbl4.Font = New Font("宋体",9,FontStyle.Underline)
Dim obj4 As object = e.Form.Controls("PictureViewer1").basecontrol.Controls(0)
obj4.panel2.controls("FlowLayoutPanel2").Controls.Add(lbl4)

AddHandler lbl4.Click, AddressOf LinkLabel4_Click


 


 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2018/2/26 22:40:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:图像 1.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2018/2/28 13:24:00 [显示全部帖子]

老师好,设置下面代码报错。


图片点击可在新窗口打开查看此主题相关图片如下:图像 1.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/2/28 13:40:14编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2018/2/28 15:35:00 [显示全部帖子]

老师,代码重新设置后还是这样。


.NET Framework 版本:2.0.50727.3655
Foxtable 版本:2017.4.22.1
错误所在事件:窗口,窗口1,AfterLoad
详细错误信息:
未找到类型“PictureBox”的公共成员“imgae”。


Dim str As String = projectpath & "attachments/abc.jpg"
e.form.controls("Picturebox1").imgae.save(str)
Tables("表A").Current("第一列") = "abc.jpg"

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2018/2/28 18:37:00 [显示全部帖子]

老师,哪里设置错误了。


.NET Framework 版本:2.0.50727.3655
Foxtable 版本:2017.4.22.1
错误所在事件:窗口,窗口1,AfterLoad
详细错误信息:
未设置对象变量或 With 块变量。


 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2018/2/28 22:48:00 [显示全部帖子]

老师,扫描后能赋值给PictureViewer1控件吗,如果能下面代码怎样修改。



Dim scanner As new TwainGui.MainFrame(ProjectPath & "test.bmp")
scanner.Showdialog
'e.Form.Controls("PictureBox1").Image = getimage(ProjectPath & "test.bmp")

e.Form.Controls("PictureViewer1").Image = getimage(ProjectPath & "test.bmp")

 回到顶部
总数 23 1 2 3 下一页