شرح استخدام ملف المصادر (res.) بالصور
شرح استخدام ملف المصادر (res.) بالصور ماهي مصادر البرنامج ؟ مصادر البرنامج هي عبارة عن الصور والأيقونات والنصوص وكذلك ملفات الصوت والفيديو أو أي نوع آخر من الملفات. كيف يمكن وضع هذه المصادر في ملف واحد؟ يمكن وضع مصادر البرنامج في ملف واحد ويكون بامتداد res. بمعنى Resource عن طريق الفيجوال بيسك باستخدام (محرر المصادر) VB Resource Editor ماهي الفائدة من وضع ملفاتي في ملف مصدري واحد؟ تقلل من زمن تحميل البرنامج لانك لن تقوم بتحميل أي ملف الا عند الحاجة إليه ، أيضا ربما لانك لاتريد استخدام ملفاتك المصدرية من قبل مستخدم البرنامج ، كذلك يسهل عليك عملية إعداد البرامج متعددة اللغات. كيف أقوم بإضافة ملفاتي إلى الملف المصدري وكيف أقوم باستدعائها؟ توكل على الله وقل باسم الله الرحمن الرحيم ولنبدأ سوياً - اختر (Add-In Manager) من قائمة (Add-Ins) كما في الصورة التالية: http://www.geocities.com/peace_maker3100/1.bmp سيظهر لك مربع حوار اضغط مرتين على (VB6 Resource Editor) ثم اضغط على (OK) كما هو موضح في الصورة التالية http://www.geocities.com/peace_maker3100/2.bmp الآن اختر (Add New Resource File) من قائمة (Project) كما في الصورة التالية http://www.geocities.com/peace_maker3100/3.gif سيظهر لك مربع حوار كما في الصورة التالية ، حدد المكان الذي تريد ان تحفظ فيه الملف المصدري ويفضل أن يكون في نفس مسار البرنامج ثم اكتب اسم للملف بدلا من (RES.*) http://www.geocities.com/peace_maker3100/4.bmp ستظهر لك رسالة تخبرك بأن الملف غير موجود وهل تريد إنشائه أم لا ، اختر (Yes) كما في الصورة التالية: http://www.geocities.com/peace_maker3100/5.bmp الآن من نافذة مستكشف المشروع اختر الملف المصدري الذي حددته قبل قليل بالضغط عليه مرتين كما في الصورة التالية http://www.geocities.com/peace_maker3100/6.gif سيظهر لك محرر المصادر ومن خلاله تستطيع إضافة الملفات التي تريد كما هو موضح في الصورة التالية http://www.geocities.com/peace_maker3100/7.bmp -------------------------------------------------------------------------------- 1- هذا الزر لإضافة النص **** الى الملف المصدري: عند الضغط عليه يظهر لنا مربع حوار يطلب منك إدخال النص الذي تريد ، اتبع التعليمات الموضحة في الصورة التالية http://www.geocities.com/peace_maker3100/8.gif 2- هذا الزر لإضافة مؤشر ماوس (cur.) الى الملف المصدري: عند الضغط عليه يظهر لنا مربع حوار يطلب منا تحديد مكان وجود مؤشر الماوس المراد كماهو موضح في الصورة التالية: http://www.geocities.com/peace_maker3100/9.gif 3- هذا الزر لإضافة الأيقونات (ico.) الى الملف المصدري: عند الضغط عليه يظهر لنا مربع حوار يطلب منا تحديد مسار ملف الأيقونة كمافي الصورة التالية http://www.geocities.com/peace_maker3100/10.gif 4- هذا الزر لإضافة صورة نقطية (bmp.): عند الضغط عليه يظهر لنا مربع حوار يطلب منا تحديد مسار ملف الصورة النقطية كماهو موضح في الصورة التالية: http://www.geocities.com/peace_maker3100/11.gif ملاحظة: لايمكن إضافة الصور بامتداد (jpg.) او (gif.) او (.tif) او غيرها باستخدام هذا الزر وانما نستخدم الزر رقم 5 لذلك. 5- هذا الزر يمكنك من إضافة ملفات الصور الأخرى مثل (jpg.) او (gif.) او (.tif) او غيرها وكذلك ملفات الصوت (wav.) وملفات الفيديو (avi.) والملفات النصية (txt.) وجميع الملفات الأخرى التي لم تذكر أعلاه: عند الضغط عليه يظهر لنا مربع حوار يطلب منا تحدد مكان وجود الملف كما في الصورة التالية: http://www.geocities.com/peace_maker3100/12.gif الآن وبعد الانتهاء من إضافة الملفات التي نريد سيظهر لنا محرر النصوص بشكل مشابه لما يلي http://www.geocities.com/peace_maker3100/13.gif عند الضغط على زر (×) كما هو موضح في الصورة السابقة سنرجع الى شاشة تصميم الواجهة وكتابة الكود المعتادة. تبقى الان ان نقوم باستخدام الكود لاستدعاء الملفات التي قمنا بتخزينها: لاستخراج نص قمنا بتخزينه باستخدام الزر رقم 1 [PHP]txt = LoadResString(101) MsgBox txt[/PHP] لاستخراج مؤشر ماوس قمنا بتخزينه باستخدام الزر رقم 2 [PHP]Form1.MousePointer = vbCustom Form1.MouseIcon = LoadResPicture(101, vbResCursor[/PHP] لاستخراج أيقونة قمنا بتخزينها باستخدام الزر رقم 3 [PHP]Form1.Icon = LoadResPicture(101, vbResIcon)[/PHP] لاستخراج صورة نقطية قمنا بتخزينها باستخدام الزر رقم 4 [PHP]Picture1.Picture = LoadResPicture(101, vbResBitmap)[/PHP] لاستخراج ملف آخر قمنا بتخزينه باستخدام الزر رقم 5 في هذه الحالة يجب ان نقوم بتحويل البيانات الى ملف ومن ثم نقوم باستخدامها نقوم بإنشاء إجراء يقوم بتحويل البيانات المخزنة للملف إلى ملف [PHP]Public Sub LoadDataIntoFile(id As Integer, File**** As String) Dim myArray() As Byte Dim myFile As Long If Dir(File****) = "" Then myArray = LoadResData(id, "CUSTOM") myFile = FreeFile Open File**** For ***ary Access Write As #myFile Put #myFile, , myArray Close #myFile End If End Sub[/PHP] الان لنفرض اننا قمنا بتخزين ملف صورة بامتداد (gif.) لاستدعاء ذلك الملف نستخدم الكود التالي [PHP]'تحويل بيانات العنصر رقم 101 الى ملف مؤقت باسم temp.gif LoadDataIntoFile 101, App.Path & "\temp.gif" ' نعرض هذا الملف وهو عبارة عن صورة في مربع الصورة Picture1.Picture = LoadPicture(App.Path & "\temp.gif") ' نقوم بحذف الملف المؤقت لعدم الحاجة إليه Kill App.Path & "\temp.gif"[/PHP] أضف ملف الفلاش الذي تريد لملف المصادر عن طريق الزر رقم 5 بعد الاضافة إذهب لقائمة Project ثم Components اختر Shockwave Flash ثم OK أضف أداة الفلاش على النموذج حسب الحجم الذي تريد ثم اضف زر أمر Command1 لتشغيل ملف الفلاش ثم استخدم هذا الكود [PHP]LoadDataIntoFile 101, App.Path & "\temp.swf" ' نعرض هذا الملف وهو عبارة عن صورة في مربع الصورة ShockwaveFlash1.Movie = App.Path & "\temp.swf" ShockwaveFlash1.Play ' نقوم بحذف الملف المؤقت لعدم الحاجة إليه Kill App.Path & "\temp.swf" End Sub Public Sub LoadDataIntoFile(id As Integer, File**** As String) Dim myArray() As Byte Dim myFile As Long If Dir(File****) = "" Then myArray = LoadResData(id, "CUSTOM") myFile = FreeFile Open File**** For ***ary Access Write As #myFile Put #myFile, , myArray Close #myFile End If End Sub [/PHP] إضافة ملف قاعدة بيانات إلى ملف المصادر في البداية نستخدم الاجراء LoadDataIntoFile لتحميل الملف من ملف المصادر إلى ملف قاعدة بيانات مؤقت ثم نتعامل مع قاعدة البيانات عن طريق هذا الملف وبعد نهاية تحميل البرنامج نقوم بحذف الملف المؤقت كإجراء روتيني وهذا هو الكود كاملا: فرضت أن قاعدة البيانات تحتوي على جدول واحد باسم Table1 يحتوي على حقل واحد أيضا اسمه **** [PHP]Public Sub LoadDataIntoFile(id As Integer, File**** As String) Dim myArray() As Byte Dim myFile As Long If Dir(File****) = "" Then myArray = LoadResData(id, "CUSTOM") myFile = FreeFile Open File**** For ***ary Access Write As #myFile Put #myFile, , myArray Close #myFile End If End Sub Private Sub Form_Load() LoadDataIntoFile 101, App.Path & "\temp.mdb" Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ & App.Path & "\temp.mdb" & ";Persist Security Info=False" Adodc1.CommandType = adCmdTable Adodc1.RecordSource = "Table1" Set ****1.DataSource = Adodc1 ****1.DataField = "****" End Sub Private Sub Form_Terminate() Kill App.Path & "\temp.mdb" End Sub[/PHP] تحياتى لكم محمدعلى |
رد: شرح استخدام ملف المصادر (res.) بالصور
شكرا استاذى
انت بجد عملاق انت بجد مدرسه فاتحه ذراعيها للكل تمنى ان الجميع يتعلم منك تلمبيذك ايمن العادلى |
رد: شرح استخدام ملف المصادر (res.) بالصور
|
رد: شرح استخدام ملف المصادر (res.) بالصور
|
رد: شرح استخدام ملف المصادر (res.) بالصور
|
رد: شرح استخدام ملف المصادر (res.) بالصور
المهندسين العرب فوق القمه كل الفخر للمهندسين العرب
|
رد: شرح استخدام ملف المصادر (res.) بالصور
مشكورررررررررررررررررررررررررررررررررررررررر
|
رد: شرح استخدام ملف المصادر (res.) بالصور
|
رد: شرح استخدام ملف المصادر (res.) بالصور
مشكور يا غالي
|
رد: شرح استخدام ملف المصادر (res.) بالصور
مشكور .............يعطيك العافية.................مشكور
مشكور... ......مشكور......................مشكور.........مشك ور مشكور.............مشكور............ ..مشكور............... مشكور. مشكور........................مشكور ............................مشكور مشكور... ................................................. .....مشكور مشكور .......مجهــــــــــــــود تحســــد علـــــــيه ...مشكور مشكور....................... ........................ مشكور مشكور.......................................م شكور مشكور................ ................مشكور مشكور............. ..........مشكور مشكور.......... .......مشكور مشكور.....مشكور مشكور |
رد: شرح استخدام ملف المصادر (res.) بالصور
^_^ أحسن معلم هو الزمن ^_^
مشكور مشكور مشكور مشكور مشكور مشكور مشكور مشكور مشكور مشكور ^_^ أحسن معلم هو الزمن ^_^ مشكور مشكور مشكور مشكور مشكور ^_^ أحسن معلم هو الزمن ^_^ مشكور مشكور مشكور مشكور مشكور مشكور مشكور مشكور مشكور مشكور ^_^ أحسن معلم هو الزمن ^_^ |
رد: شرح استخدام ملف المصادر (res.) بالصور
مشكور .............يعطيك العافية.................مشكور
مشكور... ......مشكور......................مشكور.........مشك ور مشكور.............مشكور............ ..مشكور............... مشكور. مشكور........................مشكور ............................مشكور مشكور... ................................................. .....مشكور مشكور .......مجهــــــــــــــود تحســــد علـــــــيه ...مشكور مشكور....................... ........................ مشكور مشكور.......................................م شكور مشكور................ ................مشكور مشكور............. ..........مشكور مشكور.......... .......مشكور مشكور.....مشكور مشكور |
رد: شرح استخدام ملف المصادر (res.) بالصور
الف شكررررررررررررررررر
|
رد: شرح استخدام ملف المصادر (res.) بالصور
بارك الله فيك
|
رد: شرح استخدام ملف المصادر (res.) بالصور
مشكور .............يعطيك العافية.................مشكور
مشكور... ......مشكور......................مشكور.........مشك ور مشكور.............مشكور............ ..مشكور............... مشكور. مشكور........................مشكور ............................مشكور مشكور... ................................................. .....مشكور مشكور .......مجهــــــــــــــود تحســــد علـــــــيه ...مشكور مشكور....................... ........................ مشكور مشكور.......................................م شكور مشكور................ ................مشكور مشكور............. ..........مشكور مشكور.......... .......مشكور مشكور.....مشكور مشكور |
الساعة الآن 07:54 PM |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. TranZ By
Almuhajir