اخوتى واحبتى فى الله
طرحت ببالى فكره وهى تكوين مكتبه من الادوات تساعد الاخوه على تصنيع واضافات لبعض برامجهم وعلى الفور جمعت اكثر الادوات استخداما ولكنى لم استطيع ان احصى كل الادوات ولذلك يجب على الاخوه كل من عنده اداه مفيده يضعها فى الموضوع
بسم الله نبدأ
اسم الأداة: Gig89 1.0 .. حجمها: 44 ك ب.
وظيفتــــها: لعرض ملف من نوع Animation Gif.
طريقة الاستخدام: كل ما عليك هو إدراج الأداة في الفورم ... ثم بعدها قم بوضع ملف الـ gif الذي تريد تشغيله، في خاصية الـ FileName، سواء في مرحلة التصميم، أو في مرحلة التنفيذ، من خلال الكود التالي:
كود
Gif89a1.FileName = "هنا ضع مسار الملف كاملاً"
حمل الاداه
طبعا كليك يمين و save target as
اسم الأداة: HyperLink .. حجمها: 44 ك ب.
وظيفتهـــا: لإضافة وصلة تشعبية لموقع إنترنت، أو لبريد إليكتروني.
طريقة الاستخدام: يمكن استخدام هذه الأداة سواء في مرحلة التصميم أو التنفيذ، وكل ما سنحتاجه هو الخاصيتين:
LinkType وهي خاصة بتحديد ما إذا كانت الوصلة عبارة عن موقع (= 0) أو بريد إليكتروني (= 1).
LinkText وتقوم بتحديد اسم الوصلة التي تود إضافتها، والكود التالي يوضح الأمر:
Hlink1.LinkType = 0
Hlink1.LinkText = "www.3asfh.com/vb"
Hlink2.LinkType = 1
Hlink2.LinkText = "drsasa1@hotmail.com"
حمل الاداه
اسم الأداة: VB6LinkLabel .. حجمها: 40 ك ب.
وظيفتهــــا: نفس وظيفة الأداة السابقة وهي إضافة وصلة تشعبية لكن لموقع إنترنت فقط.
طريقة الاستخدام: يمكن استخدام هذه الأداة في مرحلة التصميم والتنفيذ .. فقط قم بتغيير الخاصية Caption إلى اسم الموقع الذي تريده.
حمل الاداه
اسم الأداة: 3d Label 1.0 .. حجمها: 40 ك ب.
وظيفتهــــا: لإضافة ظل للنص.
طريقة الاستخدام: هذه الأداة بسيطة جداً، كل ما يجب عليك عمله هو تغيير الخاصية ShadowColor إلى اللون الذي تريده لتظليل النص.
حمل الاداه
اسم الأداة: Controler .. حجم الأداة: 48 ك ب.
وظيفتهــــا: وتقوم بالتحكم في بعض خصائص الويندوز، وهي: فتح السيدي روم وإغلاقه، إخفاء سطح المكتب وإظهاره، إخفاء الأيقونات وإظهارها، إخفاء زر إبدأ وإظهاره، إخفاء شريط الساعة وإظهاره، إخفاء شريط المهام وإظهاره.
طريقة الاستخدام: لا يوجد أسهل من استخدام هذه الأداة، كل ما عليك هو اختيار الخاصية، وتمرير القيمة True إليها، على سبيل المثال الكود التالي يقوم بفتح السيدي روم:
Controler11.OpenCDROM = True
Controler11.CloseCDROM = True
حمل الاداه
اسم الأداة: Mouse_Events .. حجمها: 28 ك ب.
وظيفتهــــا: تقوم هذه الأداة بالتحكم في مؤشر الماوس وأحداثه، مثل نقله إلى مكان معين، أو تنفيذ حدث الضغط على الزر الأيمن أو الأيسر ...
طريقة الاستخدام: يمكن استخدام هذه الأداة في مرحلة التنفيذ، واستخدامها سهل جداً فقط قم بكتابة اسم الخاصية التي تريد تنفيذها، على سبيل المثال:
Mouse1.****Click
Mouse1.RightClick
حمل الاداه
اسم الأداة: Acrobat Control .. حجمها: 376 ك ب.
وظيفتــــها: لعرض ملف في صيغة pdf مباشرة في برنامجك.
طريقة الاستخدام: قم بتحميل الملف الذي تريده في الخاصية LoadFile، كالتالي:
pdf1.LoadFile ("هنا ضع مسار الملف كاملاً")
حمل الاداه
اسم الأداة: Shockwave ***** ... حجم الأداة: 396 ك ب.
وظيفتهـــــا: لعرض ملف من نوع فلاش داخل برنامجك مباشرة.
طريقة الاستخدام: هذه الأداة سهلة الاستخدام جداً، ولا تحتاج سوى لسطرين كود، هما:
Shockwave*****1.Movie = "ضع مسار الملف كاملاً هنا"
Shockwave*****1.Play
حمل الاداه
اسم الأداة: Priore System Information Control 1.0 .. حجمها: 68 ك ب.
وظيفتها: أداة قوية جداً لتوفير معلومات مهمة عن النظام.
طريقة الاستخدام: توفر هذه الأداة معلومات كثيرة جداً ويمكنك معرفة هذه المعلومات عن طريق الدالة Print وإليك أهم المعلومات التي توفرها هذه الأداة:
Print FullSysInfo1.ActiveInternet
لمعرفة حالة الاتصال بالإنترنت.
Print FullSysInfo1.CapsState
لمعرفة حالة الزر Caps Lock.
Print FullSysInfo1.ComputerName
لمعرفة اسم الكمبيوتر.
Print FullSysInfo1.CurrentX
لمعرفة موقع الماوس أفقياً.
Print FullSysInfo1.CurrentY
لمعرفة موقع الماوس رأسياً.
Print FullSysInfo1.DesktopHandle
لمعرفة مقبض سطح المكتب.
Print FullSysInfo1.Drive
لمعرفة رمز السواقة
Print FullSysInfo1.DiskSize
لمعرفة مساحة هذه السواقة
Print FullSysInfo1.FreeSpace
لمعرفة المساحة المتبقية.
Print FullSysInfo1.DriveType
لمعرفة نوعية هذه السواقة.
Print FullSysInfo1.KeyboardType
لمعرفة نوعية لوحة المفاتيح.
Print FullSysInfo1.NumState
لمعرفة حالة الزر Num Lock.
Print FullSysInfo1.ProcessorType
لمعرفة نوعية المعالج.
Print FullSysInfo1.ScreenPixelHeight
لمعرفة طول الشاشة.
Print FullSysInfo1.ScreenPixelWidth
لمعرفة عرض الشاشة.
Print FullSysInfo1.ScrollState
لمعرفة حالة الزر Scroll Lock.
Print FullSysInfo1.SoundCard
للتأكد من وجود بطاقة صوت.
Print FullSysInfo1.TempFile
لمعرفة ملف الـ Temp الحالي.
Print FullSysInfo1.Temppath
لمعرفة مسار مجلد الـ Temp.
Print FullSysInfo1.TotalMemory
لمعرفة حجم الذاكرة الـ Ram.
Print FullSysInfo1.UserName
لمعرفة اسم المستخدم
Print FullSysInfo1.WinPath
لمعرفة مسار مجلد الويندوز.
Print FullSysInfo1.WinSysPath
لمعرفة مسار مجلد النظام الـ System.
X = FullSysInfo1.Delay(2, False)
لتجميد الويندوز لمدة ثانيتين قابلة للزيادة.
FullSysInfo1.Re****Close
لإلغاء تفعيل زر الإغلاق.
FullSysInfo1.ShellPlus ("calc")
لتشغيل ملف تنفيذي
حمل الاداه
اسم الأداة: MicroTech Labs - Change Screen Resolution .. حجمها: 38 ك ب.
وظيفتها: تغيير دقة عرض الشاشة.
طريقة الاستخدام:
للتحويل إلى 800 * 600
ChangeRes1.Xpixels = 800
ChangeRes1.Ypixels = 600
ChangeRes1.ChangeResolution = True
حمل الاداه
