_A simple datagrid (data grid) column resizer

				
//**************************************
// Name: _A simple datagrid (data grid) column resizer
// Description:This function call will allow you to resize your data grid column widths, as well as set other data grid properties using the DataGridTableStyle object.
// By: Duane Warsham
//
// Inputs:DataSet object
//
// Returns:DataGridTableStyle object
//
// Assumes:works ok, only draw back is that for now you have to hard code the total # of columns you need to resize.
//
//This code is copyrighted and has// limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=2639&lngWId=10//for details.//**************************************

' To use the object, call from your code 
'......
'......
'dataAdapter1.Fill(dataset1)
'
' datagrid1.DataSource = dataset1.Tables(0)
'
'Add new TableStyle to the DataGrid, you must clear the present one 1st, or will error
'datagrid1.TableStyles.Clear()
'datagrid1.TableStyles.Add(Database.myTableStyle(dataset1)) 'where Database is the class containing the myTableStyle function
'......
'......
'
'Now the actual code
'it must be shared in some cases
'
 Public Shared Function myTableStyle(ByVal ds As DataSet) As DataGridTableStyle
 'this will resize data grid column widths, and use it to set grid colors, column names, etc.
 'only draw back is having to hard code your style for the # of columns you have
 'Create Table Style.
 myTableStyle = New DataGridTableStyle
 'Set MappingName for TableStyle.
 myTableStyle.MappingName = ds.Tables(0).ToString
 myTableStyle.SelectionBackColor = Color.Yellow
 myTableStyle.SelectionForeColor = Color.DarkRed
 myTableStyle.HeaderForeColor = Color.DarkBlue
 myTableStyle.AlternatingBackColor = Color.LightYellow
 myTableStyle.BackColor = Color.AntiqueWhite
 'Create 1st column.
 Dim myCOL As New DataGridTextBoxColumn
 With myCOL
.MappingName = "WorkDate"
.HeaderText = "Work Date"
.Width = 100
 End With
 myTableStyle.GridColumnStyles.Add(myCOL)
 'Create 2nd column.
 myCOL = New DataGridTextBoxColumn
 With myCOL
.MappingName = "JobName"
.HeaderText = "Job Description"
.Width = 200
 End With
 myTableStyle.GridColumnStyles.Add(myCOL)
 'Create 3rd column.
 myCOL = New DataGridTextBoxColumn
 With myCOL
.MappingName = "Hours"
.HeaderText = "Hours"
.Width = 40
 End With
 myTableStyle.GridColumnStyles.Add(myCOL)
 'Create 4th column.
 myCOL = New DataGridTextBoxColumn
 With myCOL
.MappingName = "Comments"
.HeaderText = "Comments"
.Width = 397
 End With
 myTableStyle.GridColumnStyles.Add(myCOL)
 End Function