主题：[求助]扫描

老师新年好

有引用dll了吗？实例发上来

原来的代码不严谨，电脑没有摄像头，或者无法识别就会有问题

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

请联系客服QQ：800014337

 

换一台电脑（或者重装系统），下载最新版的试用版，可以打开程序测试。

 

扫描的话，参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=105909&skin=0

 

老师好

 

 

此主题相关图片如下：图像 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

 

看看

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=92116&skin=0