关于MSHFlexGrid控件的问题,在线等待,请各位大侠帮忙
Private Sub Form_Click()
Dim Entry, i, Msg '声明变量。
Msg = _
"Choose OK to add 100 items to your MSFlexGrid."
MsgBox Msg '显示消息。
MSHFlexGrid1.Cols = 2 '每行有两个字符串。
For i = 1 To 100 '从 1 计数到 100。
Entry = "Entry " & Chr(9) & i '创建项。
MSHFlexGrid1.AddItem Entry '添加项。
Next i
Msg = "Choose OK to remove every other entry."
MsgBox Msg '显示消息。
For i = 1 To 50 '决定怎样删除
MSHFlexGrid1.RemoveItem i '其它每一项。
Next i
Msg = "Choose OK to clear all items."
MsgBox Msg '显示消息。
MSHFlexGrid1.Clear '清除列表框。
End Sub
'以上好用
'下面的不好用
Private Sub Form_Load()
With MSHFlexGrid1
.ColWidth = 3000
.ColHeader = 0
.ColHeaderCaption(0, 0) = "string"
End With
End Sub
为什么栏宽、栏头修改不了?