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

❞ كتاب ملف المصادر في الفيجوال بيسك 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 كتب لغات البرمجة - مكتبة كتب تقنية المعلومات.


نبذة عن الكتاب:
ملف المصادر في الفيجوال بيسك 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 :


. المزيد..

تعليقات القرّاء:

   

خطوة نحو احتراف الفيجوال بيسك من خلال التعرف على ملف المصادر في هذا الكتاب الشامل.


 ملف المصادر في الفيجوال بيسك - الجزء 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.
عداد القراءة: عدد قراءة ملف المصادر في الفيجوال بيسك  Next Condor

اذا اعجبك الكتاب فضلاً اضغط على أعجبني
و يمكنك تحميله من هنا:

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

شكراً لمساهمتكم معنا في الإرتقاء بمستوى المكتبة ، يمكنكم االتبليغ عن اخطاء او سوء اختيار للكتب وتصنيفها ومحتواها ، أو كتاب يُمنع نشره ، او محمي بحقوق طبع ونشر ، فضلاً قم بالتبليغ عن الكتاب المُخالف:

برنامج تشغيل ملفات pdfقبل تحميل الكتاب ..
يجب ان يتوفر لديكم برنامج تشغيل وقراءة ملفات pdf
يمكن تحميلة من هنا 'http://get.adobe.com/reader/'