I want to obtain the appearance of frozen columns as in an excel sheet so
thet the first two columns of the table remain in view at all times.
Example - I have a table of products - listed by Item and Line.
I want the Item and Line columns to remain visible whilst being able to
scroll the rest of the grid across to reveal other columns.
Ialso need the information to be present and synchronised with the rows
when I scroll down.
All the data is held in one data table - and all I need to do is freeze the
first two columns of the datagrid, but I am informed that the datagrid does
not have this functionality.
Someone came up with the ides of having two datagrids - side by side - and
showing the first two columns (of the data table) in the first grid, with
the rest of the columns ( in the data table) being shown in the second grid.
This idea would be fine, but I cannot get the two grids to scroll down
together as if bound together.
Can anyone please come up with a means of facilitating this idea - or
suggest another means.
I am using VB.NET 2002 Standard edition.
Thanks in advance
Terry
3  1320 
Hi,
Here is a column style that locks a column on the datagrid. It is
still under development. basically if you set the locked property to true
it places a panel over the datagrid that has the locked column drawn on it.
Currently it only will lock the first column.
Imports System.Drawing.Drawing2D
Public Class ColoredGridColumn
Inherits DataGridTextBoxColumn
Dim mForeColor As Color = Color.Black
Dim mBackColor As Color = Color.White
Dim WithEvents mctrl As DblBufferPanel
Dim WithEvents dg As DataGrid
Dim pt As New Point
Dim bPanelOnly As Boolean = False
Dim cm As CurrencyManager
Dim ar As Boolean
Private Class DblBufferPanel
Inherits Panel
Public Sub New()
Me.SetStyle(ControlStyles.DoubleBuffer, True)
End Sub
End Class
Public Property ForeColor() As Color
Get
Return mForeColor
End Get
Set(ByVal Value As Color)
mForeColor = Value
End Set
End Property
Public Property BackColor() As Color
Get
Return mBackColor
End Get
Set(ByVal Value As Color)
mBackColor = Value
End Set
End Property
Public Property Locked() As Boolean
Get
Return Not mctrl Is Nothing
End Get
Set(ByVal Value As Boolean)
If Value = False Then
mctrl = Nothing
Else
mctrl = New DblBufferPanel
End If
End Set
End Property
Protected Overloads Overrides Sub Paint(ByVal g As System.Drawing.Graphics,
ByVal bounds As System.Drawing.Rectangle, ByVal source As
System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer, ByVal
backBrush As System.Drawing.Brush, ByVal foreBrush As System.Drawing.Brush,
ByVal alignToRight As Boolean)
Dim brFore As Brush
Dim brBack As Brush
Dim cFore As Color
Dim cBack As Color
Static bPainted As Boolean = False
If Not bPainted And Not (mctrl Is Nothing) Then
dg = Me.DataGridTableStyle.DataGrid
dg.Parent.Controls.Add(mctrl)
MovePanel()
mctrl.BringToFront()
pt = dg.GetCellBounds(0, 0).Location
If TypeOf dg.DataSource Is DataTable Then
AddHandler DirectCast(dg.DataSource, DataTable).DefaultView.ListChanged,
AddressOf dv_ListChanged
ElseIf TypeOf dg.DataSource Is DataView Then
AddHandler DirectCast(dg.DataSource, DataView).ListChanged, AddressOf
dv_ListChanged
End If
End If
cm = source
ar = alignToRight
bPainted = True
If Me.DataGridTableStyle.DataGrid.IsSelected(rowNum) Then
cFore = Me.DataGridTableStyle.SelectionForeColor
cBack = Me.DataGridTableStyle.SelectionBackColor
Else
cFore = ForeColor
cBack = BackColor
End If
brBack = New LinearGradientBrush(bounds, cBack, Color.White, 90, False)
brFore = New SolidBrush(cFore)
Dim bl As New Blend
bl.Factors = New Single() {0.0F, 0.1F, 0.5F, 0.7F, 0.7F, 0.5F, 0.3F, 0.2F,
0}
bl.Positions = New Single() {0, 0.1F, 0.2F, 0.5F, 0.6F, 0.7F, 0.8F, 0.9F,
1.0F}
DirectCast(brBack, LinearGradientBrush).Blend = bl
If Not bPanelOnly Then
MyBase.Paint(g, bounds, source, rowNum, brBack, brFore, alignToRight)
End If
If Not (mctrl Is Nothing) Then
' if there is another control to draw on move the bounds to the right edge
if htere is not then it will ignore that directive right? yesgot oitf the
control
'mctrl.BackgroundImage = bm
PaintRow(mctrl.CreateGraphics, bounds, rowNum)
End If
If Me.GetColumnValueAtRow(source, rowNum).ToString = "Davolio" Then
Me.DataGridTableStyle.DataGrid.Select(rowNum)
End If
End Sub
Public Shadows Sub BeginUpdate()
MyBase.BeginUpdate()
End Sub
Public Shadows Sub EndUpdate()
MyBase.EndUpdate()
End Sub
Protected Overloads Overrides Sub Edit(ByVal source As
System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer, ByVal bounds
As System.Drawing.Rectangle, ByVal [readOnly] As Boolean, ByVal instantText
As String, ByVal cellIsVisible As Boolean)
MyBase.Edit(source, rowNum, bounds, [readOnly], instantText, cellIsVisible)
MyBase.TextBox.ForeColor = ForeColor()
MyBase.TextBox.BackColor = BackColor
End Sub
Public Sub New()
End Sub
Private Sub dg_Scroll(ByVal sender As Object, ByVal e As System.EventArgs)
Handles dg.Scroll
Trace.WriteLine("Scroll")
RedrawPanel()
End Sub
Private Sub MovePanel()
mctrl.Location = New Point(dg.Left + dg.RowHeaderWidth + 2, dg.Top + 21)
Dim intFactor As Integer = SystemInformation.HorizontalScrollBarHeight
For Each ctrl As Control In Me.DataGridTableStyle.DataGrid.Controls
If TypeOf ctrl Is HScrollBar Then
If Not DirectCast(ctrl, HScrollBar).Visible Then intFactor = 0
End If
Next
mctrl.Height = dg.Height - 21 - intFactor - 2
End Sub
Private Sub dg_Move(ByVal sender As Object, ByVal e As System.EventArgs)
Handles dg.Move
MovePanel()
End Sub
Private Sub PreparePanel()
Dim sf As New StringFormat
sf.LineAlignment = StringAlignment.Center
Dim rDraw As New RectangleF(0, 0, Me.Width, 20)
Dim g As Graphics = mctrl.CreateGraphics
g.Clear(mctrl.BackColor)
Try
g.DrawString(Me.HeaderText, dg.Font, Brushes.Black, rDraw, sf)
ControlPaint.DrawBorder3D(g, _
New Rectangle(0, 0, Me.Width, 19), Border3DStyle.RaisedInner)
Catch
End Try
End Sub
Private Sub dv_ListChanged(ByVal sender As Object, ByVal e As
System.ComponentModel.ListChangedEventArgs)
'PreparePanel()
RedrawPanel()
End Sub
Private Sub dg_VisibleChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles dg.VisibleChanged
Try
mctrl.Visible = dg.Visible
Catch ex As Exception
End Try
End Sub
Private Sub dg_SizeChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles dg.SizeChanged
MovePanel()
RedrawPanel()
End Sub
Private Sub RedrawPanel()
Static oldTop As Integer = 0
If Not mctrl Is Nothing And dg.VisibleRowCount > 0 Then
Application.DoEvents()
Dim hti As DataGrid.HitTestInfo = dg.HitTest(pt)
Dim newRow As Integer = hti.Row
Trace.WriteLine(String.Format("First Row {0} Visible rows {1}", hti.Row,
dg.VisibleRowCount))
oldTop = newRow
bPanelOnly = True
For x As Integer = oldTop To oldTop + dg.VisibleRowCount - 1
If x < cm.Count Then
Trace.WriteLine(String.Format("Drawing Row {0} {1}", x, dg.GetCellBounds(x,
dg.FirstVisibleColumn)))
Paint(Nothing, dg.GetCellBounds(x, dg.FirstVisibleColumn), _
cm, x, Nothing, Nothing, ar)
End If
Next
bPanelOnly = False
End If
End Sub
Private Sub dg_Resize(ByVal sender As Object, ByVal e As System.EventArgs)
Handles dg.Resize
MovePanel()
End Sub
Private Sub mctrl_Paint(ByVal sender As Object, ByVal e As
System.Windows.Forms.PaintEventArgs) Handles mctrl.Paint
Dim sf As New StringFormat
sf.LineAlignment = StringAlignment.Center
Dim rDraw As New RectangleF(0, 0, Me.Width, 20)
Dim g As Graphics = e.Graphics
g.Clear(mctrl.BackColor)
Try
g.DrawString(Me.HeaderText, dg.Font, Brushes.Black, rDraw, sf)
ControlPaint.DrawBorder3D(g, _
New Rectangle(0, 0, Me.Width, 19), Border3DStyle.RaisedInner)
Debug.WriteLine("Panel Paint")
Dim hti As DataGrid.HitTestInfo = dg.HitTest(pt)
Dim newRow As Integer = hti.Row
Dim oldTop As Integer
Trace.WriteLine(String.Format("First Row {0} Visible rows {1}", hti.Row,
dg.VisibleRowCount))
oldTop = newRow
bPanelOnly = True
For x As Integer = oldTop To oldTop + dg.VisibleRowCount - 1
If x < cm.Count Then
Trace.WriteLine(String.Format("Drawing Row {0} {1}", x, dg.GetCellBounds(x,
dg.FirstVisibleColumn)))
Paint(Nothing, dg.GetCellBounds(x, dg.FirstVisibleColumn), _
cm, x, Nothing, Nothing, ar)
End If
Next
Catch
End Try
End Sub
Private Sub PaintRow(ByVal g As Graphics, ByVal bounds As Rectangle, ByVal
rownum As Integer)
Dim brFore As Brush
Dim brBack As Brush
Dim cFore As Color
Dim cBack As Color
Dim bounds2 As New Rectangle(0, bounds.Y - 21, bounds.Width, bounds.Height)
If Me.DataGridTableStyle.DataGrid.IsSelected(rownum) Then
cFore = Me.DataGridTableStyle.SelectionForeColor
cBack = Me.DataGridTableStyle.SelectionBackColor
Else
cFore = ForeColor
cBack = BackColor
End If
brBack = New LinearGradientBrush(bounds, cBack, Color.White, 90, False)
brFore = New SolidBrush(cFore)
Dim bl As New Blend
bl.Factors = New Single() {0.0F, 0.1F, 0.5F, 0.7F, 0.7F, 0.5F, 0.3F, 0.2F,
0}
bl.Positions = New Single() {0, 0.1F, 0.2F, 0.5F, 0.6F, 0.7F, 0.8F, 0.9F,
1.0F}
DirectCast(brBack, LinearGradientBrush).Blend = bl
If mctrl.Width <> Me.Width Then mctrl.Width = Me.Width
MyBase.Paint(g, bounds2, cm, rownum, _
brBack, brFore, ar)
If rownum = cm.Count - 1 Then
Dim br As New SolidBrush(Me.DataGridTableStyle.DataGrid.Backgrou ndColor)
g.FillRectangle(br, 0, bounds2.Bottom + 1, mctrl.Width, _
mctrl.Height - bounds2.Bottom - 1)
End If
End Sub
End Class
Ken
-------------------------------
"anon" <ng*@tdrd.freeserve.co.uk> wrote in message
news:d1**********@newsg3.svr.pol.co.uk...
I want to obtain the appearance of frozen columns as in an excel sheet so
thet the first two columns of the table remain in view at all times.
Example - I have a table of products - listed by Item and Line.
I want the Item and Line columns to remain visible whilst being able to
scroll the rest of the grid across to reveal other columns.
Ialso need the information to be present and synchronised with the rows
when I scroll down.
All the data is held in one data table - and all I need to do is freeze the
first two columns of the datagrid, but I am informed that the datagrid does
not have this functionality.
Someone came up with the ides of having two datagrids - side by side - and
showing the first two columns (of the data table) in the first grid, with
the rest of the columns ( in the data table) being shown in the second grid.
This idea would be fine, but I cannot get the two grids to scroll down
together as if bound together.
Can anyone please come up with a means of facilitating this idea - or
suggest another means.
I am using VB.NET 2002 Standard edition.
Thanks in advance
Terry
Hi,
Here is a column style that locks a column on the datagrid. It is
still under development. basically if you set the locked property to true
it places a panel over the datagrid that has the locked column drawn on it.
Currently it only will lock the first column.
Imports System.Drawing.Drawing2D
Public Class ColoredGridColumn
Inherits DataGridTextBoxColumn
Dim mForeColor As Color = Color.Black
Dim mBackColor As Color = Color.White
Dim WithEvents mctrl As DblBufferPanel
Dim WithEvents dg As DataGrid
Dim pt As New Point
Dim bPanelOnly As Boolean = False
Dim cm As CurrencyManager
Dim ar As Boolean
Private Class DblBufferPanel
Inherits Panel
Public Sub New()
Me.SetStyle(ControlStyles.DoubleBuffer, True)
End Sub
End Class
Public Property ForeColor() As Color
Get
Return mForeColor
End Get
Set(ByVal Value As Color)
mForeColor = Value
End Set
End Property
Public Property BackColor() As Color
Get
Return mBackColor
End Get
Set(ByVal Value As Color)
mBackColor = Value
End Set
End Property
Public Property Locked() As Boolean
Get
Return Not mctrl Is Nothing
End Get
Set(ByVal Value As Boolean)
If Value = False Then
mctrl = Nothing
Else
mctrl = New DblBufferPanel
End If
End Set
End Property
Protected Overloads Overrides Sub Paint(ByVal g As System.Drawing.Graphics,
ByVal bounds As System.Drawing.Rectangle, ByVal source As
System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer, ByVal
backBrush As System.Drawing.Brush, ByVal foreBrush As System.Drawing.Brush,
ByVal alignToRight As Boolean)
Dim brFore As Brush
Dim brBack As Brush
Dim cFore As Color
Dim cBack As Color
Static bPainted As Boolean = False
If Not bPainted And Not (mctrl Is Nothing) Then
dg = Me.DataGridTableStyle.DataGrid
dg.Parent.Controls.Add(mctrl)
MovePanel()
mctrl.BringToFront()
pt = dg.GetCellBounds(0, 0).Location
If TypeOf dg.DataSource Is DataTable Then
AddHandler DirectCast(dg.DataSource, DataTable).DefaultView.ListChanged,
AddressOf dv_ListChanged
ElseIf TypeOf dg.DataSource Is DataView Then
AddHandler DirectCast(dg.DataSource, DataView).ListChanged, AddressOf
dv_ListChanged
End If
End If
cm = source
ar = alignToRight
bPainted = True
If Me.DataGridTableStyle.DataGrid.IsSelected(rowNum) Then
cFore = Me.DataGridTableStyle.SelectionForeColor
cBack = Me.DataGridTableStyle.SelectionBackColor
Else
cFore = ForeColor
cBack = BackColor
End If
brBack = New LinearGradientBrush(bounds, cBack, Color.White, 90, False)
brFore = New SolidBrush(cFore)
Dim bl As New Blend
bl.Factors = New Single() {0.0F, 0.1F, 0.5F, 0.7F, 0.7F, 0.5F, 0.3F, 0.2F,
0}
bl.Positions = New Single() {0, 0.1F, 0.2F, 0.5F, 0.6F, 0.7F, 0.8F, 0.9F,
1.0F}
DirectCast(brBack, LinearGradientBrush).Blend = bl
If Not bPanelOnly Then
MyBase.Paint(g, bounds, source, rowNum, brBack, brFore, alignToRight)
End If
If Not (mctrl Is Nothing) Then
' if there is another control to draw on move the bounds to the right edge
if htere is not then it will ignore that directive right? yesgot oitf the
control
'mctrl.BackgroundImage = bm
PaintRow(mctrl.CreateGraphics, bounds, rowNum)
End If
If Me.GetColumnValueAtRow(source, rowNum).ToString = "Davolio" Then
Me.DataGridTableStyle.DataGrid.Select(rowNum)
End If
End Sub
Public Shadows Sub BeginUpdate()
MyBase.BeginUpdate()
End Sub
Public Shadows Sub EndUpdate()
MyBase.EndUpdate()
End Sub
Protected Overloads Overrides Sub Edit(ByVal source As
System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer, ByVal bounds
As System.Drawing.Rectangle, ByVal [readOnly] As Boolean, ByVal instantText
As String, ByVal cellIsVisible As Boolean)
MyBase.Edit(source, rowNum, bounds, [readOnly], instantText, cellIsVisible)
MyBase.TextBox.ForeColor = ForeColor()
MyBase.TextBox.BackColor = BackColor
End Sub
Public Sub New()
End Sub
Private Sub dg_Scroll(ByVal sender As Object, ByVal e As System.EventArgs)
Handles dg.Scroll
Trace.WriteLine("Scroll")
RedrawPanel()
End Sub
Private Sub MovePanel()
mctrl.Location = New Point(dg.Left + dg.RowHeaderWidth + 2, dg.Top + 21)
Dim intFactor As Integer = SystemInformation.HorizontalScrollBarHeight
For Each ctrl As Control In Me.DataGridTableStyle.DataGrid.Controls
If TypeOf ctrl Is HScrollBar Then
If Not DirectCast(ctrl, HScrollBar).Visible Then intFactor = 0
End If
Next
mctrl.Height = dg.Height - 21 - intFactor - 2
End Sub
Private Sub dg_Move(ByVal sender As Object, ByVal e As System.EventArgs)
Handles dg.Move
MovePanel()
End Sub
Private Sub PreparePanel()
Dim sf As New StringFormat
sf.LineAlignment = StringAlignment.Center
Dim rDraw As New RectangleF(0, 0, Me.Width, 20)
Dim g As Graphics = mctrl.CreateGraphics
g.Clear(mctrl.BackColor)
Try
g.DrawString(Me.HeaderText, dg.Font, Brushes.Black, rDraw, sf)
ControlPaint.DrawBorder3D(g, _
New Rectangle(0, 0, Me.Width, 19), Border3DStyle.RaisedInner)
Catch
End Try
End Sub
Private Sub dv_ListChanged(ByVal sender As Object, ByVal e As
System.ComponentModel.ListChangedEventArgs)
'PreparePanel()
RedrawPanel()
End Sub
Private Sub dg_VisibleChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles dg.VisibleChanged
Try
mctrl.Visible = dg.Visible
Catch ex As Exception
End Try
End Sub
Private Sub dg_SizeChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles dg.SizeChanged
MovePanel()
RedrawPanel()
End Sub
Private Sub RedrawPanel()
Static oldTop As Integer = 0
If Not mctrl Is Nothing And dg.VisibleRowCount > 0 Then
Application.DoEvents()
Dim hti As DataGrid.HitTestInfo = dg.HitTest(pt)
Dim newRow As Integer = hti.Row
Trace.WriteLine(String.Format("First Row {0} Visible rows {1}", hti.Row,
dg.VisibleRowCount))
oldTop = newRow
bPanelOnly = True
For x As Integer = oldTop To oldTop + dg.VisibleRowCount - 1
If x < cm.Count Then
Trace.WriteLine(String.Format("Drawing Row {0} {1}", x, dg.GetCellBounds(x,
dg.FirstVisibleColumn)))
Paint(Nothing, dg.GetCellBounds(x, dg.FirstVisibleColumn), _
cm, x, Nothing, Nothing, ar)
End If
Next
bPanelOnly = False
End If
End Sub
Private Sub dg_Resize(ByVal sender As Object, ByVal e As System.EventArgs)
Handles dg.Resize
MovePanel()
End Sub
Private Sub mctrl_Paint(ByVal sender As Object, ByVal e As
System.Windows.Forms.PaintEventArgs) Handles mctrl.Paint
Dim sf As New StringFormat
sf.LineAlignment = StringAlignment.Center
Dim rDraw As New RectangleF(0, 0, Me.Width, 20)
Dim g As Graphics = e.Graphics
g.Clear(mctrl.BackColor)
Try
g.DrawString(Me.HeaderText, dg.Font, Brushes.Black, rDraw, sf)
ControlPaint.DrawBorder3D(g, _
New Rectangle(0, 0, Me.Width, 19), Border3DStyle.RaisedInner)
Debug.WriteLine("Panel Paint")
Dim hti As DataGrid.HitTestInfo = dg.HitTest(pt)
Dim newRow As Integer = hti.Row
Dim oldTop As Integer
Trace.WriteLine(String.Format("First Row {0} Visible rows {1}", hti.Row,
dg.VisibleRowCount))
oldTop = newRow
bPanelOnly = True
For x As Integer = oldTop To oldTop + dg.VisibleRowCount - 1
If x < cm.Count Then
Trace.WriteLine(String.Format("Drawing Row {0} {1}", x, dg.GetCellBounds(x,
dg.FirstVisibleColumn)))
Paint(Nothing, dg.GetCellBounds(x, dg.FirstVisibleColumn), _
cm, x, Nothing, Nothing, ar)
End If
Next
Catch
End Try
End Sub
Private Sub PaintRow(ByVal g As Graphics, ByVal bounds As Rectangle, ByVal
rownum As Integer)
Dim brFore As Brush
Dim brBack As Brush
Dim cFore As Color
Dim cBack As Color
Dim bounds2 As New Rectangle(0, bounds.Y - 21, bounds.Width, bounds.Height)
If Me.DataGridTableStyle.DataGrid.IsSelected(rownum) Then
cFore = Me.DataGridTableStyle.SelectionForeColor
cBack = Me.DataGridTableStyle.SelectionBackColor
Else
cFore = ForeColor
cBack = BackColor
End If
brBack = New LinearGradientBrush(bounds, cBack, Color.White, 90, False)
brFore = New SolidBrush(cFore)
Dim bl As New Blend
bl.Factors = New Single() {0.0F, 0.1F, 0.5F, 0.7F, 0.7F, 0.5F, 0.3F, 0.2F,
0}
bl.Positions = New Single() {0, 0.1F, 0.2F, 0.5F, 0.6F, 0.7F, 0.8F, 0.9F,
1.0F}
DirectCast(brBack, LinearGradientBrush).Blend = bl
If mctrl.Width <> Me.Width Then mctrl.Width = Me.Width
MyBase.Paint(g, bounds2, cm, rownum, _
brBack, brFore, ar)
If rownum = cm.Count - 1 Then
Dim br As New SolidBrush(Me.DataGridTableStyle.DataGrid.Backgrou ndColor)
g.FillRectangle(br, 0, bounds2.Bottom + 1, mctrl.Width, _
mctrl.Height - bounds2.Bottom - 1)
End If
End Sub
End Class
Ken
-------------------------------
"anon" <ng*@tdrd.freeserve.co.uk> wrote in message
news:d1**********@newsg3.svr.pol.co.uk...
I want to obtain the appearance of frozen columns as in an excel sheet so
thet the first two columns of the table remain in view at all times.
Example - I have a table of products - listed by Item and Line.
I want the Item and Line columns to remain visible whilst being able to
scroll the rest of the grid across to reveal other columns.
Ialso need the information to be present and synchronised with the rows
when I scroll down.
All the data is held in one data table - and all I need to do is freeze the
first two columns of the datagrid, but I am informed that the datagrid does
not have this functionality.
Someone came up with the ides of having two datagrids - side by side - and
showing the first two columns (of the data table) in the first grid, with
the rest of the columns ( in the data table) being shown in the second grid.
This idea would be fine, but I cannot get the two grids to scroll down
together as if bound together.
Can anyone please come up with a means of facilitating this idea - or
suggest another means.
I am using VB.NET 2002 Standard edition.
Thanks in advance
Terry
thanks for that feedback - it's a starting point.
Terry
"Ken Tucker [MVP]" <vb***@bellsouth.net> wrote in message
news:u2**************@tk2msftngp13.phx.gbl... Hi,
Here is a column style that locks a column on the datagrid. It is
still under development. basically if you set the locked property to true
it places a panel over the datagrid that has the locked column drawn on
it. Currently it only will lock the first column.
Imports System.Drawing.Drawing2D
Public Class ColoredGridColumn
Inherits DataGridTextBoxColumn
Dim mForeColor As Color = Color.Black
Dim mBackColor As Color = Color.White
Dim WithEvents mctrl As DblBufferPanel
Dim WithEvents dg As DataGrid
Dim pt As New Point
Dim bPanelOnly As Boolean = False
Dim cm As CurrencyManager
Dim ar As Boolean
Private Class DblBufferPanel
Inherits Panel
Public Sub New()
Me.SetStyle(ControlStyles.DoubleBuffer, True)
End Sub
End Class
Public Property ForeColor() As Color
Get
Return mForeColor
End Get
Set(ByVal Value As Color)
mForeColor = Value
End Set
End Property
Public Property BackColor() As Color
Get
Return mBackColor
End Get
Set(ByVal Value As Color)
mBackColor = Value
End Set
End Property
Public Property Locked() As Boolean
Get
Return Not mctrl Is Nothing
End Get
Set(ByVal Value As Boolean)
If Value = False Then
mctrl = Nothing
Else
mctrl = New DblBufferPanel
End If
End Set
End Property
Protected Overloads Overrides Sub Paint(ByVal g As
System.Drawing.Graphics, ByVal bounds As System.Drawing.Rectangle, ByVal source As
System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer, ByVal
backBrush As System.Drawing.Brush, ByVal foreBrush As
System.Drawing.Brush, ByVal alignToRight As Boolean)
Dim brFore As Brush
Dim brBack As Brush
Dim cFore As Color
Dim cBack As Color
Static bPainted As Boolean = False
If Not bPainted And Not (mctrl Is Nothing) Then
dg = Me.DataGridTableStyle.DataGrid
dg.Parent.Controls.Add(mctrl)
MovePanel()
mctrl.BringToFront()
pt = dg.GetCellBounds(0, 0).Location
If TypeOf dg.DataSource Is DataTable Then
AddHandler DirectCast(dg.DataSource, DataTable).DefaultView.ListChanged,
AddressOf dv_ListChanged
ElseIf TypeOf dg.DataSource Is DataView Then
AddHandler DirectCast(dg.DataSource, DataView).ListChanged, AddressOf
dv_ListChanged
End If
End If
cm = source
ar = alignToRight
bPainted = True
If Me.DataGridTableStyle.DataGrid.IsSelected(rowNum) Then
cFore = Me.DataGridTableStyle.SelectionForeColor
cBack = Me.DataGridTableStyle.SelectionBackColor
Else
cFore = ForeColor
cBack = BackColor
End If
brBack = New LinearGradientBrush(bounds, cBack, Color.White, 90, False)
brFore = New SolidBrush(cFore)
Dim bl As New Blend
bl.Factors = New Single() {0.0F, 0.1F, 0.5F, 0.7F, 0.7F, 0.5F, 0.3F, 0.2F,
0}
bl.Positions = New Single() {0, 0.1F, 0.2F, 0.5F, 0.6F, 0.7F, 0.8F, 0.9F,
1.0F}
DirectCast(brBack, LinearGradientBrush).Blend = bl
If Not bPanelOnly Then
MyBase.Paint(g, bounds, source, rowNum, brBack, brFore, alignToRight)
End If
If Not (mctrl Is Nothing) Then
' if there is another control to draw on move the bounds to the right edge
if htere is not then it will ignore that directive right? yesgot oitf the
control
'mctrl.BackgroundImage = bm
PaintRow(mctrl.CreateGraphics, bounds, rowNum)
End If
If Me.GetColumnValueAtRow(source, rowNum).ToString = "Davolio" Then
Me.DataGridTableStyle.DataGrid.Select(rowNum)
End If
End Sub
Public Shadows Sub BeginUpdate()
MyBase.BeginUpdate()
End Sub
Public Shadows Sub EndUpdate()
MyBase.EndUpdate()
End Sub
Protected Overloads Overrides Sub Edit(ByVal source As
System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer, ByVal
bounds As System.Drawing.Rectangle, ByVal [readOnly] As Boolean, ByVal
instantText As String, ByVal cellIsVisible As Boolean)
MyBase.Edit(source, rowNum, bounds, [readOnly], instantText,
cellIsVisible)
MyBase.TextBox.ForeColor = ForeColor()
MyBase.TextBox.BackColor = BackColor
End Sub
Public Sub New()
End Sub
Private Sub dg_Scroll(ByVal sender As Object, ByVal e As System.EventArgs)
Handles dg.Scroll
Trace.WriteLine("Scroll")
RedrawPanel()
End Sub
Private Sub MovePanel()
mctrl.Location = New Point(dg.Left + dg.RowHeaderWidth + 2, dg.Top + 21)
Dim intFactor As Integer = SystemInformation.HorizontalScrollBarHeight
For Each ctrl As Control In Me.DataGridTableStyle.DataGrid.Controls
If TypeOf ctrl Is HScrollBar Then
If Not DirectCast(ctrl, HScrollBar).Visible Then intFactor = 0
End If
Next
mctrl.Height = dg.Height - 21 - intFactor - 2
End Sub
Private Sub dg_Move(ByVal sender As Object, ByVal e As System.EventArgs)
Handles dg.Move
MovePanel()
End Sub
Private Sub PreparePanel()
Dim sf As New StringFormat
sf.LineAlignment = StringAlignment.Center
Dim rDraw As New RectangleF(0, 0, Me.Width, 20)
Dim g As Graphics = mctrl.CreateGraphics
g.Clear(mctrl.BackColor)
Try
g.DrawString(Me.HeaderText, dg.Font, Brushes.Black, rDraw, sf)
ControlPaint.DrawBorder3D(g, _
New Rectangle(0, 0, Me.Width, 19), Border3DStyle.RaisedInner)
Catch
End Try
End Sub
Private Sub dv_ListChanged(ByVal sender As Object, ByVal e As
System.ComponentModel.ListChangedEventArgs)
'PreparePanel()
RedrawPanel()
End Sub
Private Sub dg_VisibleChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles dg.VisibleChanged
Try
mctrl.Visible = dg.Visible
Catch ex As Exception
End Try
End Sub
Private Sub dg_SizeChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles dg.SizeChanged
MovePanel()
RedrawPanel()
End Sub
Private Sub RedrawPanel()
Static oldTop As Integer = 0
If Not mctrl Is Nothing And dg.VisibleRowCount > 0 Then
Application.DoEvents()
Dim hti As DataGrid.HitTestInfo = dg.HitTest(pt)
Dim newRow As Integer = hti.Row
Trace.WriteLine(String.Format("First Row {0} Visible rows {1}", hti.Row,
dg.VisibleRowCount))
oldTop = newRow
bPanelOnly = True
For x As Integer = oldTop To oldTop + dg.VisibleRowCount - 1
If x < cm.Count Then
Trace.WriteLine(String.Format("Drawing Row {0} {1}", x,
dg.GetCellBounds(x, dg.FirstVisibleColumn)))
Paint(Nothing, dg.GetCellBounds(x, dg.FirstVisibleColumn), _
cm, x, Nothing, Nothing, ar)
End If
Next
bPanelOnly = False
End If
End Sub
Private Sub dg_Resize(ByVal sender As Object, ByVal e As System.EventArgs)
Handles dg.Resize
MovePanel()
End Sub
Private Sub mctrl_Paint(ByVal sender As Object, ByVal e As
System.Windows.Forms.PaintEventArgs) Handles mctrl.Paint
Dim sf As New StringFormat
sf.LineAlignment = StringAlignment.Center
Dim rDraw As New RectangleF(0, 0, Me.Width, 20)
Dim g As Graphics = e.Graphics
g.Clear(mctrl.BackColor)
Try
g.DrawString(Me.HeaderText, dg.Font, Brushes.Black, rDraw, sf)
ControlPaint.DrawBorder3D(g, _
New Rectangle(0, 0, Me.Width, 19), Border3DStyle.RaisedInner)
Debug.WriteLine("Panel Paint")
Dim hti As DataGrid.HitTestInfo = dg.HitTest(pt)
Dim newRow As Integer = hti.Row
Dim oldTop As Integer
Trace.WriteLine(String.Format("First Row {0} Visible rows {1}", hti.Row,
dg.VisibleRowCount))
oldTop = newRow
bPanelOnly = True
For x As Integer = oldTop To oldTop + dg.VisibleRowCount - 1
If x < cm.Count Then
Trace.WriteLine(String.Format("Drawing Row {0} {1}", x,
dg.GetCellBounds(x, dg.FirstVisibleColumn)))
Paint(Nothing, dg.GetCellBounds(x, dg.FirstVisibleColumn), _
cm, x, Nothing, Nothing, ar)
End If
Next
Catch
End Try
End Sub
Private Sub PaintRow(ByVal g As Graphics, ByVal bounds As Rectangle, ByVal
rownum As Integer)
Dim brFore As Brush
Dim brBack As Brush
Dim cFore As Color
Dim cBack As Color
Dim bounds2 As New Rectangle(0, bounds.Y - 21, bounds.Width,
bounds.Height)
If Me.DataGridTableStyle.DataGrid.IsSelected(rownum) Then
cFore = Me.DataGridTableStyle.SelectionForeColor
cBack = Me.DataGridTableStyle.SelectionBackColor
Else
cFore = ForeColor
cBack = BackColor
End If
brBack = New LinearGradientBrush(bounds, cBack, Color.White, 90, False)
brFore = New SolidBrush(cFore)
Dim bl As New Blend
bl.Factors = New Single() {0.0F, 0.1F, 0.5F, 0.7F, 0.7F, 0.5F, 0.3F, 0.2F,
0}
bl.Positions = New Single() {0, 0.1F, 0.2F, 0.5F, 0.6F, 0.7F, 0.8F, 0.9F,
1.0F}
DirectCast(brBack, LinearGradientBrush).Blend = bl
If mctrl.Width <> Me.Width Then mctrl.Width = Me.Width
MyBase.Paint(g, bounds2, cm, rownum, _
brBack, brFore, ar)
If rownum = cm.Count - 1 Then
Dim br As New SolidBrush(Me.DataGridTableStyle.DataGrid.Backgrou ndColor)
g.FillRectangle(br, 0, bounds2.Bottom + 1, mctrl.Width, _
mctrl.Height - bounds2.Bottom - 1)
End If
End Sub
End Class
Ken
-------------------------------
"anon" <ng*@tdrd.freeserve.co.uk> wrote in message
news:d1**********@newsg3.svr.pol.co.uk...
I want to obtain the appearance of frozen columns as in an excel sheet so
thet the first two columns of the table remain in view at all times.
Example - I have a table of products - listed by Item and Line.
I want the Item and Line columns to remain visible whilst being able
to scroll the rest of the grid across to reveal other columns.
Ialso need the information to be present and synchronised with the
rows when I scroll down.
All the data is held in one data table - and all I need to do is freeze
the first two columns of the datagrid, but I am informed that the datagrid
does not have this functionality.
Someone came up with the ides of having two datagrids - side by side - and
showing the first two columns (of the data table) in the first grid, with
the rest of the columns ( in the data table) being shown in the second
grid. This idea would be fine, but I cannot get the two grids to scroll down
together as if bound together.
Can anyone please come up with a means of facilitating this idea - or
suggest another means.
I am using VB.NET 2002 Standard edition.
Thanks in advance
Terry
This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics
by: justme |
last post by:
Dears
I have created the following page to display my data
<head>
<style type="text/css">
body, td, th, h1, h2 {font-family: sans-serif;}
body, td, th {font-size: 100%;}
a:link {...
|
by: paulus4605 |
last post by:
Dears
I have the following problem
I’m using a query to get all the data from my database from the past
year
the second query is displaying the results by month.
How can I match the second...
|
by: Dominic Marks |
last post by:
Hi,
(I apologise if this is the wrong list, I haven't posted
to a postgresql.org mailing list before, general seemed
like a good catch-all)
I am trying to implement a centralised...
|
by: judy |
last post by:
I have a number of Acess databases on a web site and copies
of these databases on my local PC.
The databases can be independently updated on the web and also
on my local PC.
Is there some way...
|
by: Michael Thomas |
last post by:
Hi everyone
Having a slight problem synchronising tables in MS Access 2002.
I have two tables:
Products (StockCode*, Description, CostPrice, SellingPrice)
and
|
by: Rajesh Sharma |
last post by:
Dear all,
please help me in Combo Box Synchronising.
I have three levels.
Category -> Type -> Subtype
Depending on the selected Category, the Type appears in the second combo
box and...
|
by: Scott Meddows |
last post by:
I'm having trouble scrolling some datagrids so they sync up...
I have two identical datagrids on a form, filled with eh same dataset. I want a user to be able to scroll on the datasets and the...
|
by: rn5a |
last post by:
In a shopping cart app, a ASPX page retrieves the order details &
personal details of a user from a MS-Access database table depending
upon the username of the user.
The order details of a...
|
by: chromis |
last post by:
Hi,
I've just setup a development server for testing websites at my office and wish to synchronise it with the sites folder on our live server, does anyone know of any good programs for this?
...
|
by: emmanuelkatto |
last post by:
Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud.
Please let me know.
Thanks!
Emmanuel
|
by: BarryA |
last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
|
by: Sonnysonu |
last post by:
This is the data of csv file
1 2 3
1 2 3
1 2 3
1 2 3
2 3
2 3
3
the lengths should be different i have to store the data by column-wise with in the specific length.
suppose the i have to...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
|
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers,...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...
|
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new...
| |
