Bir MFC Automation istemcisi PowerPoint'in oluþturma hakkýnda

Bu makalede, en az Microsoft Foundation Classes (MFC) kullanarak Microsoft PowerPoint nesne modeli iþlemek için bir Otomasyon denetleyicisi oluþturmak için gereken adýmlarý saðlar.

Bu makalede, bir öðretici kýlavuz tasarlanmýþtýr. Öðretici aþaðýdaki varsayýmlar yapar:

• Visual C++ ile alýþýk olduðunuz.
• MFC uygulamalarý nasýl yazýlýr ile sahibiyseniz.
• Microsoft PowerPoint geliþtirme makinenize var.
• Microsoft Visual C++ geliþtirme makinenizde yüklü olmasý.

Oluþturduðunuz örnek uygulama menü seçenekleri, PowerPoint davranýþýný denetlemek için kullanýr. Nasýl öðretici gösterir.

• PowerPoint 97 Nesne Kitaplýðý'ný (msppt8.olb), <a2>PowerPoint 2000 Nesne Kitaplýðý'ný (msppt9.olb)</a2> veya <a4>PowerPoint 2002 Nesne Kitaplýðý'ný (msppt.olb) COleDispatchDriver sarmalayýcý sýnýflarý oluþturmak için kullanýn.
• Uygulama nesnesine baðlanýn.
• Sunular oluþturun.
• Slayt oluþturun.
• Þekiller, slayttaki oluþturun.
• Slayt Gösterisi'ni çalýþtýrýn.

Not: Bu makalede, Visual C++ MFC uygulamasý PowerPoint nesne modeli denetleme hakkýnda temel bilgileri göstermek için tasarlanmýþtýr. Oluþturulan kod üretim kalitesinde olmasý amaçlanmýþtýr. Kodlama teknikleri mümkün olduðunca basitleþtirmek için seçildi.

Not: Microsoft Foundation Classes kullanmaya alternatif, Visual C++ sýnýflarý bir tür kitaplýðý içeriðini dönüþtürmek için Visual C++ Derleyici <a1>alma</a1> özelliðini kullanabilirsiniz.

Alma yönergesini hakkýnda daha fazla bilgi için lütfen çevrimiçi belgelerine bakýn. Bir kod örneði için lütfen COMEXCEL örneðe bakýn.

Microsoft örnekleri, Visual Basic for Applications ve Visual C++ yordamlar yalnýzca gösterim için da dahil ancak bunlarla sýnýrlý olmamak satýlabilirlik ve/veya belirli bir amaca uygunluk zýmni hiçbir garanti olmamak kaydýyla, örtülü veya açýk garanti saðlar. Bu makalede, Visual C++ yordamlar "olduðu gibi" saðlanmýþtýr ve Microsoft, tüm durumlarda kullanýlabilir garanti etmez. Microsoft destek mühendisleri, belirli bir makroyu iþlevselliðinin açýklanmasýna yardýmcý olabilir, ancak ek iþlevsellik saðlamak amacýyla bu örnekleri deðiþtirmezler veya özel gereksinimlerinizi karþýlamak için makrolar oluþturun yardýmcý olur. Sýnýrlý programlama deneyiminiz varsa, Microsoft Solution saðlayýcýlarýndan birini baþvurun isteyebilirsiniz. Çözüm saðlayýcýlarý, çok çeþitli özel makrolarý oluþturmak gibi ücret-tabanlý hizmetler sunar. Microsoft Solution hakkýnda daha fazla bilgi için (800) 426-9400 adresindeki Microsoft Müþteri bilgi hizmeti saðlayýcýlarý, arayýn.

1. Adým: ile AppWizard uygulama çerçevesi oluþturun...

1. Microsoft Visual C++ sürüm 5. 0'ý baþlatýn.
2. MFC AppWizard yeni bir proje oluþturun. Bu iþlem gerçekleþir:
   1. Dosya menüsünde Yeni'yi týklatýn.
   2. Seçilmemiþse, Projects sekmesini týklatýn.
   3. MFC AppWizard (exe)</a0> proje tipini týklatýn.
   4. Proje adý alanýnda projeniz için bir ad yazýn. Bu adýmlarda, adý TestPPT kullandýðýnýz varsayýlmaktadýr.
   5. MFC AppWizard baþlatmak için Tamam'ý týklatýn.
