Dim gridSelection As Selection = Me.WebDataGrid1.Behaviors.CreateBehavior(Of Selection)()
gridSelection.CellClickAction = CellClickAction.Row
gridSelection.RowSelectType = SelectType.Multiple
' 以下のコードは上記のコードと等価です
' 同じ名前のプロパティを使用して動作への参照を取得します
Dim selectionBehavior As Selection = Me.WebDataGrid1.Behaviors.Selection
' 動作が存在するかをチェックします
If selectionBehavior Is Nothing Then
' 動作を作成します
Dim selection As New Selection()
' プロパティを設定する前にまず動作コレクションに追加します
Me.WebDataGrid1.Behaviors.Add(selection)
' オプションを設定します
selection.CellClickAction = CellClickAction.Row
selection.RowSelectType = SelectType.Multiple
End If