Как использовать WPF UserControls или Windows изнутри Visual FoxPro 9

Я понятия не имею, можно ли запускать wpf внутри Visual FoxPro. Я предполагаю, что вам придется написать его как activex. Недавно я поработал над расширением приложения MS Access. Мое приложение wpf полностью отделено и работает вместе с приложением доступа ms. Я общался между ними с помощью очереди сообщений MS, которая является компонентом com. Может быть, такой подход сработает для вас.

Когда я хотел показать экран в wpf из доступа, я добавил кусок xml в локальную очередь сообщений. Приложение wpf прослушивает эти сообщения, передает их объектам, которые сообщают ему, какой экран показывать, и предоставляют ему какие-либо параметры. MS Access подписывается на событие полученного сообщения в очереди сообщений, и таким образом он может определить, когда окно wpf закрывается и пользователь завершает работу. Это было предназначено для использования шаблона душителя для постепенной замены функциональности в старом приложении доступа.

Вот код для очереди, которая управляет всем. Различные классы pop десериализованы из сообщения, и я создаю его как строку в доступе.

internal class QueueListener
{
    public const string qFromMadge = @".\private$\XXXXQ";
    public static string qToMadge = @".\private$\XXXXReturnQ";
    private MessageQueue mq;
    internal QueueListener()
    {
        try
        {
            SystemEvents.SessionSwitch += SystemEvents_SessionSwitch;
            SubscribeHandler();

            var mqSend = setUpQueue(qToMadge);
            mqSend.Close();
        }
        catch (Exception ex)
        {
            MessageBox.Show(ex.InnerException.Message);
        }
    }
    private MessageQueue setUpQueue(string qName)
    {
        MessageQueue q;
        if (MessageQueue.Exists(qName))
        {
            q = new MessageQueue(qName);
        }
        else
        {
            q = MessageQueue.Create(qName);
        }
        q.ResetPermissions();
        q.SetPermissions("Everyone", MessageQueueAccessRights.FullControl, AccessControlEntryType.Set);
        q.Purge();
        return q;
    }
    private void ReceiveMsgCompleted(Object source, ReceiveCompletedEventArgs asyncResult)
    {
        MessageQueue mq = (MessageQueue)source;
        Message m = mq.EndReceive(asyncResult.AsyncResult);
        m.Formatter = new XmlMessageFormatter(new[] { "XXXX.Popaaaa, XXXX"
                                                    , "XXXX.Popbbbb, XXXXX"
                                                    , "XXXX.Popcccc, XXXX"
                                                    , "XXXX.Popdddd, XXXX"
        });

        ((BasePopView) m.Body).Pop();

        mq.BeginReceive();
    }

    public  void UnsubscribeHandler()
    {
        if (mq == null)
        {
            return;
        }
        mq.Close();
        mq.ReceiveCompleted -= new ReceiveCompletedEventHandler(ReceiveMsgCompleted);
        mq = null;
    }
    public  void SubscribeHandler()
    {
        if(mq != null)
        {
            return;
        }
        mq = setUpQueue(qFromMadge);
        mq.ReceiveCompleted += ReceiveMsgCompleted;
        mq.BeginReceive();
    }