PROBLEMA: Como utilizar a automatização erro código & ajuda a partir do Visual Basic

Voltar ao topo

Fragmentos de código de exemplo

/* Compile options needed:
   standard MFC OLE project generated by AppWizard*/ 
				

1. O método no servidor de automatização lança a excepção de despacho deve reter o contexto de ajuda e wCode como variável de membro o objecto de automatização como nesta função:

      void CMyObject::Exception()
      {
         m_nIDContext = <some context>;
         m_nSomeCode = <some code>;
         AfxThrowOleDispatchException(m_nSomeCode,"String",m_nIDContext);
      }
   						

2. O servidor de automatização deve expõe um método que utiliza as variáveis de membros iniciar WinHelp ou outro motor de ajuda com o contexto actual da excepção como neste código:

      short CMyObject::GetError()
      {
         // From here you can use the member variable code
         // and context to start WinHelp or do whatever
         // help code you need to do ...
         AfxGetApp()->WinHelp(m_nIDContext);
         return m_nSomeCode;
      }
   						

3. O erro do Visual Basic rotina de tratamento deve chamar o método erro expostas no servidor de automatização quando ocorre uma excepção de despacho. Segue-se exemplo de código do Visual Basic:

      Sub Command1_Click ()
         On Error GoTo EHandle
         Dim a As object
         Set a = CreateObject("TestAuto")
         ' Next line causes exception:
         a.exception
      EHandle:
         Msg = "The error message for error number "
         Msg = Msg & Err & " is:" & NL & NL
         Msg = Msg & """" & Error(Err) & """"
         MsgBox Msg  ' Display message.
         ' Next line starts WinHelp engine by calling method in server.
         a.GetError
         Exit Sub
      End Sub

Voltar ao topo