0

Actullay 我希望 powerpoint 必须打开并显示在我的表单本身上。我不想在 microsoft 中打开 powerpoint ......所以我做了我想要的,意味着 powerpoint 正在我自己的表单中打开。但问题是,在运行时 powerpoint 在表单上打开,同时另一个 powerpoint 实例正在打开,我不想要另一个。那么如何删除其他powerpoint实例呢?请检查代码。

using System.Runtime.InteropServices;
using ppt = Microsoft.Office.Interop.PowerPoint;
using Microsoft.Office.Core;

  public partial class Form2 : Form
  {
  [DllImport("user32.dll", EntryPoint = "FindWindow", SetLastError = true)]
    static extern IntPtr FindWindow(IntPtr ZeroOnly, string lpWindowName);

    [DllImport("user32.dll", SetLastError = true)]
    static extern IntPtr SetParent(IntPtr hWndChild, IntPtr hWndNewParent);

    [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]
    public static extern bool SetWindowText(IntPtr hwnd, String lpString);

    ppt.Presentation presentation;
    Microsoft.Office.Interop.PowerPoint.SlideShowView oSlideShowView;
    bool flag = false;
    public Form2()
    {
        InitializeComponent();
    }


    public void open(string FileName)
    {
        try
        {
            ppt.Application application;

            // For Display in Panel
            IntPtr screenClasshWnd = (IntPtr)0;
            IntPtr x = (IntPtr)0;

            application = new ppt.Application();

            presentation = application.Presentations.Open(FileName, MsoTriState.msoTrue, MsoTriState.msoTrue, MsoTriState.msoFalse);

            panel1.Controls.Add(application as Control);
            ppt.SlideShowSettings sst1 = presentation.SlideShowSettings;

            sst1.LoopUntilStopped = Microsoft.Office.Core.MsoTriState.msoTrue;

            ppt.Slides objSlides = presentation.Slides;

            sst1.LoopUntilStopped = MsoTriState.msoTrue;

            sst1.StartingSlide = 1;
            sst1.EndingSlide = objSlides.Count;

            panel1.Dock = DockStyle.Fill;

            sst1.ShowType = ppt.PpSlideShowType.ppShowTypeKiosk;

            ppt.SlideShowWindow sw = sst1.Run();
            //sw=Objssws
            oSlideShowView = presentation.SlideShowWindow.View;

            IntPtr pptptr = (IntPtr)sw.HWND;
            SetParent(pptptr, panel1.Handle);


        }
        catch (Exception)
        {

            throw;
        }

    }

    private void Form2_Load(object sender, EventArgs e)
    {
         OpenFileDialog openFileDialog = new OpenFileDialog();
        openFileDialog.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Personal);
       // openFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*";
        if (openFileDialog.ShowDialog(this) == DialogResult.OK)
        //string FileName = "C:\\Task\\Welcome to PowerPoint.ppt";
        open(openFileDialog.FileName);
    }

    private void timer1_Tick(object sender, EventArgs e)
    {
    }

    private void button1_Click(object sender, EventArgs e)
    {
        oSlideShowView.Next();
    }
}
4

2 回答 2

0

尝试设置application.Visible = false

于 2013-04-30T12:27:17.753 回答
0

只需替换以下行

演示文稿 = application.Presentations.Open(文件名,MsoTriState.msoTrue,MsoTriState.msoTrue,MsoTriState.msoFalse);

使用以下代码行: presentation = application.Presentations.Open(FileName, MsoTriState.msoFalse, MsoTriState.msoFalse, MsoTriState.msoFalse);

于 2021-10-29T22:03:42.707 回答