如何使MSFlexGrid列宽,根据其字段长度,自动更改宽度?
解决方案 »
- 双击listbox中的文件名获取它完全路径并把返回值赋给某个变量可以吗 高手请进
- VBA 通过ODBC连接DB2的问题. 在线等急
- 请教几个问题,关于vb连接access的
- 我弄了个查询功能,用DBGrid显示,但结果只能看到字段名,不能看到集体数据,请帮忙看一下
- 一个串口通信的问题
- 字符串数组转换的问题!
- vb能否做多线程的程序,高分求解
- loadbitmap 如何从一个位图文件中得到图形
- VB程序打包没问题但安装出现下面的问题,我在线上等着,快告诉我吧!
- MSHFLexgrid控件绑到DataEnvioronment,DataEnvioronment绑到一数据库....
- 求教,如何判断键盘被按下和鼠标被移动或按下?
- 高分求购金碟数据库结构!我想知道它的字段和表名!
.Cols = xxx
.FixedCols = xxx
.FixedRows = xxx
....................
For I = 1 To .Cols - 1
.Row = 0
.Col = I
.ColWidth(I) = Len(rs.fields(x))* 200
.CellAlignment = flexAlignCenterCenter
................
Next I
End With
'--------------------------------------------------------------------
'功能:
' 自动调整Grid各列列宽为最合适的宽度
'参数:
' [frmCur].........................................当前工作窗体
' [gridCur]........................................当前要调整的Grid
'--------------------------------------------------------------------
Dim i, j As Integer
Dim dblWidth As Double
With gridCur
For i = 0 To .Cols - 1
dblWidth = 0
If .ColWidth(i) <> 0 Then
For j = 0 To .Rows - 1
If frmCur.TextWidth(.TextMatrix(j, i)) > dblWidth Then
dblWidth = frmCur.TextWidth(.TextMatrix(j, i))
End If
Next
.ColWidth(i) = dblWidth + dblIncWidth + 100
End If
Next
End With
End Sub