用EXCEL函数、VBA+ACCESS制作仿用友U8的ERP管理系统

tomyi

我用的VC，采用的TCP（任务管理器）来实现的，右侧是一个树形控件，不知道能否用上

我们至少可以交流编程思想。

GUANCHZH

tomyi 发表于 2012-6-24 21:22
我用的VC，采用的TCP（任务管理器）来实现的，右侧是一个树形控件，不知道能否用上

我们至少可以交流编程 ...

能具体说说是怎样实现的吗?

tomyi

记得有本VBA的书籍讲了一下TCP的实现，书名忘了，VBA实现还是相对简单一些。


其核心内容就是：
1、实现TCP接口及相应的COM消息 ---- 可以创建一个空面板
2、创建一个Active窗口控件，         ----- 将控件存放在空面板上

1、派生TCP接口
1.1、派生TCP接口
// 任务窗格
public IDispatchImpl<ICustomTaskPaneConsumer, &__uuidof(ICustomTaskPaneConsumer), &__uuidof(Office::__Office), /* wMajor = */ 2, /* wMinor = */ 4>,


1.2、实现COM消息
BEGIN_COM_MAP(CTYXlAddin)
  COM_INTERFACE_ENTRY(ITYXlAddin)
  //DEL  COM_INTERFACE_ENTRY(IDispatch)
  COM_INTERFACE_ENTRY(ISupportErrorInfo)
  COM_INTERFACE_ENTRY2(IDispatch, ITYXlAddin)
  COM_INTERFACE_ENTRY(_IDTExtensibility2)
  COM_INTERFACE_ENTRY(ICustomTaskPaneConsumer)  // 任务窗格
END_COM_MAP()

1.3 、实现接口消息函数
// 任务窗格
STDMETHODIMP CTYXlAddin::raw_CTPFactoryAvailable (Office::ICTPFactory * CTPFactoryInst)
{
  // 创建控件
//*
       _CustomTaskPane* pTaskPane = NULL;
       HRESULT hr = S_OK;
       VARIANTARG vargParentWindow;
       vargParentWindow.vt = VT_ERROR;
       vargParentWindow.scode = DISP_E_PARAMNOTFOUND;
      

       hr = CTPFactoryInst->CreateCTP(
              CComBSTR(L"TYCTPMsg.TPCControl"),   //TYCTPMsg.TPCControl 是一个Active 控件
              CComBSTR(L"自己任务窗格"), vargParentWindow, &pTaskPane);
       if (SUCCEEDED(hr))
       {
              hr = pTaskPane->put_Visible(TRUE);
       }
       return hr;

  return E_NOTIMPL;
}

2、创建控件 ---TYCTPMsg.TPCControl，
这就相当简单了。不再过多叙述

tomyi

请参看这个链接
Creating Custom Task Panes in the 2007 Office System

不知道关联链接为啥无效，地址如下
http://msdn.microsoft.com/library/aa338197(office.12).aspx

GUANCHZH

tomyi 发表于 2012-6-25 10:09
请参看这个链接
Creating Custom Task Panes in the 2007 Office System

非常感谢!
这个链接打开怎么是英文的,看不懂.

tomyi

还是懂点e文好

poor.456

54844062@qq.com,给发一下了

GUANCHZH

poor.456 发表于 2012-7-3 12:15
,给发一下了

抱歉,系统正在制作中

yql4688

生产系统只能先按你们公司的流程来，各个公司的流程和层次不一样，不好统一吧

mingguwu2008

看看，详细论证分析