إلحاق
ملف التعليمات بمشروعات فيجوال بيسك
أ- في نافذة المشروع 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