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
}
最后的效果就是下面的图了。