📘 قراءة كتاب ملف المصادر في الفيجوال بيسك 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 :
حجم الكتاب عند التحميل : 16.7 ميجا بايت .
نوع الكتاب : pdf.
عداد القراءة:
اذا اعجبك الكتاب فضلاً اضغط على أعجبني و يمكنك تحميله من هنا:
شكرًا لمساهمتكم
شكراً لمساهمتكم معنا في الإرتقاء بمستوى المكتبة ، يمكنكم االتبليغ عن اخطاء او سوء اختيار للكتب وتصنيفها ومحتواها ، أو كتاب يُمنع نشره ، او محمي بحقوق طبع ونشر ، فضلاً قم بالتبليغ عن الكتاب المُخالف:
قبل تحميل الكتاب ..
يجب ان يتوفر لديكم برنامج تشغيل وقراءة ملفات pdf
يمكن تحميلة من هنا 'http://get.adobe.com/reader/'