16-03-21, 01:21 AM
اجعل الباركود مكون من التالى
كود الصنف
و كود كارت الصنف
و العام الحالى
و يتم تنفيذ ذلك من داخل الكود بكل سهوله
txtTemp.Text = txtCode.Text & cmbCode.Text & Now.Date.DayOfWeek & Now.Date.DayOfYear & My.Computer.Clock.LocalTime.Year "
If txtTemp.TextLength > 9 Then
Dim i As Integer = 9 - txtTemp.TextLength
txtBarcode.Text = Mid(txtTemp.Text, 1, 9)
End If
كود الصنف
و كود كارت الصنف
و العام الحالى
و يتم تنفيذ ذلك من داخل الكود بكل سهوله
txtTemp.Text = txtCode.Text & cmbCode.Text & Now.Date.DayOfWeek & Now.Date.DayOfYear & My.Computer.Clock.LocalTime.Year "
If txtTemp.TextLength > 9 Then
Dim i As Integer = 9 - txtTemp.TextLength
txtBarcode.Text = Mid(txtTemp.Text, 1, 9)
End If
