Remove 方法(ActiveX 控件) 该方法从集合中删除一项。语法object.Remove (index)Item 方法的语法包含下面部分:部分 描述 object 对象表达式,其值是“应用于”列表中的对象。 index 必需的。字符串表达式,指定被访问对象在集合中的名称或索引。 说明对于 LinkedWindows 集合,从当前链接的几个窗口的集合中删除一个窗口。被删除的窗口变成一个有自己的 LinkedWindowFrame 的浮动窗口。此时创建 LinkedWindowFrame 窗口。对于 VBProjects 集合,从该集合中删除指定的工程。对于 References 集合,从该集合中删除指定的引用。Remove 方法(ActiveX 控件)示例 在本例将6个 Panel 对象添加到一个 StatusBar 控件,共创建了7个 Panel 对象。在单击窗体时,代码将检查共有多少个 Panel 对象。如果只有一个 Panel 对象,程序将添加6个 Panel 对象。否则,它将删除第一个 Panel。如果要试运行本例,请将一个 StatusBar 控件放到一个窗体上,然后将下面的代码粘贴到“声明”部分。在运行示例时,开始每次单击窗体都将删除一个 Panel 对象,然后添加 Panel 对象。Private Sub Form_Load() Dim pnlX As Panel ' 为 Panel 对象声明对象变量。 Dim i As Integer ' 在缺省的 Panel 对象中添加 6 个 Panel 对象, ' 得到 7 个 Panel 对象。 For i = 1 To 6 Set pnlX = StatusBar1.Panels.Add(, , , i) pnlX.AutoSize = sbrSpring Next i End SubPrivate Sub Form_Click() ' 如果集合的 Count 为 1,添加 6 个 Panel 对象。 ' 否则,从集合中删除第一个 Panel。 If StatusBar1.Panels.Count = 1 Then Dim sbrX As Panel Dim i As Integer For i = 1 To 6 ' 通过 i 设置每个 Panel 的样式。 Set sbrX = StatusBar1.Panels.Add(, , , i) sbrX.AutoSize = sbrSpring Next i Else ' 删除第一个 Panel。 StatusBar1.Panels.Remove 1 End If End Sub
不是要你写代码。想请教大家说说如何做好一点。有代码提示就最好了。
谢谢。
该方法从集合中删除一项。语法object.Remove (index)Item 方法的语法包含下面部分:部分 描述
object 对象表达式,其值是“应用于”列表中的对象。
index 必需的。字符串表达式,指定被访问对象在集合中的名称或索引。
说明对于 LinkedWindows 集合,从当前链接的几个窗口的集合中删除一个窗口。被删除的窗口变成一个有自己的 LinkedWindowFrame 的浮动窗口。此时创建 LinkedWindowFrame 窗口。对于 VBProjects 集合,从该集合中删除指定的工程。对于 References 集合,从该集合中删除指定的引用。Remove 方法(ActiveX 控件)示例
在本例将6个 Panel 对象添加到一个 StatusBar 控件,共创建了7个 Panel 对象。在单击窗体时,代码将检查共有多少个 Panel 对象。如果只有一个 Panel 对象,程序将添加6个 Panel 对象。否则,它将删除第一个 Panel。如果要试运行本例,请将一个 StatusBar 控件放到一个窗体上,然后将下面的代码粘贴到“声明”部分。在运行示例时,开始每次单击窗体都将删除一个 Panel 对象,然后添加 Panel 对象。Private Sub Form_Load()
Dim pnlX As Panel ' 为 Panel 对象声明对象变量。
Dim i As Integer ' 在缺省的 Panel 对象中添加 6 个 Panel 对象,
' 得到 7 个 Panel 对象。
For i = 1 To 6
Set pnlX = StatusBar1.Panels.Add(, , , i)
pnlX.AutoSize = sbrSpring
Next i
End SubPrivate Sub Form_Click()
' 如果集合的 Count 为 1,添加 6 个 Panel 对象。
' 否则,从集合中删除第一个 Panel。
If StatusBar1.Panels.Count = 1 Then
Dim sbrX As Panel
Dim i As Integer
For i = 1 To 6 ' 通过 i 设置每个 Panel 的样式。
Set sbrX = StatusBar1.Panels.Add(, , , i)
sbrX.AutoSize = sbrSpring
Next i
Else ' 删除第一个 Panel。
StatusBar1.Panels.Remove 1
End If
End Sub