كتاب ملف المصادر في الفيجوال بيسك Next Condor

خطوة نحو احتراف الفيجوال بيسك من خلال التعرف على ملف المصادر في هذا الكتاب الشامل. ملف المصادر في الفيجوال بيسك - الجزء 2 - تحدثنا في الجزء الأول عن كيفية إنشاء ملف مصادر جديد,إضافة مجموعة من ملفات برنامجك داخله و عن أهم ما يكون الملف المصدري . في هذا الجزء سنتحدث بإذن الله تعالى حول كيفية التعامل برمجيا مع ملف المصادر. و كل من لم يستطع تتبع الجزء الأول فليضغط هنا و إليك الآن أهم أكواد التعامل مع ملف المصادر : إستدعاء نص : Txt=LoadResString(101) Msgbox txt إستدعاء مءشر فأرة : Form1.MousePointer = vbCustom Form1.MouseIcon = LoadResPicture(101,vbResCursor) إستدعاء أيقونة : Form1.Icon = LoadResPicture(101, vbResIcon) إستدعاء صورة ذات إمتداد bmp : Picture1.Picture = LoadResPicture(101, vbResBitmap) إستدعاء ملف مخزن في Custom ,أي ملف ذي أي امتداد ممكن : ضع هذا الكود في الحدث General : Public Sub LoadDataIntoFile(id As Integer, FileName As String) Dim myArray() As Byte Dim myFile As Long If Dir(FileName) = "" Then myArray = LoadResData(id, "CUSTOM ") myFile = FreeFile Open FileName For Binary Access Write As #myFile Put #myFile, , myArray Close #myFile End If End Sub قم بالتعديل على هذا الكود حسب متطلبات برنامجك : LoadDataIntoFile 101, App.Path & "8.gif " Picture1.Picture = LoadPicture(App.Path & "8.gif") Kill App.Path & "8.gif" إستدعاء ملف فلاش في الأداة Shockwave Flash : ضع هذا الكود في الحدث General : Public Sub LoadDataIntoFile(id As Integer, FileName As String ) Dim myArray() As Byte Dim myFile As Long If Dir(FileName) = "" Then myArray = LoadResData(id, "CUSTOM ") myFile = FreeFile Open FileName For Binary Access Write As #myFile Put #myFile, , myArray Close #myFile End If End Sub قم بالتعديل على هذا الكود حسب حاجات برنامجك ,يمكنك كتابته في زر : LoadDataIntoFile 101, App.Path & "temp.swf " ShockwaveFlash1.Movie = App.Path & "temp.swf " ShockwaveFlash1.Play Kill App.Path & "temp.swf " ملاحظة : إستدعاء ملف فيديو يلزمك ببعض التغييرات على مستوى الأداة و كذلك في الكود الموجود في زر الإستدعاء . تحميل قاعدة بيانات موجودة في ملف المصادر : دائما نضع نفس الشيفرة البرمجية في الحدث General : Public Sub LoadDataIntoFile(id As Integer, FileName As String ) Dim myArray() As Byte Dim myFile As Long If Dir(FileName) = "" Then myArray = LoadResData(id, "CUSTOM ") myFile = FreeFile Open FileName For Binary Access Write As #myFile Put #myFile, , myArray Close #myFile End If End Sub التعامل برمجيا مع قاعدة بيانات يلزم تحميلها مع بدء البرنامج ليخلو البرنامج لاحقا من الأخطاء و بطء التحميل لعناصره . لذا ارتأيت وضع الكود في العنصر Form و في الحدث Load . في هذا الكود ستجد أنني افترضت وجود قاعدة بيانات تدعى temp.mcb ذات حقل واحد يدعى Table1 و يحتوي على حقل واحد يدعى name 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 Text1.DataSource = Adodc1 Text1.DataField = "name " شرح بسيط للكود : في البداية نستخدم الاجراء LoadDataIntoFile لتحميل الملف من ملف المصادر إلى ملف قاعدة بيانات مؤقت ثم نتعامل مع قاعدة البيانات عن طريق هذا الملف وبعد نهاية تحميل البرنامج نقوم بحذف الملف المؤقت . نضع هذا الكود في العنصر Form في الحدث Terminate :
-
من كتب فجوال بيسك 6 كتب لغات البرمجة - مكتبة كتب تقنية المعلومات.