关于MSHFlexGrid控件的问题,在线等待,请各位大侠帮忙

cadgood 2004-03-08 08:29:00
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

为什么栏宽、栏头修改不了?

...全文
27 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2004-03-08 08:29
社区公告
暂无公告