Visio 2013 Preview和VB6：Microsoft Office无法验证此产品的许可证

Question

我正在尝试针对Visio 2013测试我们的应用程序，但是我遇到了一个在Visio 2013预览中引发消息的问题“Microsoft Office无法验证此产品的许可证。您应该使用控制面板修复Office程序”。< / p>

我有一个简单的VB6表单，上面有一个按钮。在按钮事件处理程序中，我有以下代码。

Private Sub Command3_Click()
   Dim visoObj As Visio.Application

   Set visoObj = New Visio.Application

   visoObj.Visible = True
End Sub

单击Visio应用程序，但消息“Microsoft Office无法验证此产品的许可证。您应该使用控制面板修复Office程序”。

我已检查产品是否已激活并尝试从添加/删除程序中卸载/重新安装/修复/重新输入密钥。

我也试过

cscript ospp.vbs /act

如http://answers.microsoft.com/en-us/office/forum/office_home-office_install/office-cannot-verify-the-license-for-this-product/3bb811ad-29d6-49c7-a3d0-4634c154d155?msgId=be64dcd6-ab02-4388-bb09-c9ab41ffe9ab

中所述

有没有人让VB6和Visio 2013预览工作？

如果您尝试将Visio 2013绘图控件添加到VB6表单上，也会收到此消息。

我也成功尝试过类似的代码来打开Word 2013 Preview和Excel 2013 Preview。这很好。只是无法弄清楚Visio有什么问题。

任何帮助？

Answer 1

要解决此问题，我必须关闭VB6.exe上的XP SP3兼容性。 关闭此功能后，我可以在没有许可证消息的情况下动态创建Visio.Application。

但这只是让我找到了另一个问题。

Visio 2013预览图形控件在适用于VB6或Visual Studio 2012 C＃表单的IDE中不起作用。

http://social.msdn.microsoft.com/Forums/en-US/csharpide/thread/f5c30d5d-4d53-4fd5-a14e-3ce22223c8c9