|
阅读:1544回复:3
[求助] 创建DockableWindow
<P>我参考AO的帮助创建了一个空的DockableWindow,但是在ArcMap中显示不出来,望高手指点。本想把我的程序打包传上来,但不知道如何传,我的QQ82536125,希望高手帮忙,或者留下联系方式。谢谢!</P>
|
|
|
1楼#
发布于:2007-06-28 09:12
<P>这个在开发包里有例子,不过你的问题也描述不清晰,希望你把开发环境和操作步骤说出来,</P>
|
|
|
|
2楼#
发布于:2007-06-28 10:09
<P>我就是照着那个例子做的,就把他的许多功能去掉了嘛,就想出来一个空的DockableWindow,用的是VB+AO,程序中建立了一个窗体,两个类模块,一个类模块是继承ICommand,那个我觉得没得什么问题,主要是用IDockableWindowDef的时候,我搞不清楚就是怎样把一个窗体定义为DockableWindow的,我的程序是这样的:</P>
<P>Option Explicit</P> <P>Implements IDockableWindowDef</P> <P>Dim m_pApp As IApplication</P> <P>Private Property Get IDockableWindowDef_Caption() As String<BR>IDockableWindowDef_Caption = "mydockable window"<BR>End Property</P> <P>Private Property Get IDockableWindowDef_ChildHWND() As esriSystem.OLE_HANDLE</P> <P>IDockableWindowDef_ChildHWND = Form1.List1.hWnd<BR>End Property</P> <P>Private Property Get IDockableWindowDef_Name() As String<BR>IDockableWindowDef_Name = "Overview Window"<BR>End Property</P> <P>Private Sub IDockableWindowDef_OnCreate(ByVal hook As Object)<BR> Set m_pApp = hook<BR>End Sub</P> <P>Private Sub IDockableWindowDef_OnDestroy()<BR>Set m_pApp = Nothing<BR>End Sub</P> <P>Private Property Get IDockableWindowDef_UserData() As Variant</P> <P>End Property<BR>希望楼上那位再帮我看一下,谢谢!</P> |
|
|
3楼#
发布于:2007-06-29 09:26
<P>都没人帮我一下阿?</P>
|
|