Make your own free website on Tripod.com

إلحاق ملف التعليمات بمشروعات فيجوال بيسك

 

أ‌-     في نافذة المشروع Form ضع أداة CommonDialog

 

ب‌-   انقر أداة CommonDialog لتنشيطها وأعطها اسم وليكن CommonDialog1 وأمام الخاصية Help File أكتب اسم ملف التعليمات ، ويجب أن يكون امتداده hlp

ت‌-    من قائمة Project اختر Project properties  في آخر تلك القائمة من أسفل

ث‌-انقر ذلك الخيار (هنا HTMPPadEditor) تظهر لك النافذة التالية :

ج‌-   أمام خانة Help File انقر الزر  وحدد موضع ملف التعليمات وبذلك تكون قد حددت حساسية الملف للسياق وهذا يعني لدي تعليمك لأى أمر ثم نقر الزر F1 يظهر ملف التعليمات مباشرة علي الصفحة التي تحوي الأمر .

ح‌-  وإذا أردت إظهار ملف التعليمات عن طريق نقر زر أو نقر أيقونة أو قائمة منسدلة فخصص الأيقونة أو القائمة أو الزر للإجراء التالي :

Private Sub htmlHelpF_Click()

CommonDialog1.HelpFile = App.Path & "\htmlhelp.hlp"

CommonDialog1.HelpCommand = &hb

CommonDialog1.ShowHelp

End Sub

الآن يمكنك نقر الأيقونة و إظهار ملف التعليمات ولكن الإجراء السابق هو إجراء لقائمة اسمها htmlHelpF_Click()


مثال لتنفيذ ملف التعليمات عن دار نشر SYBEX

انشئ مشروع وضع عليه أداة CommonDialoge ، وأداة نص ، وأنشئ قائمة File ضمنها خروج من البرنامج ، وقائمة تسمي HELP وضمنها الخيارات

اسمها

القائمة

mnuHelpContentsFile

Contents

mnuHelpTopicFiles

Topics

mnuHelpProject

Projects

وفيما يلي أسماء الأداتين

أسمها

نوع الأداة

 

dlgHelp

commonDialog

أداة حوارية

txtHelp

textbox

أداة نص

 

لدي تشغيلك للبرنامج تظهر لك النافذة التالية :

في خانة النص أكتب اسم ملف التعليمات ذا الامتداد hlp فسوف تفتح الصفحة المقابلة للإختيار

وفيما يلي شفرة البرنامج

Option Explicit

 

Private Sub Form_Load()

    dlgHelp.HelpFile = App.HelpFile ‘يحمل ملف التعليمات من الفهرس النشط

End Sub

 

Private Sub mnuFileExit_Click()

    End

End Sub

 

 

Private Sub mnuHelpContentsFile_Click()

    With dlgHelp

        .HelpContext = "100"  يفتح علي الموضوع رقم 100 الذي حاشيته السفلية + 100

        .HelpCommand = cdlHelpContext

        .ShowHelp

    End With

End Sub

 

 

Private Sub mnuHelpProject_Click()

    With dlgHelp

        .HelpContext = "700"   يفتح علي الموضوع رقم 100 الذي حاشيته السفلية + 700

        .HelpCommand = cdlHelpContext

        .ShowHelp

    End With

End Sub

 

 

Private Sub mnuHelpTopicFiles_Click()

    With dlgHelp

        .HelpContext = "400"  يفتح علي الموضوع رقم 100 الذي حاشيته السفلية + 400

        .HelpCommand = cdlHelpContext

        .ShowHelp

    End With

End Sub

 

 

البداية

موضوعات متقدمة

-

القائمة

السابق