【发布时间】:2015-06-18 17:29:35
【问题描述】:
到目前为止,我已经查看了几个关于如何在 DataTemplate 中获取 TextBox 的问题和答案,但没有一个对我有用。
我有这样的 xaml(最小示例)。数据模板在我的静态资源部分,ItemsControl 在内容部分:
<DataTemplate x:Key="GridTemplate">
<Grid>
<Grid.ColumnDefinitions>
<ColumnDefinition Width="140" />
</Grid.ColumnDefinitions>
<sdk:IntegerTextBox DataField="Model.DataField" Width="90" SelectAllOnFocus="True" />
</Grid>
</DataTemplate>
<ItemsControl x:Name="MyControl" ItemsSource="{Binding MyList}" ItemTemplate="{StaticResource GridTemplate}" />
我需要能够在后面的代码中将焦点设置到 Grid 中的第一个 IntegerTextBox。 IntegerTextBox 继承了 TextBox 类。
我首先尝试编写自己的方法来递归搜索第一个 TextBox 的所有 UIElement,但我发现 DataTemplate 中的内容无法以这种方式搜索。 ItemsControl 的子项总是返回 Nothing:
Private Function FirstTextBox(ByVal uiElement As UIElement) As TextBox
Dim textBox As TextBox = TryCast(uiElement, TextBox)
If textBox IsNot Nothing Then Return textBox
Dim panel As Panel = TryCast(uiElement, Panel)
If panel IsNot Nothing Then
For Each child As UIElement In panel.Children
textBox = FirstTextBox(child)
If textBox IsNot Nothing Then Return textBox
Next
End If
Dim itemsControl As ItemsControl = TryCast(uiElement, ItemsControl)
If itemsControl IsNot Nothing Then
For i As Integer = 0 To itemsControl.Items.Count
textBox = FirstTextBox(CType(itemsControl.ItemContainerGenerator.ContainerFromIndex(i), UIElement))
If textBox IsNot Nothing Then Return textBox
Next
End If
Return textBox
End Function
我试过这个,类似于here 和here,但是 ContentPresenter 什么都没有:
Dim contentPresenter = CType(MyControl.ItemContainerGenerator.ContainerFromIndex(0), ContentPresenter)
Dim textbox As TextBox = CType(CType(contentPresenter.ContentTemplate.LoadContent(), Panel).Children.First(Function(c) TypeOf c Is TextBox), TextBox)
我尝试获取 DataTemplate,如 here 所示,然后加载内容并在子级中搜索 TextBox,如 here 所示,但始终找不到 TextBox。
我已经为此工作了几天,但我看不出我做错了什么。这是一些明显的错误,还是我错误地解决了这个问题?谢谢。
编辑 - 这就是我通过添加 100 毫秒延迟让它工作的方式:
Private Function FindDescendant(Of TDescendant As DependencyObject)(ByVal obj As DependencyObject) As TDescendant
Dim all = VisualTreeExtensions.GetVisualDescendants(obj)
Dim first = all.OfType(Of TDescendant)().FirstOrDefault()
Return first
End Function
Private Sub bw_DoWork(ByVal sender As Object, ByVal e As ComponentModel.DoWorkEventArgs)
System.Threading.Thread.Sleep(100)
End Sub
Private Sub bw_RunWorkerCompleted(ByVal sender As Object, ByVal e As ComponentModel.RunWorkerCompletedEventArgs)
Dim firstTextBox = FindDescendant(Of IntegerTextBox)(MyControl)
If firstTextBox IsNot Nothing Then firstTextBox.Focus()
End Sub
Private Sub SetFocus()
Dim bw As New ComponentModel.BackgroundWorker
bw.WorkerReportsProgress = True
bw.WorkerSupportsCancellation = True
AddHandler bw.DoWork, AddressOf bw_DoWork
AddHandler bw.RunWorkerCompleted, AddressOf bw_RunWorkerCompleted
bw.RunWorkerAsync()
End Sub
【问题讨论】:
-
延迟可能确实有效,但不建议这样做。如果你想更正那你应该使用
FrameworkElement的Loaded事件。 -
@Martin 在 Silverlight 中,不能保证在应用模板后发生 Loaded 事件。 但该链接确实包含有关问题潜在解决方案的其他有用信息。谢谢。
标签: vb.net silverlight datatemplate children