▼質問

DataGridのヘッダを表示すると列の幅が変更できるんだ。これを、固定表示にしたいんだ。

どうやったらできるか教えてくれ！

▼回答

DataGridには、列の幅を固定にするプロパティはないんだ。だから固定にはできないんだ。

だけど、カスタムコントロールを作成して列の幅の変更操作をできないようにすればできるよ。

その方法の一部を下記に示しておくから参考にしてくれ！

    Public MyWidth As Integer = 0
    Public MyWidthFlag As Boolean = False

    ''' 

    ''' コントロールの幅を取得または設定します。
    ''' 

    ''' コントロールの幅。
    Public Property CustomWidth() As Integer
        Get
            Return MyWidth
        End Get
        Set(ByVal value As Integer)
            Me.MyWidth = value
        End Set
    End Property

    ''' 

    ''' コントロールの幅を固定にできるかの有無を示す値を取得または設定します。
    ''' 幅を固定にできる場合は true。それ以外の場合は false。既定値は false です。
    ''' 

    ''' コントロールの幅を固定にできるかの有無。
    Public Property CustomWidthFlag() As Boolean
        Get
            Return MyWidthFlag
        End Get
        Set(ByVal value As Boolean)
            Me.MyWidthFlag = value
        End Set
    End Property

    Private Sub DataGridCustomTextBoxColumn_WidthChanged( _
    ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.WidthChanged
        Dim obj As DataGridCustomTextBoxColumn = _
        CType(sender, DataGridCustomTextBoxColumn)
        If (obj.MyWidthFlag) Then obj.Width = obj.MyWidth
    End Sub

■参考サイト

DataGridの列の幅をユーザーが変更できないようにする: .NET Tips: C#, VB.NET, Visual Studio

http://dobon.net/vb/dotnet/datagrid/lockcolumnwidth.html

# posted by itpro-blogger @ 11:16 午前 0 comments

Dim dg As DataGrid = CType(sender, DataGrid)
Dim row As Integer = dg.CurrentCell.RowNumber : Dim col As Integer = dg.CurrentCell.ColumnNumber
If (dg.TableStyles.Item(0).GridColumnStyles(col).GetType.Name = "DataGridBoolColumn") Then
    Dim BoolColumn As DataGridBoolColumn = _
    CType(dg.TableStyles.Item(0).GridColumnStyles(col), DataGridBoolColumn)
    Dim Bind As BindingManagerBase = _
    Me.BindingContext(DirectCast(dg.DataSource, DataTable))
    Dim value As Boolean = False
    Dim drv As DataRowView = _
    CType(DirectCast(Bind.Current, DataRowView), DataRowView)
    Dim value As Boolean = _
    CBool(IIf(CType(BoolColumn.PropertyDescriptor.GetValue(drv), Boolean), _
    False, True))
    BoolColumn.PropertyDescriptor.SetValue(drv, value)
End If
    BoolColumn.DataGridTableStyle.SelectionBackColor = SystemColors.Window

# posted by itpro-blogger @ 9:09 午前 0 comments

▼質問

DataGridを編集可能にすると新規追加行（*行）が表示されるんだ。

これを表示しないようにする方法はないのか教えてくれ！

▼回答

あるよ！下記のサイトを参考にしてくれ！

■参考サイト

DataGridの一番下の新しい行(*行)が表示されないようにする: .NET Tips: C#, VB.NET, Visual Studio

http://dobon.net/vb/dotnet/datagrid/allownew.html

おーすばらしい！！できた。

関数にしてみた。

    Public Sub SetAllowNew(ByVal b As Boolean, ByVal oDG As DataGrid)
        Dim objCurrencyManager As CurrencyManager = _
        CType(oDG.BindingContext(oDG.DataSource, oDG.DataMember), CurrencyManager)
        'DataViewを取得する
         Dim objDataView As DataView = CType(objCurrencyManager.List, DataView)
        '新しい行の追加を設定する
         objDataView.AllowNew = b
    End Sub
 
▼質問
「CurrencyManager」って何？
 
▼回答
オブジェクトのプロパティ値とコントロールのプロパティ値との間の単純バインディングの
リストを管理するオブジェクトらしい。
 
▼質問
新規追加行は表示されずに編集は可能になったんだけど・・・。
 
これだと、全てのセルが編集可能になってしまって困るんだ。
 
特定のセルだけを編集可能にするにはどうしたらいいの？
 
▼回答
DataGridのCurrentCellChangedイベント、MouseClickイベント、MouseDownイベント、
MouseUpイベントでカレントセルをチェックするればできるよ。
 
こんな関数を作成してみたから、参考にしてくれ！
 
各イベントで呼ぶだけでOKだ！！ 

    Private Sub CheckCurrentCell(ByVal sender As Object, _
                                 ByVal e As System.Windows.Forms.MouseEventArgs)
        Dim dg As DataGrid = CType(sender, DataGrid)
        Dim row As Integer = dg.CurrentCell.RowNumber
        Dim col As Integer = dg.CurrentCell.ColumnNumber
        Select Case dg.CurrentCell.ColumnNumber
            Case 対象列番号
            Case Else
        End Select
    End Sub

# posted by itpro-blogger @ 11:15 午前 0 comments