Gewusst wie HTML-Text-Popup Windows in einem VBasic Program

Schrittweise Verfahren

1. Mit einem Texteditor, z. B. Word oder Notepad, erstellen Sie eine Thema-Textdatei (.txt), enthält den Text für den Popup-Fenstern. Es folgt ein Beispiel für wie die Anweisungen in der Textdatei aussehen soll:

         .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.
   
   						

   für jedes Thema ".topic" ist erforderlich, gefolgt von einem Leerzeichen und eine numerische Konstante oder Zahl. Die unmittelbar Zeile muss den Text enthalten, den im Popupfenster angezeigt werden sollen.
   
   Die Textdatei konnte auch wie folgt angezeigt:

         .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.
   
   						

   in diesem Beispiel müssen Sie die Konstanten IDH_MYTOPIC1, IDH_MYTOPIC2, IDH_MYTOPIC3 in der HLP-Datei im Abschnitt [MAP] wie folgt definieren:

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

   es werden zusätzliche Informationen zu die Textdatei Thema in der HTML Help Workshop Hilfe unter dem Thema "So erstellen Sie eine Datei kontextbezogene Hilfethema" erstellt.
2. Die Thema-Text-Datei im Abschnitt [FILES] und in der [TEXT POPUPS]-Abschnitt der Datei Hilfeprojektdatei. Es folgt ein Beispiel, wobei "cpopups.txt" der Name der Textdatei Thema ist:
   

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

   Hinweis: Verwenden Sie einen Text-Editor [TEXT POPUPS] hinzufügen und die # include-Anweisung.
3. Das folgende Beispiel zeigt die Definitionen in der Visual Basic-Anwendung erforderlich. Sie sollten diese Definitionen in eine Moduldatei in Ihrem Projekt einbeziehen:

         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"
   
   						

   Hinweis: Dieses Beispiel nimmt die CHM-Datei in demselben Verzeichnis wie die Visual Basic-Anwendung ist, da kein Pfad angegeben ist.
4. Legen Sie die KeyPreview-Eigenschaft des Formulars auf True fest.
5. Popupfenster festlegen die Werte in das Array-Ids, für jedes Steuerelement mit einen Text. Das erste Element sollte die Steuerelement-Id sein, die Sie erhalten können, indem Sie die GetDlgCtrlID-Routine. Das zweite Element sollte die Thema-Id sein, die in der Textdatei Thema angezeigt wird. Der folgt ein Beispiel zum Füllen des Arrays in das Form_Load-Routine:

         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
   
   						

   Hinweis: die letzten Paar in das Array muss Nullen (0) enthalten.
6. Abfangen der KeyUp-Methode der Form um das Drücken der F1-Taste zu erfassen. Zum Beispiel:

         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. Führen Sie die Visual Basic-Anwendung. Wählen Sie ein Steuerelement auf dem Formular aus, und drücken Sie die F1-TASTE.

Zum Anfang