Barcode มีการกำหนดค่า ให้มีการ Enter
Private Sub txtbarcode_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBoxBarCode.KeyDown
If e.KeyData = Keys.Enter Then
If Len(TextBoxBarCode.Text) = 15 Then 'เช็คครบ 15 ตัวหรือป่าวถ้าครับส่งค่าไปอีก Form
Form_Asset_Detail.connectionString = myConnectionString
Form_Asset_Detail.TextBox_Code.Text = TextBoxBarCode.Text
Form_Asset_Detail.Show()
Else ' ถ้าไม่ครับให้แจ้งเตือนว่า Code ไม่ถูฏ
MsgBox(" รหัสทรัพย์สินไม่ถูก กรุณาตรวจสอบ")
End If
End If
ไม่มีความคิดเห็น:
แสดงความคิดเห็น