仅使用VSTA在Corel Draw X6中创建自定义控件

Question

我正在使用 VSTA（Visual Studio for Applications）为 CorelDraw X6 创建插件（或插件），因为我喜欢 C＃和 .NET库。我想在 CorelDraw 工具栏中有一个按钮，因此当用户单击此按钮时会发生一些操作，例如，显示一个表单。为此，我使用预定义的解决方案 VSTAGlobal ，当我开始 CorelDraw 时，我就可以使用它。不幸的是， CorelDraw 中 VSTA 的否 官方文档（WTF !!!!!），相反，我们拥有 VBA（Visual Basic for Applications）文档和 CorelDraw对象模型。我搜索了很多内容并找到了一些链接：some forum post和YouTube video tutorial。问题是，两个人都创建了他们的 CustomControl （例如一个按钮），只需将其构建为* .dll，然后使用 VBA 脚本添加 CustomControl 到 CorelDraw 工具栏就像这样

Sub addLineWidthControl()
    Call FrameWork.CommandBars("Standard").Controls. '
         AddCustomControl("MyNameSpace.MyCustomControlClass", '
                          "MyCustomControlAssembly.dll")
End Sub

所以，我的问题是：有没有办法只使用VSTA ？

其他信息 ：

例如，在默认解决方案 VSTAGlobal 中，有一个带有[CgsAddInModule]属性的 Main 类：

[CgsAddInModule]
public partial class Main
{
    private Corel.Interop.VGCore.Application app;

    // some other code here...
}

这个类有一个构造函数（注意，默认并由 CorelDraw 提供）：

[CgsAddInConstructor]
public Main(object _app)
// this constructor probably gets an instance
// of CorelDraw application object.
{
    app = _app as Corel.Interop.VGCore.Application;
    // will it work if I add some code here?
}

也许这是我应该添加这样的地方的地方：

app.FrameWork.CommandBars["Standard"]
    .Controls.AddCustomControl("MyCustomControlClass");

我用最后一行代码做了一些实验。我得知 Controls 的 Count 正在增加，但 MyCustomControl 仍未显示在工具栏中。

Answer 1

有一种方法只能使用C＃（我在Corel X8中对此进行了测试，但它应该适用于任何具有VSTA的版本）。这是一个两部分的过程。首先，您需要在Corel中打开宏管理器并编辑VSTAGlobal解决方案。例如，如果要添加按钮和滑块，请添加以下方法：

[CgsAddInMacro]
        public void Add()
        {
            string controlAssembly = @"C:\VSTS\ScratchProjects\CoreDrawPoC\CoreDrawPoC\bin\Debug\CoreDrawPoC.dll";
            var mySlider = app.FrameWork.CommandBars["Standard"].Controls.AddCustomControl("CoreDrawPoC.MySlider", controlAssembly);
            mySlider.Caption = "Border Sizing Slider Caption";
            mySlider.ToolTipText = "Border Sizing Slider Tooltip";

            var myButton = app.FrameWork.CommandBars["Standard"].Controls.AddCustomControl("CoreDrawPoC.ButtonSample", controlAssembly);
            myButton.Caption = "Rectanlge Selector";
            mySlider.ToolTipText = "Rectanlge Selector Tooltip";

        }

添加此代码后，您需要为上面列出的文件夹添加.dll解决方案。打开Visual Studio 2015并创建一个新项目（我的名为CoreDrawPoC）。它需要是WPF用户控件库项目。使用创建2 .xaml文件。首先是滑块：

<UserControl x:Class="CoreDrawPoC.MySlider"
             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
             xmlns:local="clr-namespace:CoreDrawPoC"
             mc:Ignorable="d" >
    <Slider x:Name="mySlider" Width="100" Minimum=".5" Maximum="10" TickFrequency=".5" IsSnapToTickEnabled="True" ValueChanged="mySlider_ValueChanged"/>
</UserControl>

背后的代码是：

using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows;
using System.Windows.Controls;
using System.Windows.Data;
using System.Windows.Documents;
using System.Windows.Input;
using System.Windows.Media;
using System.Windows.Media.Imaging;
using System.Windows.Navigation;
using System.Windows.Shapes;

