????? ?????? ??????? PowerPoint 2002 ???????? Visual Basic .NET 2002

?????? ????????? ?????? ?????????
???? ???????: 308330 - ??? ???????? ???? ????? ????? ??? ???????.
??? ????? ??? ???????. ????? "??? ??" ??? ??? ??????? ??? ????.
?????? ??? ????? Microsoft Visual C# .NET ?? ??? ???????? ???? 308825.
?????? ??? ????? Microsoft Visual C++ .NET ?? ??? ???????? ???? 309309.
????? ???? | ?? ????

??????

???? ??? ??????? ????? ?????? ????? Microsoft PowerPoint 2002 ???????? Microsoft Visual Basic .NET 2002.

??????? ????

???????? Microsoft Visual Studio .NET ? ?? ????? ??????? ????????? ??? ???? ??????? ?? PowerPoint. ?????? PowerPoint ????? IDispatch ????? ???????. ???? ???? ??? ???? ???????, ???? ??????? ????? Visual Basic .NET ?????? IConnectionPointContainer ? IConnectionPoint. ???? ????? ????? ??????? ??????? DISPIDs ??????? ??? ????. ?? ??? ????? ?? ????? ????? ????? ?? PowerPoint ??? DISPIDs ???? ???????? ?? ????? ???????? ???????? ????? ?????.

????? ???? ??????? ????? ?? ????? Visual Basic .NET

  1. ??? ????? Microsoft Visual Studio .NET. ?? ??????? ???? ???? ??? ???? ?? ???? ??? ???????. ??? ????? Project ???? ??? ?????? Visual Basic ?? ???? ??? ????? Windows ??? ?????. ??? ????? Form1 ???? ???????.
  2. ????? ???? ??? ????? ?????? Microsoft PowerPoint. ?????? ????? ???? ??????? ???????:
    1. ?? ??????? ??????? ???? ??? ????? ????.
    2. ??? ????? ??????? COM ????? ???? ????? ?????? Microsoft PowerPoint 10.0 ?? ???? ??? ?????. ??????: ??? ?? ??? ?? ??? ?????? ?????? ???, ?? ???????? ????? ?? ?? ?????? ?? Microsoft Office XP ???????? Interop ????????? (PIAs). ?????? ??? ??????? ?????? ??? Office XP PIAs ???? ??? ??? ??????? ????? ?????? ?? "????? ??????? ?? Microsoft:
      328912INFO: Microsoft Office XP PIAs ???????? ???????
    3. ???? ??? ????? ?? ???? ?????? ????? ????? ????? ??????? ????? ??. ??? ????? ???? ?????? wrappers ???????? ???? ?????? ???? ??? "???".
  3. ?? ??????? ???? ???? ??? "???? ??????? ??? ???? ??????? ?? ???? ?????? ?????? ????? ????? Form1".
  4. ?? ???????? ???? ????? ??????? ??? Button1 ? Button2Form1 ".
  5. ?? ???? ????????? ???????? ??????? ???????? ???????? ???????
    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
    					
    ??:
        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
    					
  6. ??? ?????? ??? ?????? ?????? ????????? ?? ???? ???? ????????? ????????:
    Imports System.Runtime.InteropServices 
    Imports Microsoft.Office.Interop
    					
  7. ?? ??????? ????????. ?????? ????? ???? ??????? ???????:
    1. ???? F5 ?????? ???????? ???????. ???? ????? PowerPoint.
    2. ???? ??? Button1 ?????? ??????? ?????.
    3. ????? ??? ?????? ???? ?? PowerPoint.

      ????? WindowActivate ? NewPresentation ? PresentationNewSlide ? WindowSelectionChange ???????.
    4. ??? ????? ????????.

      ????? ????? PresentationSave.
    5. ?? ?????? ????? ????????.

      ????? ????? PresentationClose.
    6. ????? Form1 ?? ????????. ???? ??????? ???? ?? ??????? ?????? PowerPoint ????? ??? ???????? ?????? ???????? ?? ???? ???????.
    7. ???? ??? Button2 ???? ??????? ?????.
    8. ?? ?????? "Form1".

?????

?????? ??? ??????? ??????? ???? ??? ??? ??????? ????? ?????? ?? "????? ??????? ?? Microsoft:
254009INFO: ??? PowerPoint 2000 ??????? ?????? ???????? ???????
?????? ??? ???? ?? ????????? ??? Office ??????? ???? ???? ??? Microsoft Office ????? ???????:
FAQs ? ??????? ?? ????? Office
http://support.microsoft.com/ofd

???????

???? ???????: 308330 - ????? ??? ??????: 01/???? ??????/1435 - ??????: 4.3
????? ???
  • Microsoft PowerPoint 2002 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
????? ??????: 
kbnosurvey kbarchive kbmt kbautomation kbhowto KB308330 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????308330

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com