急问：Label、MSFHlexGrid控件如何自动换行。在线等。

Question

Label、与MSFHlexGrid内容比较长。不知道如何让它们自动换行。
急需要各位大侠帮帮小弟。在线等。

Answer 1

还有，如何让MSFHlexGrid标题栏居中对齐

Answer 2

Label.WordWrap=TrueMSFHlexGrid不清楚

Answer 3

label1.wordwrap=true
msfhlexgrid.aligment=2

Answer 4

label1.wordwrap=true
不行呀。

Answer 5

还有。msfhlexgrid如何让标题居中。
label1.wordwrap=true也不能让标签内容自动换行。

Answer 6

msfhlexgrid没有aligment这个属性。

Answer 7

msfhlexgrid中的内容可以居中处理

Answer 8

标题的内容在你给标题赋值是可以顺便使其剧中
mshflexgrid.formatstring="|^名称"
前面的^ 使名称居中，
如果前面加 < 则是左对齐  > 为右对齐

Answer 9

mshgrid可以设置mshflexgrid.WordWrap = True 则自动换行
你可以在字符串中加上 chr(13) 回车

Answer 10

在label中不加chr(13)如何自动换行呀。

Answer 11

Private Sub fhshow_Click()
    If MSFG1.WordWrap = True Then
        MSFG1.WordWrap = False
        fhshow.Checked = False
        ShowWj (typeid)
    Else
        MSFG1.WordWrap = True
        fhshow.Checked = True
        ShowWj (typeid)
    End If
End SubPublic Sub showtitle()
     Dim i As Integer
     Dim ss As String
     ss = "^ |编号|^领导批示|^发文字|^文号|^标题|^发文者|^发文日期|^文件类型"
     With MSFG1
        
       '.Rows = 1
       .Cols = 8
       .FormatString = ss
       .ColWidth(0) = 150
       .ColWidth(1) = 0
       .ColWidth(2) = 900
       .ColWidth(3) = 1300
       .ColWidth(4) = 700
       .ColWidth(5) = 4000
       .ColWidth(6) = 2000
       .ColWidth(7) = 1000
       .ColWidth(8) = 1500
       '.Col = 1
       '.Row = 1
    End With
End Sub
以上是设置的两个过程。都怎么都不行呀。标题不居中，内容不换行