请教一个如何在MSHFlexGrid中隐藏若干列的问题,在线等加复

Question

我想某一列隐藏起来不显示如何实现?在线等

Answer 1

With MSFlexGrid1
    .ColWidth(I) = 0
End With隐藏了！

Answer 2

'  隐藏第一行
Private Sub Command1_Click()
    MSF.RowHeight(1) = 0
End Sub'  隐藏第一列
Private Sub Command2_Click()
    MSF.ColWidth(1) = 0
End Sub'  显示所有的行和列
Private Sub Command3_Click()
    MSF.RowHeight(1) = MSF.RowHeight(2)
    MSF.ColWidth(1) = MSF.ColWidth(2)
End Sub'  初始化MSFlexGrid
Private Sub Form_Load()
    Dim i As Integer
    
    MSF.Rows = 0
    For i = 0 To 10
        MSF.AddItem "AA" + Str(i)
    Next i
    For i = 0 To 10
        MSF.Col = 1
        MSF.Row = i
        MSF.Text = CStr(i)
        MSF.Col = 2
        MSF.Row = i
        MSF.Text = CStr(i) & CStr(i)
        MSF.Col = 3
        MSF.Row = i
        MSF.Text = CStr(i) & CStr(i) & CStr(i)
    Next i
End Sub