WPF ListBox ContentPresenter.ContentTemplate什么都不是

WPF ListBox ContentPresenter.ContentTemplate什么都不是,wpf,vb.net,Wpf,Vb.net,我得到了一个带有上下文菜单的简单列表框: <ListBox BorderThickness="1" BorderBrush="Gray" SelectionChanged="TableList_SelectionChanged" Grid.Column="0" x:Name="TableList"> <ListBox.ContextMenu> <ContextMenu>

我得到了一个带有上下文菜单的简单列表框:

<ListBox BorderThickness="1" BorderBrush="Gray" SelectionChanged="TableList_SelectionChanged"   Grid.Column="0" x:Name="TableList">

            <ListBox.ContextMenu>
                <ContextMenu>
                    <MenuItem Click="MenuItem_Click"  Header="Ajouter"/>
                    <MenuItem Click="MenuItem_Click_1" Header="Supprimer"/>
                </ContextMenu>
            </ListBox.ContextMenu>

            <ListBox.ItemTemplate>
                <DataTemplate>
                    <StackPanel Orientation="Horizontal">
                        <Image Name="Image" Height="12px" Width="12px" Source="Apply.gif">
                            <Image.Margin>
                                <Thickness Right="10"></Thickness>
                            </Image.Margin>
                        </Image>
                        <TextBlock Text="{Binding Path=Content}" />
                    </StackPanel>
                </DataTemplate>
             </ListBox.ItemTemplate>

        </ListBox>
根据这个表单MSDN,我可以从DataTemplate调用“findName”方法。但是变量“myDataTemplate”什么都不是

我做错了什么?
谢谢

您得到的是ListBox的内容演示者,而不是此行中的ListBoxItem:

Dim myContentPresenter As ContentPresenter=FindVisualChild(属于ContentPresenter)(列表框)

 'Dim ListBox As ListBox = DirectCast(sender.Parent, System.Windows.Controls.ContextMenu).PlacementTarget
    Dim ListBox As ListBox = Me.TableList
    Dim myListBoxItem As ListBoxItem = CType(ListBox.ItemContainerGenerator.ContainerFromItem(ListBox.Items.CurrentItem), ListBoxItem)

    ' Getting the ContentPresenter of myListBoxItem
    Dim myContentPresenter As ContentPresenter = FindVisualChild(Of ContentPresenter)(ListBox)

    ' Finding textBlock from the DataTemplate that is set on that ContentPresenter
    Dim myDataTemplate As DataTemplate = myContentPresenter.ContentTemplate