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

}

 

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