5 添加文本.txt

来自「ao的一些代码集合」· 文本 代码 · 共 23 行

'添加文本
Private Sub Hello()
 
  Dim pDoc As IMxDocument    '地图文档
  Dim pActiveView As IActiveView    '活动地图
  Dim sym As ITextSymbol    '文本符号
  Dim bnds As IArea    '面

  Set pDoc = Application.Document    '获取当前地图文档
  Set pActiveView = pDoc.activeView    '获取当前活动地图

  Set sym = New TextSymbol    '创建文本符号
  sym.Font.size = 18    '设置字体大小

  With pActiveView.ScreenDisplay    '对显示屏操作
    Set bnds = .DisplayTransformation.VisibleBounds    '获取可视范围
    .StartDrawing .hDC, esriNoScreenCache
    .SetSymbol sym    '设置要绘制的符号
    .DrawText bnds.Centroid, "Hello"    '添加文本
    .FinishDrawing    '完成绘制
  End With

End Sub