主题：[求助]如何在foxtable应用ID读卡器（已解决）

Public Declare Function idr_read Lib "OUR_IDR.dll" (ByRef pserial As Byte) As Byte '读卡函数声明

Public Declare Function idr_beep Lib "OUR_IDR.dll" (ByVal xms As Long) As Byte

Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

idr_beep(50)

Dim status As Byte

Dim mypiccserial(4) As Byte '卡序列号

status = idr_read(mypiccserial(0))

If status = 0 Then

    MessageBox.Show("操作成功卡号为" + Convert.ToString(mypiccserial(1) * 256 * 256 * 256 + mypiccserial(2) * 256 * 256 + mypiccserial(3) * 256 + mypiccserial(4)))

ElseIf status = 8 Then

    MessageBox.Show("请将卡放在感应区")

ElseIf status = 23 Then

    MessageBox.Show("机器没连上,或驱动程序未安装!")

Else

    MessageBox.Show("异常")

End If

End Sub

Dim ct As New Windows.Forms.Button

ct.Text = "我的按钮"

e.Form.Panel.Controls.Add(ct)

AddHandler ct.Click, AddressOf Button1_Click

如果要求刷卡后，将卡号直接输入到窗口的TextBox1文本框，代码应该如何修改，请各位老师指教，谢谢！！

Public Declare Function idr_read Lib "OUR_IDR.dll" (ByRef pserial As Byte) As Byte '读卡函数声明

Public Declare Function idr_beep Lib "OUR_IDR.dll" (ByVal xms As Long) As Byte '驱动蜂鸣器函数声明

Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

idr_beep(50) '2毫秒*50

Dim status As Byte

Dim mypiccserial(4) As Byte '卡序列号

status = idr_read(mypiccserial(0))

If status = 0 Then

    Dim aa As Integer = (Convert.ToString(mypiccserial(1) * 256 * 256 * 256 + mypiccserial(2) * 256 * 256 + mypiccserial(3) * 256 + mypiccserial(4)))

    Dim bb As Integer = (aa Mod 256 * 256) + (INT(aa /(256 * 256)) Mod 256) * 100000

    MessageBox.Show( Format(bb,"00000000"))

ElseIf status = 8 Then

    MessageBox.Show("请将卡放在感应区")

ElseIf status = 23 Then

    MessageBox.Show("机器没连上,或驱动程序未安装!")

Else

    MessageBox.Show("异常")

End If

End Sub

Dim ct As New Windows.Forms.Button

ct.Text = "我的按钮"

e.Form.Panel.Controls.Add(ct)

AddHandler ct.Click, AddressOf Button1_Click