صفحة 3 من 4 الأولىالأولى 1234 الأخيرةالأخيرة
النتائج 21 إلى 30 من 36

الموضوع: دورس بالفيجوال بيسك

  1. #21
    Banned
    رقم العضوية
    4105
    تاريخ التسجيل
    Oct 2005
    المشاركات
    489

    الطباعه

    الطباعة باستخدام Print Object



    إن الطباعة من الأساسيات في برامجك فأي برنامج يحتاج إلى الطباعة

    في هذا الدرس سوف نقدم مثالاً بسيطاً لطباعة نص دون إستخدام توابع API



    أولاً يجب أن يكون لديك طابعة إفتراضية مثبتة ولو لم يكن لديك طابعة أضف طابعة وهمية للتجريب . عن طريق لوحة التحكم -> الطابعات -> إضافة طابعة



    ثانياً عليك تجهيز الفورم بمايلي:

    1 - أداة النصوص Text1

    2 - الصندوق List1

    3 - زر أمر Command1

    هذه الأدوات التي عليك إضافتها




    الأن نبداً بالعمل :

    1- أنقر نقرتين فوق الفورم وأكتب الشيفرة التالية في الحدث Load للفورم

    Dim a As Integer
    For a = 0 To Printers.Count -1
    List1.AddItem Printers(a).DeviceName
    Next
    End Sub

    شرح الكود :

    هذا الكود يقوم بوضع قائمة بأسماء الطابعات المثبتة لديك في الصندوق List1 لتتمكن من إختيار الطابعة التي تريد الطباعة عليها.



    2- أنقر نقرتين فوق List1 وأكتب الكود التالي :

    Set Printer = Printers(List1.ListIndex)

    هذا الكود يقوم بتحديد الطابعة من المجموعة المثبتة لديك



    3-الأن نبدأ بعملية الطباعة :

    أكتب النص الذي تريد طباعته في Text1

    أضف الكود التالي إلى زر Command1:


    Printer.FontSize = 40
    Printer.Print Text1.text
    Printer.EndDoc

    في السطر الأول تحديد حجم الخط

    في السطر الثاني إرسال النص إلى الطابعة

    في السطر الثالث بدء الطباعة الفعلية



    هذه عملية الطباعة البسيطة بإستخدام Print Object ولاكن هناك عمليات طباعة ضخمة بتوابع API

    سيكون لنا حديث خاص عنها



    أمل أن يكون هذا الدرس قد حقق الفائدة للمبتدئين في الفيجوال بيسك

  2. #22
    Banned
    رقم العضوية
    4105
    تاريخ التسجيل
    Oct 2005
    المشاركات
    489

    التعامل مع الحافظه

    التعامل مع الحافظة



    درس اليوم ليس صعباً ولاكنه هام . سوف تعرف كيف تنسخ النص وتلصق ماهو منسوخ من أي برنامج أخر وكذلك الصور.

    فلو إلتقطت صورة عن طريق مفتاح Print Screen SysRa فإنك تستطيع لصق الصورة في برنامجك وحفظها .

    طريقة العمل ليست صعبة . بعد تجهيز الفورم أضف العناصر التالية:




    أداة النصوص Text1

    5 أزرار Command غير Caption كما في الصورة

    أداتين عرض الصور Picture1 و Picture2



    ناتي إلى كتابة الشيفرة الخاصة بالعمل:



    في الزر مسح الحافظة أضف السطر التالي

    Clipboard.Clear

    في الزر نسخ النص أضف السطر التالي:

    Clipboard.SetText Text1.Text

    في الزر لصق النص أضف السطر التالي:

    Text1.Text = Clipboard.GetText

    هذه الأسطر السابقة تقوم بنسخ كافة النص ولصقه

    أما إذا أردت نسخ جزء محدد فإستبدل Text1.text بالكود Text1.SelText

    نأتي الأن إلى نسخ ولصق الصور :

    نفس الطريقة السابقة ولكن إستبدل Text1.text بإسم أداة الصور Picture1 أو Picture1

    في الزر نسخ الصورة أضف السطر التالي:

    Clipboard.SetData Picture1.Picture

    في الزر لصق الصورة أضف الكود التالي :

    Picture2.Picture = Clipboard.GetData


    كان هذا درسنا شكراً لزيارتكم


  3. #23
    Banned
    رقم العضوية
    4105
    تاريخ التسجيل
    Oct 2005
    المشاركات
    489

    التعامل مع القوائم المنسدله



    إن أبسط برنامج تريد صنعه سوف يحتاج بالتأكيد إلى قوائم منسدلة مثلاً : ملف . تحرير . تعليمات .....

    وهذا الدرس يساعدك على كيفية إنشاء القوائم:

    لفتح محرر القوائم أنقر فوق الزر في شريط الأدوات أو من قائمة Tools إختر Menu Edior فيظهر لك محرر القوائم



    أكتب العنوان الذي سوف يظهر في Caption مثلاً (العنوان )

    ثم أدخل التسمية الخاصة للقائمة في حقل Name والتي سوف تتعامل معه الفيجوال بيسك

    ثم إضغط Next فتكون قد أنشأت القائمة الرئيسية

    لإضافة عناصر للقائمة أكتب عنوان العنصر في Caption وإسمه الداخلي في Name وأنقر فوق الزر
    لإضافة فاصل بين القوائم في مكان العنوان Caption أكتب إشارة الطرح (-) وأدخل أي إسم داخلي في Name

    لإضافة قائمة فرعية إضغط Next لإضافة عنصر أدخل المعطيات Caption و Name ثم أنقر فوق الزر


    ثم إضغط Ok للحفظ والإغلاق

    وقت التشغيل هكذا سوف تظهر القائمة التي أنشأتها


    ربما سوف تتسائل كيف تظهر القائمة عند النقر بالزر الأيمن للماوس ! هذا بسيط :

    فقط في مكان الحدث عند النقر بالزر الأيمن فوق الفورم مثلاً عل فرض أن الفورم إسمه Form1

    إختر الحدث Mouse Down لل Form1 وأكتب السطر التالي

    If Button = 2 Then
    Form1.PopupMenu menu1
    End If

    طبعاً Menu1 هي إسم القائمة الرئيسة والتي سوف تظهر عند النقر بالزر الأيمن . ويمكنك تغيير خاصية Visible في محرر القوائم لإخفاء القائمة الرئيسية


    هذا الذي مااستطعت أن أشرحه أرجو أن يحقق الفائدة

  4. #24
    Banned
    رقم العضوية
    4105
    تاريخ التسجيل
    Oct 2005
    المشاركات
    489

    msgbox التعامل مع صناديق الحوار

    الرسائل Msgbox



    الشكل العام للرسالة :



    MsgBox "نص الرسالة", vbDefaultButton1, "العنوان"

    الأزرق نوعها




    الشكل الكامل (مع ربط بالتعليمات):



    MsgBox "نص الرسالة", vbMsgBoxHelpButton, "العنوان", "c:\windows\help\windows.chm", 0

    مسار ملف التعليمات




    أنقر هنا لتعرف كيف تضع عدة أسطر في الرسالة

    هذا الجدول يعطيك أمثلة عن الرسائل


    الشكل العام
    Msgbox"رسالتك هنا"
    [IMG]
    التنفيذ
    http://www.bwady.com/droos/visualbasic/les3/msgbox_image/11.JPG[/IMG]
    مثال
    On Error GoTo r
    Dir1 = Drive1
    Exit Sub
    r:
    MsgBox "الرجاء إدخال قرص", vbCritical, "لايوجد قرص هنا"

    كود:
    MsgBox "حدث خطأ", vbCritical, "خطأ"
    On Error GoTo r
    Dir1 = Drive1
    Exit Sub
    r:
    MsgBox "الرجاء إدخال قرص", vbExclamation, "لايوجد قرص هنا"

    MsgBox "رسالتك هنا", vbExclamation, "العنوان" On Error GoTo r
    Dir1 = Drive1
    Exit Sub
    r:
    MsgBox "الرجاء إدخال قرص", vbInformation, "لايوجد قرص هنا"
    MsgBox "رسالتك هنا", vbInformation, "العنوان" On Error GoTo r
    Dir1 = Drive1
    Exit Sub
    r:
    MsgBox "الرجاء إدخال قرص أنقر فوق تعليمات للمزيد", vbMsgBoxHelpButton, "لايوجد قرص هنا", "c:\windows\help\windows.chm", 0

    MsgBox "رسالتك هنا", vbMsgBoxHelpButton, "العنوان", "C:\WINDOWS\HELP\calc.CHM", 0 On Error GoTo r
    Dir1 = Drive1
    Exit Sub
    r:

    If MsgBox("الرجاء إدخال قرص أنقر فوق موافق", vbOKCancel, "لايوجد قرص هنا") = vbOK Then
    MsgBox "أعد المحاولة"
    Else
    End
    End If

    MsgBox "رسالتك هنا ", vbOKCancel, "العنوان" On Error GoTo r
    Dir1 = Drive1
    Exit Sub
    r:

    If MsgBox("الرجاء إدخال قرص أنقر فوق موافق", vbOKCancel, "لايوجد قرص هنا") = vbOK Then
    MsgBox "أعد المحاولة"
    Else
    End
    End If
    MsgBox "رسالتك هنا ", vbYesNo + vbQuestion, "العنوان" On Error GoTo r
    Dir1 = Drive1
    Exit Sub
    r:

    If MsgBox("لايوجد قرص هل تريد الخروج؟", vbYesNo, "لايوجد قرص هنا") = vbYes Then
    End
    End If

    MsgBox "رسالتك هنا ", vbSystemModal, "العنوان" رسالة عادية مع أيقونة النظام

    MsgBox "رسالتك هنا ", vbAbortRetryIgnore, "العنوان" On Error GoTo r
    Dir1 = Drive1
    Exit Sub
    r:
    Dim a
    a = MsgBox(" أنقر فوق إعادة لمحاولة أخرى - تجاهل : للبقاء دون محاولة-إحباط : إغلاق البرنامج", vbAbortRetryIgnore, "لايوجد قرص هنا")
    Select Case a
    Case vbRetry

    MsgBox "أعد المحاولة"
    Case vbAbort
    End
    Case vbIgnore
    End Select

  5. #25
    Banned
    رقم العضوية
    4105
    تاريخ التسجيل
    Oct 2005
    المشاركات
    489

    صندوق الفتح والحفظ وكيفية التعامل معه



    صنايق الحوار Common Dialog



    في هذا الدرس سوف نتحدث عن كيفية استخدام صناديق الحوار CommonDialog

    ربما لم تسمع بهذه الأداة سابقاً. ولاكن سوف تعرفها:

    عندما تفتح أي برنامج فإنك سوف تحفظ عملك في النهاية ! ماذا يظهر لك عندما تختار "حفظ" ؟

    وإذ فتحت أي برنامج وتريد فتح ملف فسوف يظهر لك أيضا صندوق الحوار الخاص بالفتح وهو نفس صندوق الحفظ!

    هذا الصندوق يسمى Common Dialog و هذه الأداة تستخدم في معظم البرامج المبرمجة بواسطة الفيجوال بيسك.



    هناك طريقتان لإستخدام هذه الأداة :

    الطريقة بإستخدام أداة جاهزة: Microsoft Common Dialog Control

    الطريقة الثانية بإستخدام إجراءات API وهذه عملية صعبة سوف نتحدث عنها في الدروس المتقدمة.

    لذلك سيكون درسنا بإستخدام الأداة : Microsoft Common Dialog Control . طبعاً تعرف كيف تضعها على الفورم

    كليك يمين فوق صندوق الأدوات إختر Components ثم تجد الأداة Microsoft Common Dialog Control 6,0 حددها وأنقر Apply



    سوف تظهر الأيقونة على صندوق الأدوات . ضعها على الفورم . سوف يكون إسم الأداة CommonDialog1

    ضع على الفورم الأداة Picture1 وزر Command1

    ضع الكود التالي في الزر:

    CommonDialog1.DialogTitle = "فتح ملف"
    CommonDialog1.Filter = "Gif صور|*.gif|JPG صور|*.jpg|Bmp صور|*.bmp|كافة الملفات|*.*"
    CommonDialog1.ShowOpen
    If CommonDialog1.FileName = "" Then Exit Sub
    Picture1.Picture = LoadPicture(CommonDialog1.FileName)

    شرح الكود:

    السطر الأول : تحديد العنوان الذي سوف يظهر في أعلى الصندوق

    السطر الثاني : تحديد الملفات التي سوف يعرضها الصندوق

    السطر الثالث : إظهار الصندوق

    السطر الرابع : إذا لم يتم تحديد ملف ألغي الحدث

    السطر الخامس: عرض الصورة التي قمت بتحديدها في الأداة PIcture1
    كان هذا مثال بسيط لتمسك رأس الخيط . مازل هناك العديد من العمليات بواسطة CommonDialog. منها: تحديد الخط والتلوين و خصائص الطباعة و الحفظ .

    الأن لنأخذ مثال عن إستعمال ألوان CommonDialog:

    نفس الأدوات السابقة أضف زر Command2 وأكتب الكود التالي:

    CommonDialog1.ShowColor
    If CommonDialog1.Color = 0 Then Exit Sub
    Picture1.BackColor = CommonDialog1.Color

    شرح الكود :

    السطر الأول : إظهار ألوان الكمون دايلوك

    السطر الثاني : إذا لم يتم تحديد لون ألغي الحدث

    السطر الثالث : تلوين مربع الصورة باللون الذي تم تحديده بالكمون دايلوك




    سوف نتحدث الأن عن عملية فتح وحفظ مستند نص:

    جهز الفورم بالأدوات التالية:

    زرين أمر : فتح و حفظ

    أداة عرض النص Label1

    أداة الكتابة Text1 ولاتنسى تبديل الخصائص MultiLine و ScrollBars

    وأهم شيىء الأداة CommonDialog





    لاحظ الشكل التالي:


    كتابة الشيفرة:

    أنقر دبل كليك على زر الفتح وأكتب الكود التالي:

    Dim file As String
    CommonDialog1.Filter = "ملفات النصوص|*.txt"
    CommonDialog1.ShowOpen
    Open CommonDialog1.FileName For Input As #1
    Input #1, file
    Close
    Text1.Text = file

    السطر الأول : التصريح عن متحول نصي

    السطر الثاني : تحديد الملفات التي سيعرضها الكمون دايلوك

    السطر الثالث : إظهار اللكمون دايلوك

    السطر الرابع والخامس والسادس فتح المستند كمتحول

    السطر السابع : عرض مسار الملف في Label1

    السطر الأخير عرض النص في أداة الكتابة Text

    نأتي إلى الحفظ :

    ضع الكود التالي في زر الحفظ:

    Dim a As String
    a = Text1
    CommonDialog1.Filter = "Text File|*.txt"
    CommonDialog1.FileName = a
    CommonDialog1.ShowSave


    السطر الأول : التصريح عن متحول نصي (a)

    السطر الثاني إسناد النص المكتوب إلى المتحول a

    السطر الثالث: تحديد قيمة الكمون دايلوك وهو المتحول a

    السطر الرابع عرض مربع الحفظ.






    وبذلك نكون قد أعطينا فكرة عن إستعمال الكمون دايلوك . طبعاً هناك العديد من الأحداث لهذه الأداة سوف تمر معنا في الدروس القادمة.

    وبعملك وتجريبك أنا متأكد من أنك ستنجز شيئاً عظيماً

    شكراً لكم

  6. #26
    Banned
    رقم العضوية
    4105
    تاريخ التسجيل
    Oct 2005
    المشاركات
    489

    التعامل مع الاخطاء وتجاهلها



    التعامل مع الأخطاء



    إذا كنت تريد عمل أي برنامج بسيط فلابد أن يحصل في بعض الأحداث الأخطاء وهذاالخطأ سوف يتسبب في إغلاق البرنامج.

    فدرسنا اليوم هو للتصريح عن الخطأ وتجاهله :



    التعليمة القياسية لتجاهل الأخطاء هي

    On Error Resume Next

    تكتب قبل الحدث وتقوم بإلغاء الحدث عند وقوع خطأ



    وهناك طريقة أخرى وهي عمل حدث كرسالة مثلاً عند وقوع الخطأ

    أولا عليك التصريح عن الخطأ كمايلي

    On Error Goto R

    (R) هي اسم الخطأ يمكنك تغييره لما تريد

    بعد ذلك أكتب الحدث .... مثلاً Form2.Show اذا لم يكن الفورم2 موجودا ً سوف يتم اغلاق البرنامج

    فعليك أن تكتب التعليمة بالشكل التالي

    On Error GoTo R
    Form2.Show
    Exit Sub
    R:
    MsgBox "حدث خطأ في البرنامج", vbCritical, "غير موجود"


    في السطر الأول التصريح عن الخطاُ

    في السطر الثاني الحدث الأساسي

    في السطرالرابع والخامس يتم تحديد فعل المتحول

    يمكنك تحديد أي حدث للمتحول بدلاً من الرسالة أو يمكنك أن تكتب السطر التالي :

    MsgBox Err.Description

    أي أن الرسالة ستكون من أصل الخطأ


    إليك مثالاً مفيداً للتصريح عن الخطأ

    اصنع Form أضف اليه أداة Drive1 "محركات الأقراص" وأداة Dir1 "صندوق المجلدات "

    أنقر فوق Drive1 نقرتين وأضف الأسطر التالية:

    On Error GoTo error1
    Dir1.Path = Drive1.Drive
    Exit Sub
    error1:
    MsgBox "الرجاء إدخال قرص في محرك الأقراص هذا", vbCritical, "خطأ"

    السطر الأول التصريح عن الخطأ

    السطر الثاني الحدث الأساسي "عرض المجلدات داخل محرك الأقراص المحدد"

    الأسطر الأخيرة عمل المتحول وهو عرض رسالة خطأ

    ويمكنك الإستغناء عن الرسالة السابقة بالرسالة الأساسية للخطأ بالتعليمة التالية:

    MsgBox Err.Description



    هذا مجرد شرح بسيط عن الأخطاء لكي يكون برنامجك نظيفاً خالياً من أي Error

  7. #27
    Banned
    رقم العضوية
    4105
    تاريخ التسجيل
    Oct 2005
    المشاركات
    489

    تشغيل الصوت دون أدوات

    الملتميديا - تشغيل الصوت دون أدوات



    درس اليوم هو عبارة عن طريقة تشغيل ملف صوت WAV عن طريق برنامجك دون ان تحتاج إلى وضع عنصر تحكم جاهز

    أضف فورم ووحدة نمطية Module

    انسخ الأسطر التالية إلى الوحدة النمطية Module



    Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    Global Const SND_ASYNC = &H1


    أضف الكود التالي إلى زر أمر Command

    rc = sndPlaySound(إسم ملف الصوت هنا, SND_ASYNC)

    لاتنسى تبديل ماهو مكتوب باللون الأزرق إلى عنوان الملف كاملاً

    لاحظ أنه لايشغل التنسيقات الضخمة مثل mp3 وأحيانأ ملفات الصوت الضخمة أيضاً



    هناك طريقة أخرى أيضاً

    ضع هذه الأسطر في فسم التصريحات General

    Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    Const SND_ALIAS = &H10000
    Const SND_ASYNC = &H1
    Const SND_SYNC = &H0
    Const SND_NOWAIT = &H2000
    Const SND_LOOP = &H8

    Sub SoundCheck()
    Dim lRetVal As Long
    lRetVal = sndPlaySound("عنوان الملف هنا", SND_SYNC)
    End Sub

    أضف السطر التالي إلى زر الأمر Command

    SoundCheck

    ولاتنسى تكتب مسار الملف كامل

    ولاتنسى تدعيلنا بالتوفيق

  8. #28
    Banned
    رقم العضوية
    4105
    تاريخ التسجيل
    Oct 2005
    المشاركات
    489

    تشغيل الصوت مع عنصر تحكم



    الملتميديا - تشغيل الصوت بأداة MCI



    هناك طريقة جيدة لتشغيل الصوت بكافة انواعه وهي عن طريق إستخدام عنصر التحكم Microsoft Multimedia Control

    طريقة وضعه على الفورم هي :

    أنقر بالزر اليمين للماوس فوق صندوق الأدوات . فتظهر لك قائمة إختر منها Components

    فيظهر لك مربع حوار يحوي على الأدوات سوف تجد فيها العنصر Microsoft Multimedia Control وأنقر فوق الزر Ok

    ضعها على الفورم وأضف العناصر التالية

    أدوات عرض الملفات

    Driver1

    Dir1

    File1

    وأداة النصوص Label1

    إضافةً إلى عنصر الملتميديا MMControl1

    لاحظ شكل أداة الملتميديا في أسفل النموذج




    نأتي الأن إلى العمل والحدث :

    1- أنقر فوق أداة السواقات Drive1 نقرتين وأكتب السطر التالي:

    On Error Resume Next
    Dir1 = Drive1

    وهذا يقوم بعرض المجلدات الموجودة داخل المحرك المحدد

    2- أنقر فوق أداة المجلدات Dir1 وأكتب الكود اتالي:

    File1 = Dir1

    وهو يقوم بعرض الملفات في المجلد المحدد داخل أداة الملفات File1

    3- أنقر فوق صندوق الملفات وأكتب السطر الأسطر التالية



    Label1 = Dir1.Path & "\" & File1
    MMControl1.FileName = Label1
    MMControl1.Command = "open"
    MMControl1.Command = "play"



    السطر الأول يقوم بعرض المسار الكامل للملف المحدد في صندوق الملفات داخل الأداة Label1

    السطر الثاني يقوم بتحديد الملف لأداة الملتميديا وهو الملف المكتوب داخل الأداة Label1

    السطرين الأخيرين يقومان بتشغيل الملف



    لاحظ الأوامر المكتوبة لعنصر التحكم MMControl1

    يمكنك إخفاء أداة الملتميديا MMControl1 عن طريق خاصية Visible

    وبعد ذلك تضيف صور تكون قد صممتها لتكون بدلاً من ازرار العنصر MMControl1

    ثم أنقر فوق الصورة التي وضعتها وأكتب الأوامر للأداة MMControl1

    مثلاً

    في الصورة الأولى لتكن رمز التشغيل:

    MMControl1.Command = "play"

    في الصورة الثانية لتكن رمز إيقاف مؤقت:

    MMControl1.Command = "Pause"

    وهكذا ضع الأوامر المعروفة مثلاً Stopو Play .......




    يمكنك إضافة ميزات كثيرة أيضا منها شريط الحالة الذي يعطيك إلى أين وصلت قرائة الملف :

    أضف إلى الفورم السابق شريط التمرير الأفقي HScroll1

    ثم أنقر فوق أداة الملتميديا وإختر الحدث StatusUpdate ثم أكتب الكود التالي:

    HScroll1.Value = mm.Position * 100 / MMControl1 .Length

    ويمكنك إضافة أداة Label ليتم عرض الوقت الأصلي للملف والوقت الذي تم قرائته كمايلي:

    أضف أداتين Label2 و Label3

    وأكتب الكود التالي في حدث StatusUpdate لأداة الملتميديا تحت الكود السابق:

    Dim a As Integer
    Dim b As Integer
    a = MMControl1.Length / 1000
    b = MMControl1.Position / 1000
    Label2.Caption = a
    Label3.Caption = b


    وبذلك تكون قد صنعت برنامج مشغل ملفات الملتميديا الصوتية.

    ولنا درس أخر لتشغيل الملفات الصوتية والمرئية (ملفات الفيديو)


  9. #29
    Banned
    رقم العضوية
    4105
    تاريخ التسجيل
    Oct 2005
    المشاركات
    489

    تشغيل ملف فيديو

    الملتميديا - تشغيل ملف فيديو



    درس اليوم سوف يعجبك كثيراً إذا فهمت الأساسيات وفكرت قليلاً سوف تعمل أجمل برنامج لفتح ملفات الصوت والصورة.

    سوف نتعامل مع عنصر تحكم جاهز هو Windows Media Player وتعرف كيف تضيفه . عن طريق زر يمين فوق صندوق الأدوات

    اختر Windows Media Player وأنقر Ok فتظهر أيقونته على صندوق الأدوات . ضعه بعد ذلك على الفورم وضع الأدوات التالية:

    أدوات عرض الملفات Drive1 و Dir1 و File1

    وأضف أداة النصوص Label1

    لاحظ الصورة: عنصر Windows Media Player هو الذي في الأسفل.






    العمل بسيط جداً

    1- أنقر فوق أداة السواقات Drive1 نقرتين وأكتب السطر التالي:

    On Error Resume Next
    Dir1 = Drive1

    وهذا يقوم بعرض المجلدات الموجودة داخل المحرك المحدد

    2- أنقر فوق أداة المجلدات Dir1 وأكتب الكود اتالي:

    File1 = Dir1

    وهو يقوم بعرض الملفات في المجلد المحدد داخل أداة الملفات File1

    3- أنقر فوق صندوق الملفات وأكتب السطر الأسطر التالية



    Label1 = Dir1 + "\" + File1
    MediaPlayer1.FileName = Label1

    السطر الأول لعرض مسار الملف والسطر الثاني لتشغيل الملف



    كما قلنا أنه يمكنك إضافة ازرار خاصة للعمل.ويمكنك إضافة الأحداث

    مثلا

    MediaPlayer1.Pause
    MediaPlayer1.Play
    MediaPlayer1.Stop



    ويمكنك إضافة أحداث أخرى مثل عرض الإحصائيات والتكبير ...

    أكتب في مكان الحدث MediaPlayer1 ثم نقطة فتظهر لك قائمة إختر منها الأحداث وهي التي بجانبها أيقونة خضراء


    كما قلنا أن الدرس سهل ومفيد فقط عليك التجريب والصبر
    هكذا نكون قد أنهينا دروس الملتميديا نأمل أن نكون قد قدمنا فكرة عن كيفية تشغيل الملفات الصوتية والمرئية

  10. #30
    Banned
    رقم العضوية
    4105
    تاريخ التسجيل
    Oct 2005
    المشاركات
    489

    تشغيل البرامج والملفات



    تشغيل الملفات

    هناك عدة طرق لتشغيل الملفات في الويندوز من داخل الفيجوال بيسك.

    وقد وضعنا في هذا الدرس أهم الطرق لتشغيل الملفات التنفيذية والملفات الأخرى. لعنا نقدم الفائدة لكل مبرمج في الفيجوال بيسك.



    نبدأ بتشغيل الملفات التنفيذية ( البرامج EXE)

    أولاً - بإستخدام الدالة Shell :

    هذه الدالة تستخدمها الفيجوال بيسك لتشغيل الملفات التنفيذية.

    صيغتها العمامة كما يلي.

    Shell "File Name Path", WindowsStyle


    File Name Path : مسار الملف التنفيذي المراد تشغيله.

    WindowsStyle : طريقة عرض نافذة البرامج المراد تشغيله . وهذا الجدول يبين الثوابت لهذا الوسيط:

    الثابت vbHide قيمته0 شرحه تكون النافذة مخفية
    vbNormalFocus
    1 تكون النافذة في حجمها الطبيعي مع إعطاء التركيز لها
    vbMinimizedFocus
    2 تكون النافذة في وضع التصغير على شريط المهام وإعطائها التركيز
    vbMaximizedFocuse
    3 تكون النافذة في وضع التكبير مع إعطائها التركيز
    vbNormalNoFocus
    4 تكون النافذة في وضع التصغير دون إعطائها التركيز

    vbMinimizedNoFocus
    5 تكون النافذة في وضع التصغير دون إعطائها التركيز


    :

    Shell "notepad.exe", vbNormalFocus
    تشغيل المفكرة في الوضع العادي


    لاحظ انه لم نكتب المسار الكامل للمفكرة لأنها داخل مجلد النظام .

    ثانياً - بإستخدام إجراءات API .



    الدالة WinExec . وهي تشبه الدالة السابقة :

    يتم التصريح عن الدالة بالكود التالي في مديول:

    Declare Function WinExec& Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long)

    التشغيل:

    WinExec("Notepad.exe", vbMaximizedFocus)




    تشغيل الملفات الأخرى:

    لايمكننا تشغيل الملفات المرتبطة ببرامج خاصة عن طريق الدوال السابقة فوراً .

    ولاكن عليك كتابة مسار التطبيق أولاً . ثم مسار الملف المرتبط بالبرنامج. مثال:

    Shell "Notepad.exe c:\windows\faq.txt", vbNormalFocus

    لوفرضنا أنك لم تعرف البرنامج المرتبط بالملف . فالدالة التالية تقوم بمعرفة البرنامج المقترن وتشغيله:

    الدالة ShellExecute.

    التصريح عنها : في قسم التصريحات General

    Private Declare Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
    As String, ByVal lpFile As String, ByVal lpParameters _
    As String, ByVal lpDirectory As String, ByVal nShowCmd _
    As Long) As Long

    وسيطات الدالة :

    hwnd : مقبض النافذة.
    lpOperation : احدى المعاملين "Print" للطباعة و "Open" للفتح.
    lpFile : اسم الملف لمراد تطبيق العملية عليه.
    lpParameters : الوسيطات المراد تمريرها إلى جوار اسم الملف (في حال وجودها).
    lpDirectory : اسم المجلد الذي يقع عليه الملف.
    nShowCmd : مطابقة للوسيطة windowstyle التابعة للدالة Shell .

    مثال:

    ShellExecute hwnd, "Open", "Calc.exe", vbNullString, vbNullString, 3

    لتشغيل كافة الملفات :

    ضع هذا التصريح في قسم General بعد التصريح الأساسي للدالة

    Sub ShellDocument(FileName As String)
    Dim Ret&
    Ret = ShellExecute(hwnd, "Open", FileName, "", "", 1)
    If Ret <= 32 Then
    Select Case Ret
    Case 2&
    MsgBox "لم يتم العثور على الملف"
    Case 3&
    MsgBox "المسار غير موجود"
    Case 5&
    MsgBox "تعذر الوصول"
    Case 8&
    MsgBox " ذاكرة غير كافية"
    Case 11&
    MsgBox "هناك خلل في البرنامج"
    Case 32&
    MsgBox "مكتبة الربط الديناميكي غير موجودة"
    Case 31&
    MsgBox "لايوجد برنامج مقترن لفتح هذا الملف"
    Case Else
    MsgBox "خطأ غير معرف "
    End Select
    End If
    End Sub

    للتشغيل هذا الكود :

    ShellDocument "c:\windows\faq.txt"


    إنتهى درسنا نأمل أنكم إستفدتم

صفحة 3 من 4 الأولىالأولى 1234 الأخيرةالأخيرة

ضوابط المشاركة

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •