MSHFlexGrid可以自动设置换行，但换行后行高如何才能自动调整呢？不知道高手们有没有遇到个这个问题。
-
等级
本版专家分：13结帖率 71.43% -
本人自己也试着解决这个问题，也从网上搜索了一些资料，但没得到有效的解决。
MSHFlexGrid可以自动设置换行，但换行后行高如何才能自动调整呢？不知道高手们有没有遇到个这个问题。展开阅读全文
-
等级
本版专家分：16324 -
换个空间，vsflexgrid可以
-
等级
本版专家分：13
-
用MSHFlexGrid就没办法实现嘛，主要是其它功能我都开发完了，现在换控件，很麻烦。
-
等级
本版专家分：16324
-
找到了一个例子。
看看
Public Function FG_AutosizeRows(myGrid As MSFlexGrid, _
Optional ByVal lFirstRow As Long = -1, _
Optional ByVal lLastRow As Long = -1, _
Optional bCheckFont As Boolean = False)
' This will only work for Cells with a Chr(13)
' To have it working with WordWrap enabled
' you need some other routine
' Which has been added too
Dim lCol As Long, lRow As Long, lCurCol As Long, lCurRow As Long
Dim lCellHeight As Long, lRowHeight As Long
Dim bFontBold As Boolean
Dim dFontSize As Double
Dim sFontName As String
If bCheckFont Then
' save the forms font settings
bFontBold = Me.FontBold
sFontName = Me.FontName
dFontSize = Me.FontSize
End If
With myGrid
If bCheckFont Then
lCurCol = .Col
lCurRow = .Row
End If
If lFirstRow = -1 Then lFirstRow = 0
If lLastRow = -1 Then lLastRow = .Rows - 1
For lRow = lFirstRow To lLastRow
lRowHeight = 0
If bCheckFont Then .Row = lRow
For lCol = 0 To .Cols - 1
If bCheckFont Then
.Col = lCol
Me.FontBold = .CellFontBold
Me.FontName = .CellFontName
Me.FontSize = .CellFontSize
End If
lCellHeight = Me.TextHeight(.TextMatrix(lRow, lCol))
If lCellHeight > lRowHeight Then lRowHeight = lCellHeight
Next lCol
.RowHeight(lRow) = lRowHeight + Me.TextHeight("Wg") / 5
Next lRow
If bCheckFont Then
.Row = lCurRow
.Col = lCurCol
End If
End With
If bCheckFont Then
' restore the forms font settings
Me.FontBold = bFontBold
Me.FontName = sFontName
Me.FontSize = dFontSize
End If
End Function
Public Function FG_AutosizeCols(myGrid As MSFlexGrid, _
Optional ByVal lFirstCol As Long = -1, _
Optional ByVal lLastCol As Long = -1, _
Optional bCheckFont As Boolean = False)
Dim lCol As Long, lRow As Long, lCurCol As Long, lCurRow As Long
Dim lCellWidth As Long, lColWidth As Long
Dim bFontBold As Boolean
Dim dFontSize As Double
Dim sFontName As String
If bCheckFont Then
' save the forms font settings
bFontBold = Me.FontBold
sFontName = Me.FontName
dFontSize = Me.FontSize
End If
With myGrid
If bCheckFont Then
lCurRow = .Row
lCurCol = .Col
End If
If lFirstCol = -1 Then lFirstCol = 0
If lLastCol = -1 Then lLastCol = .Cols - 1
For lCol = lFirstCol To lLastCol
lColWidth = 0
If bCheckFont Then .Col = lCol
For lRow = 0 To .Rows - 1
If bCheckFont Then
.Row = lRow
Me.FontBold = .CellFontBold
Me.FontName = .CellFontName
Me.FontSize = .CellFontSize
End If
lCellWidth = Me.TextWidth(.TextMatrix(lRow, lCol))
If lCellWidth > lColWidth Then lColWidth = lCellWidth
Next lRow
.ColWidth(lCol) = lColWidth + Me.TextWidth("W")
Next lCol
If bCheckFont Then
.Row = lCurRow
.Col = lCurCol
End If
End With
If bCheckFont Then
' restore the forms font settings
Me.FontBold = bFontBold
Me.FontName = sFontName
Me.FontSize = dFontSize
End If
End Function
-
等级
本版专家分：13
-
楼上兄弟，这代码不能实现自动换行动自动调整行高功能。
-
等级
本版专家分：9709 -
楼主你看看那个控件，找找看有没有AutoSizeMode属性或方法。。。
-
等级
本版专家分：16324
-
这个例子是当用chr（13）分行有用，用WordWrap，要用其他方法，看上面的注释。
别的没有找到。
-
等级
本版专家分：13
-
没有AutoSizeMode
-
等级
本版专家分：13
-
万能的CSDN 真的没有人能解决了嘛。
- VB6.0中编辑MSHFlexGrid强制换行并调整列宽及行高.txt
VB6.0中根据每一个单元格的内容根据指定的列宽强制换行，并根据单元格的内容调整行高和列宽
- .net分页换行打印
.Net单据打印有很多方法，目前介绍一种完全画线，绘制文本的方法，效果图如下 using System; using System.Collections.Generic; using System.Drawing; using System.Linq;...using Wms.Print....
- vb中MSFlexgrid 和 MSHFlexgrid 的区别以及详解
简单地说,MSFlexGrid和MSHFlexGrid之间的区别，主要是后者支持ADO的层次显示。如果你不使用ADO，可以考虑MSFlexGrid，否则建议使用MSHFlexGrid。 这两个控件的详解: MSFlexGrid控件 MicrosoftFlexGrid(MSFlexGrid...
- mshflexgrid与datagrid区别
DataGrid控件 显示并允许对Recordset对象中代表记录和字段的一系列行和列进行数据...但是，您可以设置DataGrid控件的DataSource属性为一个Data控件，以自动填充该控件并且从Data控件的Recordset对象自动设置其列
- MSHFlexGrid与MSFlexGrid之间的区别
用到新控件MSHFlexGrid的时候发现它和MSFlexGrid长得好像啊，添加的时候就没注意，就用了错的，两者既相似又有不同
- msflexgrid和 mshflexgrid区别与联系
做几房收费系统,在显示查询数据结果的时候,多次的使用到了...简单地说,MSFlexGrid和MSHFlexGrid之间的区别，主要是后者支持ADO的层次显示。如果你不使用ADO，可以考虑MSFlexGrid，否则建议使用MSHFlexGrid。 这...
- 在Visual Basic 6.0中MSFlexGrid控件与DataGrid控件有什么不同？
它提供了高度灵活的网格排序、合并和格式设置功能，网格中可以包含字符串和图片。如果将它绑定到一个 Data 控件上，那么 MSFlexGrid 显示的将是只读的数据。 <br />语法:MSFlexGrid 说明: 文本...
- VB控件属性大全
1.01、窗体(FORM)的常用属性... 21.02、标签控件(Lable)的常用属性... 71.03、文本框控件(TextBox)的常用属性... 91.04、框架控件(Frame)的常用属性... 131.05、命令按钮控件(CommandButton)的常用属性......
- VSFlexGrid使用技巧
如何实现将vsflexgrid中修改的数据反馈到数据库中？ Private Sub vsflexgrid1_AfterEdit(ByVal Row As Long, ByVal Col As Long) rs.MoveFirst '//rs为记录集 rs.Move vsflexgrid1.Row - 1 ...
- VB控件属性及其一些常数（续1）
2.07、数据列表(DataList) 控件的常用属性 属性说明 (Name) 数据列表(DataList)控件的名称 (自定义) 打开属性页 ...Appearance 是否用立体效果绘制...BoundColumn 获得或设置一个Recordset(记录集)对象中的源字段名
- 区分“双胞胎”控件
在敲击代码的起初是我最容易搞混的两个控件是MSFlexGrid和MSHFlexGrid。见得次数多了，就有一种迫切想要探究清楚的愿望。下面是我为了解决我的问题，查阅大量网络资料和MSDN上的资料获得的相关信息，希望可以帮助...
- VB控件VSFlexGrid 属性
VSFlexGrid 属性 方法 最近用到这个东西。 以下来自网络~ VSFlexGrid 控件属性方法一览表VSFlexGrid 控件属性方法一览表(带()为方法) ...说明：O 表示 VSFlexGrid 对象的名，A 表示当前属性名，|表示可选 ...
- VB速查大全(数据库、表格及报表编程) ★ VB错误处理，ado常见错误，VB数据类型等，网上有很多教程是错的，...
VB异常处理 (很重要) ado常见错误 ado游标及锁定介绍 免费报表控件 免费表格控件 vb数据类型(很多程序出问题出在这个，一定要看，VB msdn说的不太对) ...VB可用的AES加密sqlite_odbc 及 cairo_sqlite ...
- vsgflexgrid控件属性（2）
1,如果想把某一列设置成下拉匡中选择，只能写成 grid.colcombolist(1) = "a|b|c" 吗？能不能把下拉框中的数据和 recordset 或数组绑定。 答案:grid.colcombolist(1)＝grid.buildcombolist(rs!abc)2,怎样限定...
- vsflexgrid使用说明
如何实现将vsflexgrid中修改的数据反馈到数据库中？Private Sub vsflexgrid1_AfterEdit(ByVal Row As Long, ByVal Col As Long) rs.MoveFirst '//rs为记录集 rs.Move vsflexgrid1.Row - 1 rs.Edit If vsflexgrid1....
- VB 控件
MSHFlexGrid控件 maxbutton 最大化 显示不显示 表格边框颜色值 GridColor minbutton 最小化 显示不显示 表格中的字的颜色 ForeColor borderstyle 值2 最大化最小化显示 标题颜色 For...