اصنع بنفسك ادوات ActiveX بسهولة..

1)

افتح مشروع ActiveX جديد و قم برسم شكلين علي الشاشة و ضع ليبل لتكون الاشكال كالتالي:

2)

لتكبير و تصغير الاداه كما تشاء اكتب هذا الكود في UserControl_Resize:

Dim h As Integer, H As Integer
w = UserControl.Width - 120
H = UserControl.Height - 120

Shape1.Width = w
Shape1.Height = H
Shape2.Width = w
Shape2.Height = H
Label1.Top = (H - Label1.Height) / 2
Label1.Width = w

3)

افتح نافذة كود Genral ثم اختر Add Procedure من قائمة Add-Ins ستظهر لك النافذة التالية:

4)

الان سنقو بأنشاء خاصية جديدة لتغيير كلمة Label1..

في خانة Name اكتب title..

في Type اختر Property..

في Scope اختر Puplic...

5)

ستظهر لك هذه الخصائص الجديدة اكتب بها الكود كما يلي:

6)

قم بأنشاء OCX من الاداه باختيار File ثم Make roject1.ocx

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

أخي Bibo2002

الصور لا تظهر أعتقد بسبب أن مسارها محلي

file:///C:/My%20Documents/1.bmp

أرجو أن تحل المشكلة في أقرب وقت حتى نتمكن من تنفيذ المشروع

أخوكم المخلص

A.H.A.M.

الصور ظاهرة لي يا صديقي و علي العموم هذا الملف به الصور المرفقة و اتمني ان تفيدك.. :)

images.zip

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

أخي Bibo2002

أنت يجب أن تظهر عندك الصور لأنه يقرأها من جهازك فلو حذفت مثلاً الصور:

1.BMP

2.BMP

3.BMP

من المستندات لديك لن تظهر الصور لديك كذلك

فعندما وضعت الصور التي أرفقتها في ردك في مستنداتي ظهرت وعندما أزلتها أختفت لأنه لا يقرأها من النت بل من الجهاز.

شكراً لك

وانا أنتظر ردك على موضوع تحويل النص إلى أرقام

أخوكم المخلص

A.H.A.M.

سأكتب لك حل بسيط..

شكراً أخي بيبو 2000