Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinGrid
Private Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button6.Click
' 以下のコードは Address 列の自動サイズの編集機能を有効にします
' また、列を複数行にします
Me.ultraGrid1.DisplayLayout.Bands(0).Columns("Address").AutoSizeEdit = DefaultableBoolean.True
Me.ultraGrid1.DisplayLayout.Bands(0).Columns("Address").CellMultiLine = DefaultableBoolean.True
End Sub
Private Sub UltraGrid1_BeforeAutoSizeEdit(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinGrid.CancelableAutoSizeEditEventArgs) Handles ultraGrid1.BeforeAutoSizeEdit
' AutoSizeEdit が True に設定される列のセルが編集モードに入るときに、
' BeforeAutoSizeEdit を発生します
' 編集コントロールの開始幅を設定しますセルにある編集コントロールの
' 開始幅です
If Me.ultraGrid1.ActiveCell.Column.Width < 250 Then
e.StartWidth = 250
End If
If Me.ultraGrid1.ActiveCell.Column.CellMultiLine = DefaultableBoolean.True And Me.ultraGrid1.ActiveCell.Row.Height < 100 Then
e.StartHeight = 100
End If
' 最大幅および最大の高さを設定しますUltraGrid は編集コントロールを最大の高さおよび最大幅より大きい
' サイズに変更しません
e.MaxHeight = 400
e.MaxWidth = 400
' セルで標準的な編集をするために自動サイズ編集をキャンセルできます
Dim cancelAutoSizeEdit As Boolean = False
If cancelAutoSizeEdit Then e.Cancel = True
End Sub