HTML Yardým metni açýlýr Windows nasýl VBasic bir programý

Adým adým yordamlar

1. Word veya Not Defteri gibi bir metin düzenleyicisi kullanarak bir <a0>metin</a0> konu dosyasý oluþturun (.txt), açýlýr pencereler metnini içerir. Aþaðýdaki ifadeler metin dosyasýnda nasýl görünmelidir, bir örnektir:

         .topic 1
         This is a text popup window for topic 1.
   
         .topic 2
         This is a text popup window for topic 2.
   
         .topic 3
         This is a text popup window for topic 3.
   
   						

   her konu için ".topic" ardýndan bir boþluk ve bir sayýsal sabit veya numara gereklidir. Açýlan pencerede görünmesini istediðiniz metni, hemen satýr içermelidir.
   
   Metin dosyasý da aþaðýdaki gibi görünebilir:

         .topic IDH_MYTOPIC1
         This is a text popup window for topic 1.
   
         .topic IDH_MYTOPIC2
         This is a text popup window for topic 2.
   
         .topic IDH_MYTOPIC3
         This is a text popup window for topic 3.
   
   						

   bu örnekte, sabitler, IDH_MYTOPIC1 IDH_MYTOPIC2, IDH_MYTOPIC3 Yardým proje dosyasýnýn [MAP] bölümünde aþaðýdaki þekilde tanýmlamak gerekir:

         [MAP]
   
         #define IDH_MYTOPIC1 1
         #define IDH_MYTOPIC2 2
         #define IDH_MYTOPIC3 3
   
   						

   HTML Yardým Atölyesi "içerik duyarlý Yardým konusu bir dosya oluþturmak için <a0></a0>" Yardým konu altýnda metin konu dosyasý oluþturma hakkýnda ek bilgi yok.
2. Konu metin dosyasýnýn [DOSYALARý] bölümünde ve buna dahil [METNEÇEVIR AÇýLANLARý] bölümüne Yardým proje dosyasý. Konu metin dosyasýnýn adý olduðu "cpopups.txt" verilmiþtir:
   

         [FILES]
         topic1.htm
         topic.htm
         cpopups.txt
   
         [TEXT POPUPS]
   
         #include cpopups.txt
   
   						

   Not: bir metin düzenleyicisi kullanarak [METNEÇEVIR AÇýLANLARý] ekleyin ve # deyimi içerir.
3. Aþaðýdaki örnek, Visual Basic uygulamanýz gereken tanýmlarý gösterir. Projenizde bir modüle dosyasýnda bu tanýmlarýný içermelidir:

         Public Const HH_TP_HELP_WM_HELP = &H11
   
         Declare Function HtmlHelpByRefArg Lib "hhctrl.ocx" Alias "HtmlHelpA"
         (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As
         Long, ByRef dwData As Any) As Long
   
         Type HH_IDPAIR
           dwControlId As Long
           dwTopicId As Long
         End Type
   
         'This array should contain the number of controls that have
         'context-sensitive help, plus one more for a zero-terminating
         'pair.
         Public ids(4) As HH_IDPAIR
   
         Declare Function GetDlgCtrlID Lib "user32" (ByVal hWnd As Long) As
         Long
   
         Public Const g_sHTMLHelpFile As String =
          "myhelpfile.chm::/cpopups.txt"
   
   						

   Not: Bu örnek, yol belirtildiðinden, .chm dosyasýný Visual Basic uygulamanýz ile ayný dizinde olduðunu varsayar.
4. Formun <a1>KeyPreview</a1> özelliðini true olarak ayarlayýn.
5. Bir metni içeren her denetim için açýlýr pencere, kimlikler dizisinde deðerlerini ayarlayýn. Ilk öðeyi GetDlgCtrlID yordamýný kullanarak edinebileceðiniz bir denetimin kimliði olmalýdýr. Ikinci öðe konusu metin dosyasýnda göründüðü konu kimliði olmalýdýr. Dizi Form_Load yordamýnda doldurmak bir örnek aþaðýda verilmektedir:

         Private Sub Form_Load()
   
          ids(0).dwControlId = GetDlgCtrlID(Me.MyButton.hWnd)
          ids(0).dwTopicId = 1
          ids(1).dwControlId = GetDlgCtrlID(Me.MyText.hWnd)
          ids(1).dwTopicId = 2
          ids(2).dwControlId = GetDlgCtrlID(Me.MyList.hWnd)
          ids(2).dwTopicId = 3
          ids(3).dwControlId = 0
          ids(3).dwTopicId = 0
   
         End Sub
   
   						

   Not: dizideki son çiftin sýfýr (0) bulunmalýdýr.
6. F1 tuþ basma yakalamak için formun <a1>KeyUp</a1> yöntemi kesintiye uðratabilir. Örneðin:

         Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
   
          If KeyCode = vbKeyF1 Then
   
               iRetCode = HtmlHelpByRefArg(Me.ActiveControl.hWnd,_
                     g_sHTMLHelpFile, HH_TP_HELP_WM_HELP, ids(0))
   
         End If
         End Sub
   
   						

7. Visual Basic uygulamanýz çalýþtýrýn. Formdaki bir denetim seçin ve F1 tuþuna basýn.

Üste