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

扫描的话，参考 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