建设银行 网站长沙seo优化服务

    ProWindow 是ArcGIS Pro SDK中用于创建自定义窗口的关键类，帮助开发者扩展ArcGIS Pro的功能和用户界面。这些窗口可以嵌入到ArcGIS Pro的主界面中，提供与核心功能的无缝集成。

创建一个窗体xml：

controls:ProWindowxmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"xmlns:controls="clr-namespace:ArcGIS.Desktop.Framework.Controls;assembly=ArcGIS.Desktop.Framework"xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"xmlns:d="http://schemas.microsoft.com/expression/blend/2008"xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"xmlns:extensions="clr-namespace:ArcGIS.Desktop.Extensions;assembly=ArcGIS.Desktop.Extensions"xmlns:VisualBasic="clr-namespace:Microsoft.VisualBasic;assembly=Microsoft.VisualBasic.Core" x:Class="ProWindow1"mc:Ignorable="d"Title="绘制图例" Height="320" Width="530" WindowStartupLocation="CenterOwner"><controls:ProWindow.Resources><ResourceDictionary><ResourceDictionary.MergedDictionaries><extensions:DesignOnlyResourceDictionary Source="pack://application:,,,/ArcGIS.Desktop.Framework;component\Themes\Default.xaml"/></ResourceDictionary.MergedDictionaries></ResourceDictionary></controls:ProWindow.Resources><Grid><GroupBox Header="地图图层" FontSize="10" HorizontalAlignment="Left" VerticalAlignment="Top" Width="225" Height="250 " Margin="3,0,0,0"><StackPanel><DataGrid x:Name="DataGrid1" FontSize="9" AutoGenerateColumns="False" ScrollViewer.VerticalScrollBarVisibility="Visible"  HorizontalAlignment="Left" VerticalAlignment="Top" Width="210" Height="230 " Margin="2,0,0,0"><DataGrid.Columns><DataGridTextColumn Header="图层名称" Width="85" Binding="{Binding tc_name, Mode=TwoWay, UpdateSourceTrigger=PropertyChanged}"/><DataGridCheckBoxColumn Header="参与?" Width="35"  Binding="{Binding sf_cy}"/><DataGridTemplateColumn Header="字段名称" Width="65"><DataGridTemplateColumn.CellTemplate ><DataTemplate><ComboBox ItemsSource="{Binding AvailableCategories}"DisplayMemberPath="zd_Namea"SelectedValuePath="zd_ID"SelectedValue="{Binding zd_nameID ,Mode=TwoWay , UpdateSourceTrigger=PropertyChanged}" /> </DataTemplate></DataGridTemplateColumn.CellTemplate></DataGridTemplateColumn></DataGrid.Columns><!-- 标头居中 --><DataGrid.ColumnHeaderStyle><Style TargetType="{x:Type DataGridColumnHeader}"><Setter Property="HorizontalContentAlignment" Value="Center"/></Style></DataGrid.ColumnHeaderStyle></DataGrid></StackPanel></GroupBox><Button x:Name="Button1" FontSize="9" Content="获取图层" Height="18" Width="45" HorizontalAlignment="Left" VerticalAlignment="Top" Margin="78,257,0,0" /></Grid>
</controls:ProWindow>

允许效果：

设置DataGrid表字段名称列为下拉框，DataGridTemplateColumn  设置ComboBox动态绑定。

vb.net  ,定义Person1类，用于DataGrid1设置数据源类型

Imports System.Collections.ObjectModel
Public Class Person1                '用于DataGrid1设置数据源Public Property tc_name As StringPublic Property sf_cy As BooleanPublic Property zd_name As StringPublic Property zd_nameID As Integer ' 用于绑定选中的 zd_namePublic Property AvailableCategories As List(Of Zd_name)Public Sub New(tc_name As String, sf_cy As Boolean, zd_name As String, zd_nameID As Integer, AvailableCategories As List(Of Zd_name))Me.tc_name = tc_nameMe.sf_cy = sf_cyMe.zd_name = zd_nameMe.zd_nameID = zd_nameIDMe.AvailableCategories = AvailableCategoriesEnd Sub
End Class

定义ComboBox动态绑定类

Public Class Zd_namePublic Property zd_ID As IntegerPublic Property zd_Namea As String
End Class

在窗体类中

Public Class ProWindow1Inherits ArcGIS.Desktop.Framework.Controls.ProWindowPrivate people_1 As New ObservableCollection(Of Person1)()Public Property Categories As ObservableCollection(Of Zd_name)Public Sub New()InitializeComponent()DataGrid1.ItemsSource = people_1End SubDim pmap As MapDim dict(50) As List(Of FieldDescription)Dim pFeatureLayer As FeatureLayerDim pFeature As FeatureDim PFeatureClass As FeatureClassDim pFeatCursor As RowCursorPrivate Async Sub Button1_Click(sender As Object, e As RoutedEventArgs) Handles Button1.ClickDim pMapView As MapView = MapView.ActiveDim collection As ObservableCollection(Of Person1) = DirectCast(DataGrid1.ItemsSource, ObservableCollection(Of Person1))Dim jsq As Integer = -1If collection IsNot Nothing Thencollection.Clear()  ' 直接清空集合End IfDataGrid1.CanUserAddRows = True  '将CanUserAddRows重新设置为True，这样DataGrid就会自动生成新行，我们就能在新行中输入数据了。If pMapView Is Nothing = True ThenMsgBox("当前打开的不是激活的地图.")Exit SubEnd IfDim pmap As Map = pMapView.MapDim categories(100) As List(Of Zd_name)Dim jsq1 As Integer = 0For i = 0 To pmap.Layers.Count - 1If pmap.Layers(i).GetType.Name = "FeatureLayer" Thenjsq += 1pFeatureLayer = pmap.Layers(i)dict(jsq) = New List(Of FieldDescription)Await QueuedTask.Run(Sub()dict(jsq) = pFeatureLayer.GetFieldDescriptionsEnd Sub)jsq1 = 0categories(jsq) = New List(Of Zd_name)For Each ttsr In dict(jsq)jsq1 += 1categories(jsq).Add(New Zd_name() With {.zd_ID = jsq1, .zd_Namea = ttsr.Name})Nextpeople_1.Add(New Person1(pmap.Layers(i).Name, False, "", 1, categories(jsq)))End IfNextDataGrid1.ItemsSource = people_1End Sub
End Class

运行结果：

读取DataGrid表：vb.net

        Dim tc_mc As StringDim tc_cy As BooleanDim zd_id As Integer = 0Dim tc_zd As StringDim tc_zdZ() As StringDim zdzs As IntegerDim tl_id As Integer = 0For Each row As Person1 In DataGrid1.Itemstc_mc = row.tc_name          ' DataGrid第一列tc_cy = row.sf_cy            ' DataGrid第二列zd_id = row.zd_nameID        ' DataGrid第三列  ：ComboBox选中的IDtc_zd = GetCategoryNameByID(zd_id, row.AvailableCategories)  'ComboBox下拉框元素集合next

自定义函数：

Private Function GetCategoryNameByID(categoryID As Integer, categories As List(Of Zd_name)) As StringDim category As Zd_name = categories.FirstOrDefault(Function(c) c.zd_ID = categoryID)Return If(category IsNot Nothing, category.zd_Namea, "Unknown")
End Function