Como usar Ajuda em HTML texto pop-up Windows em um programa VBasic

Procedimentos passo a passo

1. Usando um editor de texto, como o Word ou o bloco de notas, crie um arquivo de tópico de texto (.txt) que contém o texto para as janelas pop-up. A seguir é um exemplo de como as instruções devem procurar o arquivo 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" é necessária, seguido por um espaço e um numérico constante ou número. A linha imediatamente seguinte deve conter o texto que você deseja que apareça na janela pop-up.
   
   O arquivo de texto também pode aparecer da seguinte maneira:

         .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, você precisará definir as constantes IDH_MYTOPIC1, IDH_MYTOPIC2, IDH_MYTOPIC3 na seção [MAP] do arquivo de projeto de Ajuda da seguinte maneira:

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

   há informações adicionais sobre como criar o arquivo de tópico de texto na HTML Help Workshop ajuda sob o tópico "para criar um arquivo do tópico da Ajuda contextual".
2. Incluir arquivo de texto tópico na seção [FILES] e, na [texto pop-ups] seção do arquivo Ajuda do Project. A seguir é um exemplo onde "cpopups.txt" é o nome do arquivo de texto de tópico:
   

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

   Observação: Use um editor de texto para adicionar [texto POPUPS] e o # include instrução.
3. O exemplo a seguir mostra as definições de necessário em seu aplicativo Visual Basic. Você deve incluir essas definições em um arquivo de módulo no seu projeto:

         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"
   
   						

   Observação: Este exemplo pressupõe o arquivo .chm está no mesmo diretório como o aplicativo Visual Basic porque nenhum caminho for especificado.
4. Defina a propriedade VisualizarTeclas do formulário como true.
5. Para cada controle que tem um texto de janela pop-up, defina os valores na matriz ids. O primeiro item deve ser a identificação de controle, que você pode obter usando a rotina GetDlgCtrlID. O segundo item deve ser a identificação de tópico que aparece no arquivo de texto de tópico. A seguir está 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
   
   						

   Observação: O último par na matriz deve conter zeros (0).
6. Intercepte o método KeyUp do formulário para capturar o pressionamento de 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 o aplicativo Visual Basic. Selecione um controle no formulário e pressione a tecla F1.

Voltar para o início