我建立了一个包含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/