dataGrid自动调整列宽

实用标准文案'设置dbgrid样式表在调整显示列宽之前要给 datagrid 添加表的样式，即DataGridTableStyle ，如下方法参数DataGrid1 为DataGrid 实例，球员基本信息 SK为数据库中表的名称PublicSubsetDataGridTablestyle(ByValDataGrid1AsDataGrid,ByVal 球员基本信息SKAsString)DimmytablestyleAsDataGridTableStyle' 声明mytablestyle=NewDataGridTableStylemytablestyle.MappingName= 球员基本信息SK‘映射表名 ’清空datagrid 的原有的样式表 ‘添加EndSub二调整datagrid 列宽调整datagrid 列宽通过如下两个方法实现'设置datagrid 显示格式PublicSubAutoSizeTable(ByValmyDataGridAsDataGrid)DimnumColsAsIntegernumCols=CType(myDataGrid.DataSource,DataSet).Tables(0).Columns.Count ’获取datagrid 要显示的列数DimiAsIntegeri=0DoWhile(i<numCols)精彩文档实用标准文案AutoSizeCol(i,myDataGrid) ‘设置列宽i=(i+1)LoopEndSub’便利datagrid.dataSource 的所有行，设置列的宽度PublicSubAutoSizeCol(ByValcolAsInteger,ByValmydatagridAsDataGrid)DimwidthAsSinglewidth=0DimnumRowsAsIntegernumRows=CType(mydatagrid.DataSource,DataSet).Tables(0).Rows.CountDimgAsGraphicsg=Graphics.FromHwnd(mydatagrid.Handle)DimsfAsStringFormatsf=NewStringFormat(StringFormat.GenericTypographic)DimsizeAsSizeFDimiAsIntegeri=0DoWhile(i<numRows)size=g.MeasureString(mydatagrid(i,col).ToString,mydatagrid.Font,500,sf)精彩文档实用标准文案If(size.Width>width)Thenwidth=size.WidthEndIfi=(i+1)Loopg.Dispose()Ifwidth<mydatagrid.PreferredColumnWidthThenwidth=mydatagrid.PreferredColumnWidthEndIfGridColumnStyles(col).Width=CType(width+10,Integer)EndSub三实例调用下面这段代码可以放到窗体的 load事件或者button 的click事件中进行测试。首先，声明一个数据集，然后将数据集赋值给 grid的datasource 属性dimmyDataProcessasnewcDataProcess'cDataProcess 为自己设置的一个处理sql的公共方法，其它文章‘有介绍dimmydatasetasnewDataSetdimstrsqlasstringstrsql="......"mydataset=myDataProcess.dataSelect(strsql,"tableName") ‘数据集的实现过程可以自己写程序实现精彩文档实用标准文案‘生成datagrid 样式表setDataGridTablestyle （me.dataGrid1,"tableNam