Lock DataGrid Column Width

[Doug Bell]

Hi,
Can you lock the colum in a datagrid so that it can not be resized by th
user?

Thanks Doug

[Ken Tucker [MVP]]

Hi,

You need to create an inherited datagrid for that. Here is the code
for one that will raise an event to let you the user is about to delete a
row. Also prevents the user from resizing a row or column.

Public Class ConfirmDeleteDa taGrid

Inherits DataGrid

Public Event DeletedRow(ByVa l sender As Object, ByVal e As EventArgs)

Private Const WM_KEYDOWN = &H100

Public Overrides Function PreProcessMessa ge(ByRef msg As
System.Windows. Forms.Message) As Boolean

Dim keyCode As Keys = CType((msg.WPar am.ToInt32 And Keys.KeyCode), Keys)

If msg.Msg = WM_KEYDOWN And keyCode = Keys.Delete Then

If MessageBox.Show ("Delete This Row?", "Confirm Delete", _

MessageBoxButto ns.YesNo) = DialogResult.No Then

Return True

Else

RaiseEvent DeletedRow(Me, New EventArgs)

End If

End If

Return MyBase.PreProce ssMessage(msg)

End Function

Protected Overrides Function ProcessDialogKe y(ByVal keyData As
System.Windows. Forms.Keys) As Boolean

Dim pt As Point

Dim hti As DataGrid.HitTes tInfo

pt = Me.PointToClien t(Cursor.Positi on)

hti = Me.HitTest(pt)

If keyData = Keys.Delete Then

If hti.Type = Me.HitTestType. RowHeader Then

If MessageBox.Show ("Delete this row?", "Confirm Delete", _

MessageBoxButto ns.YesNo) = DialogResult.No Then

Return True

Else

RaiseEvent DeletedRow(Me, New EventArgs)

End If

End If

End If

Return MyBase.ProcessD ialogKey(keyDat a)

End Function

Protected Overrides Sub OnMouseDown(ByV al e As
System.Windows. Forms.MouseEven tArgs)

Dim hti As DataGrid.HitTes tInfo = Me.HitTest(New Point(e.X, e.Y))

If hti.Type = DataGrid.HitTes tType.ColumnRes ize Or hti.Type =
DataGrid.HitTes tType.RowResize Then

Return 'no baseclass call

End If

MyBase.OnMouseD own(e)

End Sub

Public Sub New()

Trace.WriteLine (Me.VertScrollB ar.Visible.ToSt ring)

End Sub

Protected Overrides Sub OnMouseMove(ByV al e As
System.Windows. Forms.MouseEven tArgs)

Dim hti As DataGrid.HitTes tInfo = Me.HitTest(New Point(e.X, e.Y))

If hti.Type = DataGrid.HitTes tType.ColumnRes ize Or hti.Type =
DataGrid.HitTes tType.RowResize Then

Return 'no baseclass call

End If

MyBase.OnMouseM ove(e)

End Sub
End Class

Ken

-------------------------------

"Doug Bell" <dug@bigpond> wrote in message
news:e%******** ********@TK2MSF TNGP15.phx.gbl. ..
Hi,
Can you lock the colum in a datagrid so that it can not be resized by th
user?

Thanks Doug