如何获得vsflexgrid控件的各列标题名称?
With VsFlexGrid1
For i = 0 To .Cols - 1
'打印所有列的标题该怎么写代码？
??????????????
Next i
end with

[解决办法]

VB code

Option ExplicitPrivate Sub Form_Load()    FillData    PrintGridTitlesEnd SubPrivate Sub FillData()    With MSFlexGrid1        .Rows = 10  '将表格设置为10行高,包括固定行        .Cols = 4        .Row = 0 '定位到第一行        .Col = 1: .Text = "编号"        .Col = 2: .Text = "名称"        .Col = 3: .Text = "地址"                End WithEnd SubPrivate Sub PrintGridTitles()    MSFlexGrid1.Row = 0    Dim i As Integer    For i = 0 To MSFlexGrid1.Cols - 1        MSFlexGrid1.Col = i        Debug.Print MSFlexGrid1.Text            NextEnd Sub