منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : عمل قارىء الباركود
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الاخوة الاعضاء السلام عليكم
كيف يمكن عمل قارئ باركود وعرض النتيجة  في textbox  بواسطة B4A وكذلك ان امكن طريقة نسخ نص ولصقة في مكان اخر من خلال الكود ولكم مني كل الشكر مقدما
وطريقة النسخ الى الحافظة

ااولا استدعاء مكتبة Clipboard

ثم تعريف متغير بالمكتبة Dim txtc As BClipboard

للنسخ كود 
كود :
    txtc .clrText
    txtc .settext("النص المراد نسخه ان كان نص او اداة ضعها هنا بدون تنصيص")
الان النص في الحافظة الصقه في اي مكن

وان اردت الصاقه بالكود 
مثال لالصاقه في صندوق رسائل

كود :
Msgbox(txtc.getText,"")