PROBLEMA: Como utilizar erro código & ajuda de automação do Visual Basic

Voltar para o início

Trechos de código de exemplo

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

1. O método no servidor de automação que lança a exceção de expedição deve reter o contexto de Ajuda e wCode como variável de membro do objeto automação como essa função:

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

2. O servidor de automação deve expor um método que usa essas variáveis de membro para iniciar o WinHelp ou outro mecanismo de ajuda com o contexto de exceção como esse código real:

      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 manipulação deve chamar o método exposto erro no servidor de automação quando ocorre uma exceção de expedição. Aqui está o código do Visual Basic exemplo:

      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 para o início