arcmap vba做控件

ArcMap VBA 可以通过控件来实现用户界面的设计和交互。以下是一些常见的控件及其用途：

1. CommandButton：用于执行特定的命令或操作，如打开文件、保存数据等。

2. Label：用于显示文本或标签，如标题、说明等。

3. TextBox：用于接收用户输入的文本。

4. ComboBox：用于提供下拉菜单选择项，如选择不同的图层。

5. ListBox：用于提供多个选择项，如选择多个要素。

6. CheckBox：用于提供二选一的选择项，如是否显示标注。

7. OptionButton：用于提供多选一的选择项，如选择符号类型。

在 ArcMap VBA 中，可以通过工具箱（Toolbox）中的“用户界面”工具栏添加控件，也可以通过代码动态地创建控件。例如，以下代码创建一个 CommandButton 控件并添加到当前的工具栏中：

Sub AddButtonToToolbar()
  Dim pCmdItem As ICommandItem
  Dim pUID As New UID
  Set pUID = New UID
  pUID.Value = "esriArcMapUI.ZoomInTool"
  Set pCmdItem = Application.Document.CommandBars.Find(pUID)
  Dim pButton As New ESRI.ArcGIS.Framework.CommandBarButton
  Set pButton = pCmdItem.CommandBar.Controls.Add( _
    esriCmdType.esriCmdTypeGeneric, _
    , _
    esriToolbarControlVisibility.esriTCV_ALWAYS)
  With pButton
    .Caption = "Custom Button"
    .Style = esriCommandStyles.esriCommandStyleIconAndText
    .Bitmap = LoadPicture("C:\MyIcon.bmp")
    .Width = 80
    .OnClick = "CustomButton_OnClick"
  End With
End Sub

这个例子中，首先找到了一个 ZoomInTool 命令，然后创建了一个 CommandBarButton 控件，并将其添加到命令条中。在设置控件的属性时，可以指定控件的图标、宽度和点击事件等。这样就可以在 ArcMap 中自定义一个功能按钮，以执行自己的操作了。