09-06-19, 11:07 AM
السلام عليكم ورحمة الله وبركاته
لدي برنامج اضافة عليه نظام الباركود
ارجو المساعده في طريقة اضافة السعر والاسم الى ملصق الباركود وهذا الكود
Private Sub cmdCreate_Click()
Dim oNewbarCode As cBarCode
picBarCode.Cls
Set oNewbarCode = New cBarCode
oNewbarCode.BarCode = txtBarCode.Text + Text2.Text
oNewbarCode.hdc = picBarCode.hdc
oNewbarCode.NarrowBarWidth = 0.55
oNewbarCode.BarHeight = 19
oNewbarCode.CreateBarCode
picBarCode.Refresh
Set oNewbarCode = Nothing
End Sub
لدي برنامج اضافة عليه نظام الباركود
ارجو المساعده في طريقة اضافة السعر والاسم الى ملصق الباركود وهذا الكود
Private Sub cmdCreate_Click()
Dim oNewbarCode As cBarCode
picBarCode.Cls
Set oNewbarCode = New cBarCode
oNewbarCode.BarCode = txtBarCode.Text + Text2.Text
oNewbarCode.hdc = picBarCode.hdc
oNewbarCode.NarrowBarWidth = 0.55
oNewbarCode.BarHeight = 19
oNewbarCode.CreateBarCode
picBarCode.Refresh
Set oNewbarCode = Nothing
End Sub