3. SDI uygulama OLE Otomasyonu desteðiyle oluþturma. Bu iþlem gerçekleþir:
   1. Tek bir belgeyi týklatýn ve sonra Next'i (ileri) týklatýn.
   2. Yeniden ileri'yi týklatýn. Bu örnek destek veritabaný yoktur.
   3. ActiveX denetimleri</a1> onay kutusu seçimini kaldýrýn ve sonra <a0>Otomasyon</a0> onay kutusunu seçin. Son'u (Bu örnekte AppWizard içinde diðer adýmlarý özelleþtirmek için gerekmez.)
   4. Skeleton projesi belirtimleri kabul etmek için Tamam'ý týklatýn.

Adým 2: Msppt8.olb (PowerPoint 97), <a1>Msppt9.olb</a1> (PowerPoint 2000) veya <a1>Msppt.olb</a1> (PowerPoint 2002) tabanlý COleDispatchDriver sarýcý sýnýflar oluþturma

1. Görünüm menüsünde ClassWizard'ý týklatýn.
2. Add class düðmesini týklatýn ve aþaðý açýlan listede bir tür kitaplýðý ilk'i týklatýn.
3. Tür kitaplýðý iletiþim kutusundan alma, PowerPoint 97'de, PowerPoint 2000 veya PowerPoint 2002'de (.olb dosyasý Office klasöründe bulunur) Msppt.olb Msppt9.olb dosyaya Msppt8.olb dosyasýnýn konumuna gidin. Microsoft Office'in varsayýlan yükleme seçeneklerini seçtiyseniz, yolu aþaðýdaki gibi görünmelidir:
   C:\Program Files\Microsoft Office\Office
