Dim pCurPage As IPage
Set pCurPage = pPageLayout.Page

'替换单位
pCurPage.Units = pTempPage.Units
'exchange page orientation
pCurPage.Orientation = pTempPage.Orientation
'替换页面尺寸
Dim dWidth As Double
Dim dHeight As Double
pTempPage.QuerySize dWidth, dHeight
pCurPage.PutCustomSize dWidth, dHeight

'删除当前Layout中除了mapframe外的所有elements
Dim pGraphicsCont As IGraphicsContainer
Dim pElement As IElement
Set pGraphicsCont = pPageLayout
pGraphicsCont.Reset
Set pElement = pGraphicsCont.Next
Do Until pElement Is Nothing
If TypeOf pElement Is IMapFrame Then
Dim pMapFrame As IMapFrame
Dim pMapFrameElement As IElement
Set pMapFrameElement = pElement
Set pMapFrame = pElement
Else
pGraphicsCont.DeleteElement pElement
pGraphicsCont.Reset
End If
Set pElement = pGraphicsCont.Next

Loop

'遍历模板的PageLayout中的所有元素，并且替换当前PageLayout中的所有元素
Dim pTempGraphicsCont As IGraphicsContainer
Set pTempGraphicsCont = pTempPagelayout
pTempGraphicsCont.Reset
Set pElement = pTempGraphicsCont.Next
Dim pArray As IArray
Set pArray = New esriSystem.Array
Do Until pElement Is Nothing
If TypeOf pElement Is IMapFrame Then
pMapFrameElement.Geometry = pElement.Geometry
Else
If TypeOf pElement Is IMapSurroundFrame Then
Dim pTempMapSurroundFrame As IMapSurroundFrame
Dim pTempMapSurround As IMapSurround
Set pTempMapSurroundFrame = pElement
Set pTempMapSurroundFrame.MapFrame = pMapFrame
Set pTempMapSurround = pTempMapSurroundFrame.MapSurround
pMap.AddMapSurround pTempMapSurround
End If
pArray.Add pElement
End If
Set pElement = pTempGraphicsCont.Next
Loop

Dim pElementCount As Long
pElementCount = pArray.Count
Dim i As Long
'将模板PageLayout中的其它元素（除了MapFrameElement和MapSurroundFrame外的元素）添加到当前PageLayout中去
For i = 0 To pElementCount - 1
pGraphicsCont.AddElement pArray.Element(pElementCount - 1 - i), 0
Next i
pDoc.ActiveView.Refresh

End Sub

                                用AE创建气泡式提示框的方法-VB.Net源码
 

 原文地址:http://www.cnblogs.com/wall/archive/2008/07/17/1244942.html

  ''' <summary>

  ''' 创建文本提示框

  ''' </summary>

  ''' <param name="x">提示框标识的位置X坐标</param>

  ''' <param name="y">提示框标识的位置Y坐标</param>

  ''' <param name="pTextString">提示框中显示的文本</param>

  ''' <param name="pPoint">提示框箭头指向的点</param>

  ''' <param name="pGraphicsContainer">包含提示框的graphicscontainer</param>

  ''' <returns></returns>

  ''' <remarks></remarks>

  Public Function
