我建立了一个包含Winform的C#dll。我想从Excel VBA中打开表单。第一次尝试总是成功的。它会打开并执行我要执行的所有操作。然后,使用右上方的红色X关闭它。

当我再次尝试打开它时,总是收到错误消息:
“必须在应用程序中创建第一个IWin32Window对象之前,必须调用SetCompatibleTextRenderingDefault。”来源:System.Windows.Forms

WinForms类是Visual Studio生成的标准类。我在另一个类中实例化它:

namespace Schnittstellenvererbung
{
    [ComVisible(true), Guid("5D16EABF-B89F-45A1-8E4D-ACFAA084BF6F")]
    [InterfaceType(ComInterfaceType.InterfaceIsDual)]
    public interface ISchnittstellenvererbung
    {
        string ShowForm1();
    }

    [ComVisible(true), Guid("6A9EF0BB-BFF3-456E-B025-CB6A25F81F59")]
    [ProgId("Test.SchnittstellenvererbungExecuteProgram")]
    [ClassInterface(ClassInterfaceType.None)]
    public class ExecuteProgram : ISchnittstellenvererbung
    {
        public string ShowForm1()
        {
           try
            {
                Application.EnableVisualStyles();
                Application.SetCompatibleTextRenderingDefault(false);
                Form1 Oberflaeche;
                Oberflaeche = new Form1();
                Oberflaeche.ShowDialog();
            }
            catch(Exception e)
            {
                MessageBox.Show(e.Message + e.Source);
            }

            return "Done";
        }
    }
}


在Excel VBA中,调用非常简单:

Sub test()

    Dim y As String
    Dim x As New Schnittstellenvererbung.ExecuteProgram

    y = x.ShowForm1

End Sub


当我关闭Excel并重新打开它时,它在第一次尝试时就可以再次使用,但是第二次尝试又失败了。

我想知道为什么会出现此错误,因为在初始化表单之前总是调用方法SetCompatibleTextRenderingDefault。

有想法吗?

最佳答案

我在msdn中找到了解决方案。 Windows窗体在单独的线程中运行。示例代码是VB,但转换为C#并不难。如果有人需要帮助,可以使用teleriks代码转换器进行转换。

链接:

MSDN解决方案:https://msdn.microsoft.com/en-us/library/ms229591%28v=vs.110%29.aspx

代码转换器:http://converter.telerik.com/

10-07 19:01