AddItem 和 RemoveItem 方法 (MSHFlexGrid) 示例 在该示例中,用 AddItem 方法将 100 项添加到 MSHFlexGrid 中。要试用此例,可以将代码粘贴到窗体(该窗体带有命名为 MSFlexGrid1 的 MSHFlexGrid 控件)的声明部分,然后按下 F5 键,并单击该窗体。注意 如果您使用 MSFlexGrid,请用“MSFlexGrid1”替换“MSHFlexGrid1”。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 '显示消息。 MSFlexGrid1.Clear '清除列表框。 End Sub
谢谢
给个例子吧
在该示例中,用 AddItem 方法将 100 项添加到 MSHFlexGrid 中。要试用此例,可以将代码粘贴到窗体(该窗体带有命名为 MSFlexGrid1 的 MSHFlexGrid 控件)的声明部分,然后按下 F5 键,并单击该窗体。注意 如果您使用 MSFlexGrid,请用“MSFlexGrid1”替换“MSHFlexGrid1”。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 '显示消息。
MSFlexGrid1.Clear '清除列表框。
End Sub