SORUN: Nasýl Otomasyon hata kodu ve Yardým'dan Visual Basic kullanýn.

Üste

Örnek kod parçacýklarýný

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

1. Gönderme özel durum oluþturduðunda, Otomasyon sunucusu yönteminde wCode ve Yardým içeriði bu iþlevi gibi <a1>Otomasyon</a1> nesnesinin üye deðiþkeni olarak korumak:

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

2. Otomasyon sunucusu gibi bu kod bir özel durum gelen gerçek içerikli WinHelp veya baþka bir Yardým alt yapýsý'ný baþlatmak için üye deðiþkenleri kullanan bir yöntem bulaþmasýna neden:

      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. Gönderildiði bir durum oluþtuðunda, yordamýna Visual Basic hata Otomasyon sunucusunu sunulma hata yöntemini çaðýrmalýsýnýz. Visual Basic kod örneði þöyledir:

      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

Üste