CreateTextElement(ByVal x As Double, ByVal y As Double, ByVal
pTextString As String, Optional ByVal pPoint As IPoint = Nothing,
Optional ByVal pGraphicsContainer As IGraphicsContainer = Nothing) As
IElement

    Dim pElement As IElement = New MarkerElementClass()

    Dim pTElement As IElement = New TextElementClass()

    Dim pTextSymbol As IFormattedTextSymbol = New TextSymbolClass()

    Dim pBalloonCallout As IBalloonCallout = CreateBalloonCallout(x, y)

    Dim pColor As IRgbColor = New RgbColorClass()

    pColor.Red = 150

    pColor.Green = 0

    pColor.Blue = 0

    pTextSymbol.Color = pColor

    Dim pTextBackground As ITextBackground

    pTextBackground = pBalloonCallout

    pTextSymbol.Background = pTextBackground

    pTextSymbol.Size = 8

    CType(pTElement, ITextElement).Symbol = pTextSymbol

    CType(pTElement, ITextElement).Text = pTextString

    If pPoint Is Nothing Then pPoint = New Point : pPoint.PutCoords(x + Const_Dis, y + Const_Dis)

    pTElement.Geometry = pPoint

    pGraphicsContainer.AddElement(pTElement, 1)

    Return pTElement

  End Function

  ''' <summary>

  ''' 创建balloon型提示框

  ''' </summary>

  ''' <param name="x">提示框所在位置X坐标</param>

  ''' <param name="y">提示框所在位置Y坐标</param>

  ''' <returns></returns>

  ''' <remarks></remarks>

  Public Function CreateBalloonCallout(ByVal x As Double, ByVal y As Double) As IBalloonCallout

    Dim pRgbClr As IRgbColor = New RgbColorClass()

    pRgbClr.Red = 255

    pRgbClr.Blue = 255

    pRgbClr.Green = 255

    Dim pSmplFill As ISimpleFillSymbol = New SimpleFillSymbolClass()

    pSmplFill.Color = pRgbClr

    pSmplFill.Style = esriSimpleFillStyle.esriSFSSolid

    Dim pBllnCallout As IBalloonCallout = New BalloonCalloutClass()

    pBllnCallout.Style = esriBalloonCalloutStyle.esriBCSRoundedRectangle

    pBllnCallout.Symbol = pSmplFill

    pBllnCallout.LeaderTolerance = 1

    Dim pPoint As IPoint = New ESRI.ArcGIS.Geometry.PointClass()

    pPoint.X = x

    pPoint.Y = y

    pBllnCallout.AnchorPoint = pPoint

    Return pBllnCallout

  End Function

【ArcGIS Server 开发系列】Flyingis六大系列讲座精品PDF奉献

为了方便学习将Flyingis六大系列讲整理成一个PDF文件供大家下载：

下载地址一: (需要注册以后方可正常下载-点击注册-点击下载)

下载地址二: (需要安装插件方可正常下载-下载插件-进入下载)

内容包括：
ArcGIS Server 开发系列（一）--编程框架总览

ArcGIS Server 开发系列（二）--Web ADF 编程

ArcGIS Server 开发系列（三）--漫游 Graphics data sources
ArcGIS Server 开发系列（四）--ArcGIS Server data

sources 开发

ArcGIS Server 开发系列（五）--自定义 Toolbar 工具

ArcGIS Server 开发系列（六）--自定义 Tasks

声明:文章仅用于学习与交流，禁止用于任何商业目的!
作者博客:http://flyingis.cnblogs.com/

public override void OnCreate(object hook)
{
// TODO: 添加 SymbolType.OnCreate 实现

}
#region IToolControl 成员

public int hWnd
{
get
{
// TODO: 添加 SymbolType.hWnd getter 实现
return _handle;
}
}

public void OnFocus(ICompletionNotify complete)
{
_CompNotify = complete;
// TODO: 添加 SymbolType.OnFocus 实现
}

public bool OnDrop(ESRI.ArcGIS.SystemUI.esriCmdBarType barType)
{
// TODO: 添加 SymbolType.OnDrop 实现
if (barType == esriCmdBarType.esriCmdBarTypeToolbar )
{
return true;
}
else return false;
}

#endregion
}
 

备注
9.2中无defaultMapTool变量   直接用
"zoomin"
"zoomout"
"pan"
"identify"
"identifyall"
"hyperlink"
"hyperlinkany"
"measure"
"selectbox"
"selectshape" 重一个替换
if (aimsClickPresent) clickFunction("zoomin");
中的zoomin就行！

通过Author可以很容易构建从ArcIMS到ArcSDE的连接。 某些情况下可能需要绕过ArcSDE 应用服务器，以提高性能。要做到这点，需要更新axl文件中的SDEWORKSPACE 元素，使用直接连接。
过程描述
请参考以下步骤

1. 打开 Author，访问ArcSDE 数据并保存为一个.axl 文件。

2. 在.axl 文件中，更新以下内容：
<SDEWORKSPACE name="sde_ws-0" server="zephyr" instance="port:5151"
database="test" user="test" encrypted="true" password="EPYCJM" geoindexdir="C:DOCUME~1 />

3. 作如下改动：
<SDEWORKSPACE name="sde_ws-0" server="zephyr" instance="sde:oracle"
database="test" user="test" encrypted="false" password="test@ora" geoindexdir="C:DOCUME~1 />
修改以下值:
instance = sde:oracle
encrypted = false
password = password@net_service_name

4. 当连接到一个远程Oracle服务器或通过Oracle的sqlplus连接时，密码@net_service_name是需要的：
sqlplus/password@net_service_name

Windows
安装Oracle客户端并运行Net Configuration Assistant来设置一个本地网络服务名。

UNIX
该值在tnsnames.ora 文件中

2.添加其他图层，保存Axl文件；

3.使用其他文本编辑器打开Axl文件，找到下列几行：

<LAYER type="featureclass" name="SDE.SDE.RASTERTEST" visible="true" id="0">

<DATASET name="SDE.SDE.RASTERTEST" type="polygon" workspace="sde_ws-0" />

<SIMPLERENDERER>

<SIMPLEPOLYGONSYMBOL boundarytransparency="1.0" filltransparency="1.0" fillcolor="127,227,227" boundarycaptype="round" />

</SIMPLERENDERER>

</LAYER>

4.修改其中的三个地方：

type="featureclass" 改为：type="image"

DATASET name="SDE.SDE.RASTERTEST" 改为：DATASET name="SDE.SDE.RASTERTEST.RASTER"

type="polygon" 改为：type="image"

5.修改后结果如下：

<LAYER type="image" name="RASTERTEST" visible="true" id="0">

<DATASET name="SDE.SDE.RASTERTEST.RASTER" type="image" workspace="sde_ws-0" />

</LAYER>

6.此时ArcIMS Author仍然不能正常浏览栅格图像，但ArcIMS Administrator能创建含有栅格图像的服务，Web浏览正常。