汕尾哪些酒店特殊按摩:VB中动态生成和删除WEBBROWSER控件方法

比较随意的方法是，在你的窗口上画一个webbrowser控件，定义一个名字，假设是wb，然后（关键）在index属性上输入0。这样这个控件的名字就是wb(0)。在程序中可以用一个counter变量标记你现在有多少个wb。比如在你需要新建一个webbrowser的时候，就这样：
load wb(counter)
counter = counter + 1
这样做的坏处大大的有，比如你现在有80个wb，但你需要删除第40个，那么自然可以使用unload wb(40)，set wb(40) = nothing来做到，但是这样你就需要一个额外的数组变量来存放空余的下标。比如emp(1) = 40, emp(2) = 45，以表示这些下标的wb(i)为空，不能使用。改进的方法是当你需要new一个wb的时候，先查看emp()中是否有空余的下标，优先使用这些下标来建立新的wb。

另一个比较严谨的方法是使用collection，即集合对象，而非使用数组。这样，穷举和删除一个wb的时候也会比较方便。我主要详细的写这个，如果你觉得不太复杂，我推荐你使用这个方法，如果有疑问，我乐意进行进一步的回答。
为了控件能在窗体上被正确显示出来，理所当然的，我们仍然需要按上述方法在窗体上画一个wb(0)。
为了能使用集合，首先我们先新建一个
set wbcol = new collection
当需要添加一个wb的时候
load wb(counter)
wbcol.add wb(counter), "item" + cstr(counter)
counter = counter + 1
当需要删除一个wb的时候（假设要删除wb(i)）
set wbwb = wbcol("item" + cstr(i))
unload wbwb
set wbwb = nothing
wbcol.remove "item" + cstr(i)
set wb(i) = nothing
当需要穷举所有wb的时候
for each wbcol as wbwb
'''wbwb即是所有列举出来的wb()
next
当需要调用其中一个wb的时候（假设是wb(i)）
set wbwb = wbcol("item" + cstr(i))

同志们，快点啊！大把的分啊！

晕死 没时间

但是这样系统的运行会很慢耶