Oturum a�

Select the product you need help with

Visual Basic .NET 2002'yi kullanarak PowerPoint 2002 olaylar� nas�l

Makale numaras�: 308330 - Bu makalenin ge�erli oldu�u �r�nleri g�r�n.

Otomatik terc�me makalelerin ne oldu�unu a��klayan yaz�y� okumak i�in buraya t�klay�n

�ngilizce ve T�rk�e'yi yan yana g�r�nt�leme

Buraya t�klayarak �ngilizce ve T�rk�e'yi yan yana g�r�nt�leyebilirsiniz.

Bu makalenin Microsoft Visual C# .NET s�r�m� i�in bkz: 308825

(http://support.microsoft.com/kb/308825/EN-US/ )

.
Bu makalenin Microsoft Visual C++ .NET s�r�m� i�in bkz: 309309

(http://support.microsoft.com/kb/309309/EN-US/ )

Hepsini a� | Hepsini kapa

�zet

Bu makalede, Microsoft Visual Basic .NET 2002'yi kullanarak, Microsoft PowerPoint 2002 olaylar� i�lemek a��klamaktad�r.

�ste | Geri Bildirim Ver

Microsoft Visual Studio .NET ile Temsilciler olaylar� PowerPoint'le batar kullanamazs�n�z. PowerPoint, olaylar� ba?latmak i�in �dispatch arabirimini kullan�r. Do�ru olaylar� batar i�in <a0></a0>, Visual Basic .NET uygulama IConnectionPointContainer ve IConnectionPoint arabirimleri'ni kullanman�z gerekir. Al�c� uygulama batar DISPIDs olaylar� da bilmeniz gerekir. Bu DISPIDs PowerPoint'�n T�r kitapl��nda listelenir, ancak ba�vuru i�in �rnek kodu listelenir.

�rnek Visual Basic .NET Otomasyon istemciye olu�turun

Microsoft Visual Studio .NET'i ba�lat�n. Dosya men�s�nde Yeni'yi t�klat�n ve Project ' � t�klat�n. Proje t�rleri alt�nda) Visual Basic Projects ' � t�klat�n ve �ablonlar� alt�nda Windows uygulamas� ' � t�klat�n. Varsay�lan olarak, Form1 olu�turulur.
Microsoft PowerPoint nesne kitapl��na bir ba�vuru ekleyin. Bunu yapmak i�in �u ad�mlar� izleyin:
1. Proje) men�s�nde Add Reference ' � t�klat�n.
2. COM sekmesinde, Microsoft PowerPoint 10.0 Nesne Kitapl�� ' n� bulun ve sonra da <a2>Se�</a2>'i t�klat�n. Not: �nceden yapmad�ysan�z, kar��dan y�kleyin ve sonra Microsoft Office XP Primary �nterop Assemblies y�klemeniz �nerilir (P�a). Office XP P�a hakk�nda'ek bilgi i�in Microsoft Knowledge Base'deki makaleyi g�r�nt�lemek �zere a�a��daki makale numaras�n� t�klat�n:
  328912
  (http://support.microsoft.com/kb/328912/EN-US/ )
  BILGI: Microsoft Office XP P�a y�kleme i�in kullan�labilir
3. Se�iminizi kabul etmek i�in Tamam <a0>Ba�vuru Ekle</a0> ileti�im kutusunda t�klat�n. Se�ti�iniz kitapl�klar i�in sar?c?lar? olu�turmak isteyen bir ileti al�rsan�z, Evet ' i t�klat�n.
G�r�n�m men�s�nden ara� kutusunu g�r�nt�lemek ve Form1'e, iki d��me ve bir liste kutusu eklemek i�in ara� ' � t�klat�n.
S�rayla Button1Button2 ve Form1 ' ni �ift t�klat�n.

Kod penceresinde a�a��daki kodu

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
                                                                Handles Button1.Click

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
                                                                Handles Button2.Click

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
                                                               Handles MyBase.Load

End Sub

ile:

    Private m_oConnectionPoint As UCOMIConnectionPoint
    Private m_Cookie As Integer
    Private oPPT As PowerPoint.Application

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
                                                                   Handles MyBase.Load
        ' Create a new instance of PowerPoint.
        oPPT = New PowerPoint.Application()

        ' Show PowerPoint to the user.
        oPPT.Visible = Microsoft.Office.Core.MsoTriState.msoTrue
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
                                                                    Handles Button2.Click
        ' Call Unadvise to remove the sink to the connection.
        m_oConnectionPoint.Unadvise(m_Cookie)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(oPPT)
        GC.Collect()
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
                                                                    Handles Button1.Click
        Dim oConnPointContainer As UCOMIConnectionPointContainer
        ' QI for IConnectionPointContainer.
        oConnPointContainer = CType(oPPT, UCOMIConnectionPointContainer)
        ' Create a new variable that contains the GUID of the 
        ' PowerPoint.EApplication interface.
        Dim guid As New Guid("914934C2-5A91-11CF-8700-00AA0060263B")
        ' Find the connection point.
        oConnPointContainer.FindConnectionPoint(guid, m_oConnectionPoint)
        ' Call Advise to sink up the connection.
        m_oConnectionPoint.Advise(Me, m_Cookie)
    End Sub

    <DispId(2001)> Public Sub WindowSelectionChange(ByVal Sel As PowerPoint.Selection)
        Me.ListBox1.Items.Add("WindowSelectionChange")
    End Sub

    <DispId(2002)> Public Sub WindowBeforeRightClick(ByVal Sel As PowerPoint.Selection,
                                                               ByVal Cancel As Boolean)
        Me.ListBox1.Items.Add("WindowBeforeRightClick")
    End Sub

    <DispId(2003)> Public Sub WindowBeforeDoubleClick(ByVal Sel As PowerPoint.Selection,
                                                                ByVal Cancel As Boolean)
        Me.ListBox1.Items.Add("WindowBeforeDoubleClick")
    End Sub

    <DispId(2004)> Public Sub PresentationClose(ByVal Pres As PowerPoint.Presentation)
        Me.ListBox1.Items.Add("PresentationClose")
    End Sub

    <DispId(2005)> Public Sub PresentationSave(ByVal Pres As PowerPoint.Presentation)
        Me.ListBox1.Items.Add("PresentationSave")
    End Sub

    <DispId(2006)> Public Sub PresentationOpen(ByVal Pres As PowerPoint.Presentation)
        Me.ListBox1.Items.Add("PresentationOpen")
    End Sub

    <DispId(2007)> Public Sub NewPresentation(ByVal Pres As PowerPoint.Presentation)
        Me.ListBox1.Items.Add("NewPresentation")
    End Sub

    <DispId(2008)> Public Sub PresentationNewSlide(ByVal Sld As PowerPoint.Slide)
        Me.ListBox1.Items.Add("PresentationNewSlide")
    End Sub

    <DispId(2009)> Public Sub WindowActivate(ByVal Pres As PowerPoint.Presentation,
                                             ByVal Wn As PowerPoint.DocumentWindow)
        Me.ListBox1.Items.Add("WindowActivate")
    End Sub

    <DispId(2010)> Public Sub WindowDeactivate(ByVal Pres As PowerPoint.Presentation,
                                               ByVal Wn As PowerPoint.DocumentWindow)
        Me.ListBox1.Items.Add("WindowDeactivate")
    End Sub

    <DispId(2011)> Public Sub SlideShowBegin(ByVal Wn As PowerPoint.SlideShowWindow)
        Me.ListBox1.Items.Add("SlideShowBegin")
    End Sub

    <DispId(2012)> Public Sub SlideShowNextBuild(ByVal Wn As PowerPoint.SlideShowWindow)
        Me.ListBox1.Items.Add("SlideShowNextBuild")
    End Sub

    <DispId(2013)> Public Sub SlideShowNextSlide(ByVal Wn As PowerPoint.SlideShowWindow)
        Me.ListBox1.Items.Add("SlideShowNextSlide")
    End Sub

    <DispId(2014)> Public Sub SlideShowEnd(ByVal Pres As PowerPoint.Presentation)
        Me.ListBox1.Items.Add("SlideShowEnd")
    End Sub

    <DispId(2015)> Public Sub PresentationPrint(ByVal Pres As PowerPoint.Presentation)
        Me.ListBox1.Items.Add("PresentationPrint")
    End Sub


    <DispId(2016)> Public Sub SlideSelectionChanged(ByVal SldRange As PowerPoint.SlideRange)
        Me.ListBox1.Items.Add("SlideSelectionChanged")
    End Sub

    <DispId(2017)> Public Sub ColorSchemeChanged(ByVal SldRange As PowerPoint.SlideRange)
        Me.ListBox1.Items.Add("ColorSchemeChanged")
    End Sub

    <DispId(2018)> Public Sub PresentationBeforeSave(ByVal Pres As PowerPoint.Presentation,
                                                                   ByVal Cancel As Boolean)
        Me.ListBox1.Items.Add("PresentationBeforeSave")
    End Sub

    <DispId(2019)> Public Sub SlideShowNextClick(ByVal Wn As PowerPoint.SlideShowWindow,
                                                     ByVal nEffect As PowerPoint.Effect)
        Me.ListBox1.Items.Add("SlideShowNextClick")
    End Sub

<a0>Kod</a0> penceresinin �st�ndeki <a1>�mports</a1> b�l�m�ne a�a��dakileri ekleyin:
Imports System.Runtime.InteropServices Imports Microsoft.Office.Interop
Program s�nay�n. Bunu yapmak i�in �u ad�mlar� izleyin:
1. Olu�turmak ve bu program� �al��t�rmak i�in F5 tu�una bas�n. PowerPoint ba�lat�ld�.
2. Button1 olay havuzlar�n� i�in Ek Yard�m d��mesini t�klat�n.
3. Yeni sunuyu PowerPoint'te olu�turun.
  
  WindowActivate, NewPresentation, PresentationNewSlide ve WindowSelectionChange olaylar�n� harekete.
4. Sunuyu kaydedin.
  
  PresentationSave olay� harekete ge�irilir.
5. Sunuyu kapat�n.
  
  PresentationClose olay�n� harekete ge�irilir.
6. Form1, programda etkinle�tirin. PowerPoint taraf�ndan tetiklendi ve program taraf�ndan i�lenen olaylar, liste kutusunda g�r�n�r.
7. Button2 olay havuzlar�n� ba�lant�s�n� kesmek i�in Ek Yard�m d��mesini t�klat�n.
8. Form1 ' n� kapat�n.

�ste | Geri Bildirim Ver

Referanslar

Ek bilgi i�in, Microsoft Bilgi Bankas�'ndaki makaleyi g�r�nt�lemek �zere a�a��daki makale numaras�n� t�klat�n:

254009

(http://support.microsoft.com/kb/254009/EN-US/ )

BILGI: PowerPoint 2000 olay tan�t�m y�kleme i�in kullan�labilir

Office Otomasyonu hakk�nda daha fazla bilgi i�in a�a��daki Microsoft Office geli�tirme destek sitesine bak�n:

S�k sorulan sorular ve Office geli�tirme i�in �nemli noktalar
http://support.microsoft.com/ofd

(http://support.microsoft.com/ofd)

�ste | Geri Bildirim Ver

�zellikler

Makale numaras�: 308330 - Son G�zden Ge�irme: 30 Ocak 2007 Sal� - G�zden ge�irme: 4.3

Bu makaledeki bilginin uyguland�� durum:

Microsoft PowerPoint 2002 Standard Edition
Microsoft Visual Basic .NET 2002 Standard Edition

kbmt kbautomation kbhowto KB308330 KbMttr

Otomatik Terc�me

�NEML�: Bu makale, bir ki�i taraf�ndan �evrilmek yerine, Microsoft makine-�evirisi yaz�l�m� ile �evrilmi�tir. Microsoft size hem ki�iler taraf�ndan �evrilmi�, hem de makine-�evrisi ile �evrilmi� makaleler sunar. B�ylelikle, bilgi bankam�zdaki t�m makalelere, kendi dilinizde ula�m�� olursunuz. Bununla birlikte, makine taraf�ndan �evrilmi� makaleler m�kemmel de�ildir. Bir yabanc�n�n sizin dilinizde konu�urken yapabilece�i hatalar gibi, makale; kelime da�arc��, s�z dizim kurallar� veya dil bilgisi a��s�ndan yanl��lar i�erebilir. Microsoft, i�eri�in yanl�� evrimi veya onun m��teri taraf�ndan kullan�m�ndan do�an; kusur, hata veya zarardan sorumlu de�ildir. Microsoft ayr�ca makine �evirisi yaz�l�m�n� s�k�a g�ncellemektedir.

Makalenin �ngilizcesi a�a��daki gibidir:308330

(http://support.microsoft.com/kb/308330/en-us/ )

�ste | Geri Bildirim Ver

Geri Bildirim Ver

�ste

Makale �evirileri

United States (English)

Select the product you need help with

Visual Basic .NET 2002'yi kullanarak PowerPoint 2002 olaylar� nas�l

�zet

Daha fazla bilgi

�rnek Visual Basic .NET Otomasyon istemciye olu�turun

Referanslar

�zellikler

Bu makaledeki bilginin uyguland�� durum:

Anahtar Kelimeler:�

Geri Bildirim Ver

Makale �evirileri

Select the product you need help with

Visual Basic .NET 2002'yi kullanarak PowerPoint 2002 olaylar� nas�l

�zet

Daha fazla bilgi

�rnek Visual Basic .NET Otomasyon istemciye olu�turun

Referanslar

�zellikler

Bu makaledeki bilginin uyguland��� durum:

Anahtar Kelimeler:�

Geri Bildirim Ver

Makale �evirileri

Bu makaledeki bilginin uyguland�� durum: