vba14-6.txt

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

Public Sub LocateAirport()

    ' (1) Get the Airports layer.
    Dim pFeatureLayer As IFeatureLayer
    Set pFeatureLayer = FindLayer("airports")
    If pFeatureLayer Is Nothing Then
        Set pFeatureLayer = LoadShapefile _
        ("c:\arcgis_data\cd3\usa", "airports", _
        "Airport")
    End If
    
    ' (2) Ask user for the airport name.
    Dim pGetStringDialog As IGetStringDialog
    Set pGetStringDialog = New GetStringDialog
    If Not pGetStringDialog.DoModal _
    ("", "Airport:", "", 0) Then
        Exit Sub
    End If
    
    ' (3) Select the airport
    Dim strName As String
    strName = UCase(pGetStringDialog.Value)
    If strName > "" Then
        FindFeature pFeatureLayer, strName
    End If
    
    ' (4) Zoom to the selected features
    '     and label the airport.
    If ZoomToSelected() Then
        LabelLayer pFeatureLayer, True
    Else
        LabelLayer pFeatureLayer, False
    End If

End Sub