📘 ❞ ملف المصادر في الفيجوال بيسك 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 :