Como utilizar o HTML Help texto menu de contexto Windows num programa VBasic

Procedimentos passo a passo

1. Utilizando um editor de texto, tal como o Word ou o bloco de notas, crie um ficheiro de tópico de texto (.txt) que contém o texto para as janelas de pop-up. Segue-se um exemplo de aspecto das instruções no ficheiro de texto:

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

   para cada tópico, ".topic" for necessário, seguido por um espaço e um valor numérico constante ou número. A linha imediatamente a seguir, tem de conter o texto que pretende que apareça na janela de pop-up.
   
   O ficheiro de texto também pode aparecer da seguinte forma:

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

   neste exemplo, tem de definir as constantes IDH_MYTOPIC1, IDH_MYTOPIC2, IDH_MYTOPIC3 na secção [MAP] do ficheiro de projecto ajuda da seguinte forma:

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

   são informações adicionais sobre como criar o ficheiro de tópico de texto em HTML ajuda Workshop Help sob o tópico "para criar um ficheiro de tópico de ajuda sensível ao contexto".
2. Incluir o ficheiro de texto tópico na secção [FILES] e, no [texto menus de contexto] secção do ficheiro Ajuda do Project. Segue-se um exemplo em que "cpopups.txt" é o nome do ficheiro de texto do tópico:
   

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

   NOTA: Utilize um editor de texto para adicionar [texto POPUPS] e instrução o # include.
3. O exemplo seguinte mostra as definições necessários na aplicação do Visual Basic. Deverá incluir estas definições num ficheiro de módulo no projecto:

         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"
   
   						

   Nota: Este exemplo pressupõe que o ficheiro .chm é no mesmo directório que a aplicação do Visual Basic porque não for especificado um caminho.
4. Defina a propriedade Pré-visualizarChave do formulário como true.
5. Para cada controlo tem um texto de janela de pop-up, defina os valores na matriz de ids. O primeiro item deve ser o id de controlo, que pode obter utilizando a rotina GetDlgCtrlID. O segundo item deve ser o id de tópico que aparece no ficheiro de texto do tópico. Segue-se um exemplo de como preencher a matriz na rotina Form_Load:

         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
   
   						

   Nota: O último par na matriz tem de conter zeros (0).
6. Interceptar o método TeclaEmCima do formulário para capturar a tecla F1. Por exemplo:

         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. Execute a aplicação do Visual Basic. Seleccione um controlo no formulário e prima a tecla F1.

Voltar ao topo