ArcMap下停靠栏的设计与实现

        ArcMap 9.3下的UI风格着实比较粗糙，和国内很多软件UI相比汗颜呀,但是ArcMap在GIS编辑上的重要性是不言而喻的，最近想试着深入一下ArcMap的定制。ArcMap的可定制部分，无外乎菜单，工具栏，以及停靠栏，前二者，一般用户可能都接触过，例子也比较多，各种语言和代码都能找到，停靠栏在网上也能找到，VBA和C#比较多，但是C++开发的代码没有，原因是嵌入窗体到停靠栏中不容易实现。

       在开发自定义的停靠栏之前，说说停靠栏能干吗用。在ArcMap中，TOC控件就是用得最多的停靠栏，还有质量检查控件也是停靠栏。如果用户交互中涉及的属性与图形显示非常相关，强烈建议采用停靠栏的方式，例如在质检过程，如果非常多的信息需要通过图形关系来判断，打开属性表的方式并不是特别方便，应为属性表和Map容易相互遮盖影响交互，特别是在大数据量的情况下交互非常别扭。

       话题涉及到如何开发，很多人在网上问到如何开发，特别是采用C++开发，事实上用C++开发很不容易，因为你需要精确的控制非模式化窗口的每个过程，从创建到销毁都需要手工控制。

      因为9.3的后续版本下(10.0,10.1),ArcMap的风格完全改变到了，风格类似office2007，可能一定程度上会打消9.3下一部分用户的开发需求。但是接触了很多用户后，我发现大部分用户，仍然习惯9.3，而且9.3的用户也巨大。

     开始停靠栏的开发，我们需要准备好开发环境，vc6,ArcMap9.3。如果熟悉ATL更好。

1、准备一个测试用例，我做得很简单，就是一个Command用于激活停靠栏

STDMETHOD(OnClick)(){HRESULT hr;IDockableWindowManagerPtr ipDockableWindowManager;                  ipDockableWindowManager=m_ipDispatch;IUIDPtr ipUID(CLSID_UID);hr=ipUID->put_Value(CComVariant("{F884D1F0-C82F-40F1-A2EB-359D51F635F7}"));IDockableWindowPtr ipDockableWindow;//实例化停靠栏组件hr=ipDockableWindowManager->GetDockableWindow(ipUID,&ipDockableWindow);                  VARIANT_BOOL varVisual;          hr=ipDockableWindow->IsVisible(&varVisual);         //if (varVisual==VARIANT_TRUE){   //得到当前停靠栏的大小IWindowPositionPtr ipWindowPosition;                            ipWindowPosition=ipDockableWindow;long width;long height;hr=ipDockableWindow->Show(VARIANT_TRUE);hr=ipDockableWindow->Dock(esriDockBottom);hr=ipWindowPosition->get_Width(&width);hr=ipWindowPosition->get_Height(&height);}return S_OK;}

2、扩展IDockableWindowDef

STDMETHOD(OnCreate)(IDispatch * hook){//传递IApplication;        HRESULT hr;        IApplicationPtr ipApplication;        ipApplication=hook;OLE_HANDLE AppOLEHandle;hr=ipApplication->get_hWnd(&AppOLEHandle);    HWND hwnd=(HWND)AppOLEHandle;        m_TableForm.Create(hwnd,(LPARAM)(hook));       // m_TableForm.Create(hwnd);        ATLTRACE("\n***新建窗口\n");return S_OK;}

3、建立自己的窗口组件

4、添加自己的属性列表

属性列表是放在属性页中的，属性页被嵌入到每个Tab control中，

        LRESULT OnInitDialog(UINT uMsg, WPARAM wParam, LPARAM lParam, BOOL& bHandled)

{

         m_ipDispatch=(IDispatch * )lParam;         if(m_ipDispatch==NULL)           return 0;         USES_CONVERSION;   HRESULT hr;   //添加tab页   //path From dll      TCHAR szFullPathName[_MAX_PATH];   GetModuleFileName((HMODULE)(_Module.m_hInst),szFullPathName,_MAX_PATH);   TCHAR drive[_MAX_DRIVE];   TCHAR dir[_MAX_DIR];   TCHAR fname[_MAX_FNAME];   TCHAR ext[_MAX_EXT];   _wsplitpath(szFullPathName, drive, dir, fname,ext);   TCHAR szPathOfMdb[_MAX_PATH];   wcscpy(szPathOfMdb,drive);   wcscat(szPathOfMdb,dir);   wcscat(szPathOfMdb,_T("diyingli.mdb"));   CComBSTR bstrPathOfmdb=szPathOfMdb;          //Open mdb   IWorkspaceFactoryPtr ipWSF(CLSID_AccessWorkspaceFactory);   IWorkspacePtr ipWorkspace;   hr=ipWSF->OpenFromFile(bstrPathOfmdb,NULL,&ipWorkspace);   if (FAILED(hr))   {       ::MessageBox(NULL,_T("没有找到地应力数据库"),_T("错误"),MB_ICONERROR);       return 1;   }            //打开数据库加载空间数据表格   //esriDTTable   IStringArrayPtr ipStringArray(CLSID_StrArray);   IEnumDatasetNamePtr ipEnumDatasetName;            hr=ipWorkspace->get_DatasetNames(esriDTTable,&ipEnumDatasetName);   hr=ipEnumDatasetName->Reset();   IDatasetNamePtr ipDatasetName;   while (!ipEnumDatasetName->Next(&ipDatasetName))   {   CComBSTR bstrName;           hr=ipDatasetName->get_Name(&bstrName);   hr=ipStringArray->Add(bstrName);   }   long lStrCount;   hr=ipStringArray->get_Count(&lStrCount);           HWND hwnd=GetDlgItem(IDC_TAB1);   //Get Name and table Info from gdb   for (long i=0;i<lStrCount;i++)   {      CComBSTR bstrItemName;   hr=ipStringArray->get_Element(i,&bstrItemName);   TCITEM tci;   tci.mask = TCIF_TEXT;   tci.pszText =OLE2T(bstrItemName);   tci.cchTextMax = wcslen(OLE2T(bstrItemName)) + 1;   tci.iImage = -1;   tci.lParam = 0;   TabCtrl_InsertItem(hwnd,i,&tci);               //Add table to tab control   ITablePtr ipTable;   IFeatureWorkspacePtr ipFWS;                     ipFWS=ipWorkspace;   hr=ipFWS->OpenTable(bstrItemName,&ipTable);                      //添加属性页                         AddTableToTabControl(ipTable,hwnd);   }        //发送消息TCN_SELCHANGE          // 设置Tab第一项属性页为可显示   NMHDR   nmhdr;    nmhdr.code = TCN_SELCHANGE;          nmhdr.hwndFrom = hwnd;          nmhdr.idFrom=IDC_TAB1;          ::SendMessage(hwnd,WM_NOTIFY,MAKELONG(TCN_SELCHANGE,0),(LPARAM)(&nmhdr)); 

return 1;  // Let the system set the focus

}

 

最后的效果就是下面的图了。