4. Msppt8.olb/Msppt9.olb/Msppt.olb'ý týklatýn ve sonra da Aç'ý týklatýn.
5. Uygulamanýz kullanmak istediðiniz sýnýfý seçin.
   
   Not: Msppt8.olb/Msppt9.olb/Msppt.olb dosyasýndan ek sýnýflarý ekleyebilir, herhangi bir anda bu nedenle þimdi yaptýðýnýz seçimlerin kalýcý deðildir.
   
   Için (birden çok sýnýf'ý seçin, denetim tuþu basýlý tutun ve istediðiniz sýnýflarý seçmek için), aþaðýdaki sýnýflarý bu Eðitmeni seçin:

       - _Application
       - SlideShowSettings
       - Presentations
       - Slides
       - _Slide
       - Shapes
       - _Presentation
   						

   yukarýdaki sýnýflarý seçme tamamladýktan ve MFC ClassWizard kapatmak için Tamam'ý týklatýn, Tamam'ý týklatýn.

3. Adým: PowerPoint menü oluþtur

Bir PowerPoint menü MFC uygulamasý için aþaðýdaki seçenekleri ile oluþturun:

• PowerPoint'i baþlatýn
• Sunu oluþturma
• Slayt oluþturma
• Þekil ekleme
• Gösterisi'ni baþlatma
• PowerPoint'nden çýkýn.

Bu iþlem gerçekleþir:

1. Çalýþma alanýnýzý <a1>ResourceView</a1> sekmesini týklatýn.
2. TestPPT kaynaklarý klasörü açýn.
3. Menü klasörü açýn.
4. IDR_MAINFRAME kaynak'ý çift týklatýn.
5. Metin, Yardým menüsünden saðýnda bulunan dikdörtgen</a1> çift týklatýn. Bu menü öðesi özellikleri iletiþim kutusunu açar.
6. Genel sekmeyi týklatýp baþlýk alanýna aþaðýdaki metni yazarak PowerPoint menü oluþtur: PowerPoint
   
   
7. PowerPoint altýndaki dikdörtgeni çift ve aþaðýdaki metni baþlýk alanýna PowerPoint Baþlat menü seçeneði oluþturun: PowerPoint Baþlat
   
   
8. Sunu Oluþtur</a1> menü seçeneðini Baþlat PowerPoint altýndaki dikdörtgeni çift ve baþlýk alanýna aþaðýdaki metni yazarak oluþturun: Sunu oluþturma
   
   
9. Sunu oluþtur altýndaki dikdörtgeni çift ve aþaðýdaki metni baþlýk alanýna oluþtur slayt menü seçeneði oluþturun: Create slayt
   
   
10. Oluþtur Slayt altýndaki dikdörtgeni çift ve aþaðýdaki metni baþlýk alanýna yazmak için <a0>Þekil Ekle</a0> menü seçeneði oluþturun: Þekil ekleme
    
    
11. Þekil Ekle altýnda dikdörtgeni çift ve aþaðýdaki metni baþlýk alanýna yazmak için <a0>Slayt Gösterisi</a0> menü seçeneði ve onun alt menüleri oluþturun: Gösterisi Baþlat
    
    
12. Slayt gösterisi altýnda dikdörtgeni çift ve aþaðýdaki metni baþlýk alanýna Çýk PowerPoint menü seçeneði oluþturun: PowerPoint Çýk
    
    
13. Menü öðesi özellikleri iletiþim kutusunu kapatýn.

Adým 4: Seçenek menüsü iþleyicileri için Kancalarý oluþtur

1. ResourceView içinde sað týklatýn, Baþlat menüsü seçeneðini PowerPoint ClassWizard'ý týklatýn.
2. COMMAND iletiyi seçin ve iþlev Ekle'yi týklatýn. Bu üye iþlev Ekle iletiþim kutusunu. Not açar: Proje adý TestPPT ve sýnýf adý CMainFrame emin olun.
3. Kaynak KIMLIÐI adý deðiþmedi koþuluyla, iþleyicinin adýný olmalýdýr:

         OnPowerpointStartpowerpoint
   					

   bu adý kabul etmek için Tamam'ý týklatýn.
4. 1'Den kalan menü seçenekleri için iþleyiciler oluþturmak için 3'e kadar olan adýmlarý yineleyin. Tüm iþleyiciler oluþturduktan sonra ClassWizard kapatmak için Tamam'ý týklatýn.

Adým 5: komut iþleyicisi kodu ekleyin...

1. Uygulama nesnesi tutulacaðý bir üye deðiþkeni oluþturmak için þu adýmlarý izleyin ve bitirdiðinizde Tamam'ý týklatýn:
   1. Çalýþma alanýnýzý <a1>ClassView</a1> sekmesini týklatýn.
   2. TestPPT sýnýflarý açýn.
   3. CMainFrame sýnýfý simgesini sað týklatýn ve Ekle'yi týklatýn baðlam menüsünde üye deðiþkeni.
   4. Aþaðýdaki bilgileri <a2>Ekle</a2> üye girin deðiþken iletiþim kutusuna ve bitirdiðinizde Tamam'ý týklatýn:

             Variable Type: _Application
             Variable Declaration: m_ppt
             Access: Private
   					

2. Uygulama nesnesine baðlanmaya CMainFrame sýnýf kurucusunu deðiþtirin. Bitirdiðiniz zaman, CMainFrame kurucu aþaðýdaki gibi görünmelidir:

         CMainFrame::CMainFrame()
         {
            // Create an instance of the PowerPoint application.
            m_ppt.CreateDispatch("PowerPoint.Application");
         }
   					

3. Komut iþleyici için aþaðýdaki kodu ekleyin: PowerPoint Baþlat:
   

         void CMainFrame::OnPowerpointStartpowerpoint()
   
         {
   
            // Check if the IDispatch connection exists with PowerPoint,
            // if not create one.
            if (m_ppt.m_lpDispatch == NULL) {
   
               // Create IDispatch connection to PowerPoint.
               m_ppt.CreateDispatch("PowerPoint.Application");
   
            };
   
            // Bring the PowerPoint application to the front.
            m_ppt.Activate();
   
         }
   					

   Gösterisi Baþlat:
   
   

         void CMainFrame::OnPowerpointStartslideshow()
         {
   
            _Presentation oPresentation;
            SlideShowSettings oShow;
   
            // Attach to the Active Presentation.
            oPresentation.AttachDispatch(m_ppt.GetActivePresentation());
   
            // Attach to the slide-show settings.
            oShow.AttachDispatch(oPresentation.GetSlideShowSettings());
   
            // Run the slide show.
            oShow.Run();
   
         }
   					

   PowerPoint'nden çýkýn:
   
   

         void CMainFrame::OnPowerpointQuitpowerpoint()
         {
            // Check if PowerPoint is still running. If
            // PowerPoint is not running, quit PowerPoint
            // and release the dispatch pointer.
            if(m_ppt.m_lpDispatch != NULL) {
   
               // Quit PowerPoint. Note, the Quit command exits
               // PowerPoint without displaying any dialog boxes. So,
               // any unsaved data is lost.
               m_ppt.Quit();
   
               // Free the dispatch. This sets m_lpDispatch to NULL.
   
               m_ppt.ReleaseDispatch();
   
   
            };
         }
   					

   Slayt oluþturma:
   
   

         void CMainFrame::OnPowerpointCreateslide()
         {
            // Connect to the active presentation. There is no error trapping.
            // If the active presentation the framework traps
            // the error and displays a message box.
            _Presentation ActivePresentation(m_ppt.GetActivePresentation());
   
            // Connect to the slides collection.
            Slides oSlides(ActivePresentation.GetSlides());
   
            // This constant is defined in the PowerPoint Object model.
            // You can use the Object Browser, with Visual Basic Editor
            // (VBE), to look up the different constant values.
            const ppLayoutTitleOnly = 11;
   
            // Add a new slide to the presentation. This code adds the new
            // slide to the end of the presentation.
            oSlides.Add(oSlides.GetCount() + 1l, ppLayoutTitleOnly);
         }
   					

   Sunusu oluþturun:
   
   

         void CMainFrame::OnPowerpointCreatepresentation()
         {
   
            Presentations PresCollection;
   
            // Make sure there is a dispatch pointer for PowerPoint.
            if(m_ppt.m_lpDispatch == NULL) {
   
               // Display a message indicating that PowerPoint is not running.
               MessageBox("PowerPoint is not running.", "Start PowerPoint");
            } else {
   
               // Bring PowerPoint to the front.
               m_ppt.Activate();
   
               // Attach the presentations collection to the PresCollection
               // variable.
               PresCollection.AttachDispatch(m_ppt.GetPresentations());
   
               // Create a new presentation.
               PresCollection.Add(1);
            };
         }
   					

   Þekli ekleme:
   
   

         void CMainFrame::OnPowerpointAddshape()
         {
   
            // Connect to the active presentation object.
            _Presentation ActivePresentation(m_ppt.GetActivePresentation());
   
   
            // Connect to the Slides collection object.
            Slides oSlides(ActivePresentation.GetSlides());
   
            // Connect to the first slide in the presentation.
            long lIndex = 1;
            COleVariant SlideNumber(lIndex);
            _Slide oSlide(oSlides.Item(SlideNumber));
   
            // Connect to the Shapes collection.
   
            Shapes oShape(oSlide.GetShapes());
   
            // Create the heart shape on the slide.
            const long msoShapeHeart = 21;
            float l = 50,t = 150,w = 350,h = 350;
            oShape.AddShape(msoShapeHeart, l, t, w, h);
         }
   					

6. Adým: Oluþturma ve bu uygulamayý çalýþtýrma

1. Yapý) menüsünde, TestPPT.exe oluþtur) týklatýn.
   
   Not: ilk kez normalden oluþturmak için daha uzun sürer projesi oluþturun. Derleyici proje pre-compiled baþlýðý (.pch) nedeni budur. .Pch, projenizin, yaklaþýk dört megabayt boyutunda dosyadýr.
2. Yapý) menüsünde, TestPPT.exe Çalýþtýr'ý týklatýn. Farklý PowerPoint menüsünde Seçenekler'i seçmeyi deneyin.