namespace CoreDrawPoC
{
    /// <summary>
    /// Interaction logic for UserControl1.xaml
    /// </summary>
    public partial class MySlider : UserControl
    {
        Corel.Interop.VGCore.Application appDraw = null;
        public MySlider()
        {
            InitializeComponent();
        }

        public MySlider(object app)
        {
            InitializeComponent();
            appDraw = (Corel.Interop.VGCore.Application)app;
        }

        private void mySlider_ValueChanged(object sender, RoutedPropertyChangedEventArgs<double> e)
        {
            if (appDraw != null && appDraw.ActiveDocument != null && appDraw.ActiveShape != null)
            {
                double width = appDraw.ConvertUnits((double)e.NewValue, Corel.Interop.VGCore.cdrUnit.cdrPoint, Corel.Interop.VGCore.cdrUnit.cdrInch);
                appDraw.ActiveSelectionRange.SetOutlineProperties(width);
            }
        }
    }
}

然后创建按钮：

<UserControl x:Class="CoreDrawPoC.ButtonSample"
             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
             xmlns:local="clr-namespace:CoreDrawPoC"
             mc:Ignorable="d">
    <Button x:Name="buttonSample" Click="buttonSample_Click" Width="24" Height="24" >
        <Button.Template>
            <ControlTemplate>
                <Image Source="C:\CorelIcons\Two.bmp"/>
            </ControlTemplate>
        </Button.Template>
    </Button>

</UserControl>

代码背后：

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows;
using System.Windows.Controls;
using System.Windows.Data;
using System.Windows.Documents;
using System.Windows.Input;
using System.Windows.Media;
using System.Windows.Media.Imaging;
using System.Windows.Navigation;
using System.Windows.Shapes;

namespace CoreDrawPoC
{
/// <summary>
/// Interaction logic for ButtonSample.xaml
/// </summary>
public partial class ButtonSample : UserControl
{
    Corel.Interop.VGCore.Application appDraw = null;
    public ButtonSample()
    {
        InitializeComponent();
    }
    public ButtonSample(object app)
    {
        InitializeComponent();
        appDraw = (Corel.Interop.VGCore.Application)app;
    }

    private void buttonSample_Click(object sender, RoutedEventArgs e)
    {
        SelectOfType("rectangle");
    }

    private void SelectOfType(string strType)
    {
        string strQuery = null;
        Corel.Interop.VGCore.ShapeRange srGroup = default(Corel.Interop.VGCore.ShapeRange);
        Corel.Interop.VGCore.ShapeRange srTopOnly = default(Corel.Interop.VGCore.ShapeRange);

        strQuery = "@type='" + strType + "'";
        srGroup = appDraw.ActivePage.Shapes.FindShapes("", 0, true, strQuery);
        srTopOnly = appDraw.ActivePage.Shapes.FindShapes("", 0, false, strQuery);
        srTopOnly.CreateSelection();
        appDraw.ActivePage.Shapes.FindShapes("", 0, false, strQuery).CreateSelection();

        //if (srTopOnly.Count == srGroup.Count)
        //{
        //    lblWarning.Visibility = System.Windows.Visibility.Hidden;
        //}
        //else
        //{
        //    lblWarning.Visibility = System.Windows.Visibility.Visible;
        //}
    }

}

}

完成后，您将需要编译代码。此外，您还需要创建图像C：\ CorelIcons \ Two.bmp。它只是一个24x24位图，看起来你想要它看起来。然后编译项目。你将需要将CorelDraw关闭。

成功编译后，您将需要运行VSTA宏来添加按钮和滑块。这个宏只需要运行一次！之后，它将直接连接到您的DLL中的代码。如果您更改了dll中的任何内容并在Corel关闭时更新它，则会更改它。这包括图像。

最后，我从2篇博客文章中学到了如何做到这一点，我只是将其更改为在标准命令栏中添加一个按钮并纯粹使用C＃。这些帖子是：

• https://forum.oberonplace.com/blog.php?b=165
• https://forum.oberonplace.com/blog.php?b=166