WPFのDatagridの縦スクロール

質問

VisualBasic2010を利用してWindows Formアプリケーションを
開発しております。

その際にForm上にElementHostを配置しWPFで構築した
DataGridを設定しグリッドにデータを表示しております。

データ表示自体は問題なく行えているのですが、
Datagridの縦スクロールをWindows Form上に配置する
ボタンから制御したいと考えております。

このような制御の方法をご存知の方がいらっしゃいましたら
ご教授頂けますと幸いです。

WPF側
<UserControl x:Class="Grid_Main"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
xmlns:local="clr-namespace:_01_AAAA"
mc:Ignorable="d"
d:DesignHeight="200.373" d:DesignWidth="300" Height="Auto" Width="Auto">

<DataGrid ItemsSource="{Binding}" ScrollViewer.CanContentScroll="True" VirtualizingPanel.IsVirtualizing="True" VirtualizingPanel.VirtualizationMode="Recycling" ScrollViewer.IsDeferredScrollingEnabled="True" AutoGenerateColumns="False" CanUserAddRows="False" CanUserDeleteRows="False" HeadersVisibility="None" Margin="0,0,0,0" BorderBrush="{x:Null}">
<DataGrid.Columns>
<DataGridTemplateColumn >
<!-- 表示時のセルのテンプレートを指定 -->
<DataGridTemplateColumn.CellTemplate>
<DataTemplate>
<!-- 表示時のセルのテンプレートに同プロジェクト内のクラスを指定 -->
<local:Grid_Detail />
</DataTemplate>
</DataGridTemplateColumn.CellTemplate>
</DataGridTemplateColumn>

<!-- 編集時のセルのテンプレートを指定 -->
<!-- 表示専用であれば定義不要 -->

</DataGrid.Columns>

</DataGrid>

</UserControl>

回答No.1

dell_OK · ベストアンサー

WPF側にスクロール用のメソッドを用意しておき、
WindowsForm側からそのメソッドを呼ぶ方法で実現できそうです。

まず、以下の参照がない場合は追加してください。
・UIAutomationProvider
・UIAutomationTypes

次に、スクロール用のメソッドとその準備です。
準備は、LoadedのタイミングでAutomationPeerとIScrollProviderの設定です。
Grid_MainのDataGridにNameがなかったので、ここでは「grid1」としています。
メソッドは、上スクロールと下スクロールです。
・Grid_Main.xaml.vb
Imports System.Windows
Imports System.Windows.Automation.Peers
Imports System.Windows.Automation.Provider
Public Class Grid_Main
Private ap As AutomationPeer
Private sp As IScrollProvider
Private Sub MeLoaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
ap = UIElementAutomationPeer.CreatePeerForElement(grid1)
sp = CType(ap.GetPattern(PatternInterface.Scroll), IScrollProvider)
End Sub
Public Sub ScrollUp()
sp.Scroll(Automation.ScrollAmount.NoAmount, Automation.ScrollAmount.SmallDecrement)
End Sub
Public Sub ScrollDown()
sp.Scroll(Automation.ScrollAmount.NoAmount, Automation.ScrollAmount.SmallIncrement)
End Sub
End Class

最後に、WindowsFormのボタンから、スクロール用のメソッドを呼びます。
ここでは、WindowsFormに配置されたユーザーコントロールGrid_Mainの名前を「grid1」としています。
grid1.ScrollUp()　とか　grid1.ScrollDown()　とかです。

お礼

希望する動作が実現できました。
本当にありがとうございました。