16,554
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.Timer1.Start()
Me.DataMatrixCamera1.UseOrNot = True
Me.DataMatrixCamera1.DataMatrixCamera_Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim strTemp01 As String
strTemp01 = Me.DataMatrixCamera1.getDataMatrix()
If strTemp01 <> "" Then
Me.TextBox1.Text = strTemp01
End If
End Sub