Question

我用VB做了一个程序，和Access相连的，Access中的一些数据要在MSFlexGrid中显示出来，如何可以自动换行？

如图所示，前两列的内容比较少可以显示出来，可是第三列内容比较多就不能显示完全了，而且每次运行程序时如上面的图显示的，只显示几个字，我还要手动拖动才能让它往后显示。有木有自动换行的方法呀？求大神指点。具体点哈。

Answer 1

Public Sub AutoColWidth1(Flex As MSFlexGrid) '按照字段内容的大小自动调整MSFlexGrid或者MSHFlexGrid中的字段宽度
With Flex
Dim I As Long
Dim J As Long
Dim MaxWidth As Integer
Dim NowWidth As Integer
Dim CharWidth As Single
CharWidth = .Parent.TextWidth("A")
For J = 0 To .Cols - 1
MaxWidth = 0
For I = 0 To .Rows - 1
NowWidth = LenC(.TextMatrix(I, J))
If NowWidth > MaxWidth Then
MaxWidth = NowWidth
End If
Next I
.ColWidth(J) = (MaxWidth + 1) * CharWidth
Next J
End With
End Sub

Public Function LenC(Zfc As String) As Long
'求得中英文混合字符串的长度
Dim a As String
a = StrConv(Zfc, vbFromUnicode)
LenC = LenB(a)
End Function

追问

这些代码要加到哪里呢~~求指教

追答

加到 你读完数据显示到 MSFlexGrid 之后

Answer 2

我好像说过了，
MSFlexGrid没有自动换行功能，你可以把该单元格固定一定的字数在显示出来前计算一下到达固定字数的后面加Chr(13)回车符再显示。

追问

恩恩 能说具体点么，小弟菜鸟额~~

追答

Dim a As String
Dim S1 As String
Dim C1 As String
Dim SW As String
Dim K As Integer
K = 20 '定义字数
S1 = Replace(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2), Chr(13), "") '先去掉回车
For j = 1 To Len(S1)
C1 = Mid(S1, j, 1)
SW = SW & C1
a = StrConv(SW, vbFromUnicode) '求得英文字符串的长度
If trim(LenB(a)) Mod K = 0 Then '大于等于k回车
SW = SW & vbCrLf
End If
Next j

追问

额。捣鼓了一半天不知道把你给我的那些代码加到哪里额。。（通用），command1，command2,form label1,label2,MSFlexGrid1,Text1 这几个里面的哪一个额。你有邮箱么，要不我把代码啥的发到你邮箱吧，谢谢啦~

追答

给你个更简单点的

Private Sub Form_Load()
MSFlexGrid1.ColWidth(1) = MSFlexGrid1.Font.Size * 290
MSFlexGrid1.TextMatrix(1, 1) = "前两列的内容比较少可以显示出来，" & _
"可是第三列内容比较多就不能显示完全了，而且每次运行程序时如上面的图显示的，" & _
"只显示几个字，我还要手动拖动才能让它往后显示。有木有自动换行的方法呀？" & _
"求大神指点。具体点哈。"
MSFlexGrid1_Click
End Sub

Private Sub MSFlexGrid1_Click()
Dim a As String
Dim S1 As String
Dim K As Integer
S1 = Replace(MSFlexGrid1.TextMatrix(1, 1), Chr(13), "") '先去掉回车
a = StrConv(S1, vbFromUnicode)
K = LenB(a) / 20 - 1
MSFlexGrid1.WordWrap = True
MSFlexGrid1.RowHeight(1) = 200 * K

End Sub

Answer 3

属性栏中有一个自定义属性，样式，自动换行！