山寨机中的战斗机！	程序优化工程师到底对IT界有没有贡献

请问个的问题,谢谢!

楼主ziyantan（gdsspt.com）2004-12-01 15:51:15 在 VB / 基础类提问

像多页面的IE
我双击后会Unload WebBrowser(Index)
Unload 选择栏
因为是数组的关系

随便关闭一个
我想重新排列数组
如：
1 2 3 4
我关闭 2
那剩下的三个要重新排列序号
排为
1 2 3
我该如何做？
谢谢。高人。问题点数：20、回复次数：10Top

1 楼mzcih（小马过河）回复于 2004-12-01 15:55:52 得分 0

喔！VB的数组重排。Top

2 楼ziyantan（gdsspt.com）回复于 2004-12-01 15:58:17 得分 0

丫的喔过就算了。
快帮我解决嘛。
Top

3 楼aohan（aohan）回复于 2004-12-01 16:05:45 得分 0

去试一下Top

4 楼baoaya（点头)(大风起兮云飞扬）回复于 2004-12-01 16:05:50 得分 0

可以把 WebBrowser 都放到一个 collection 对象里这样删除一个，他自动会排序Top

5 楼ziyantan（gdsspt.com）回复于 2004-12-01 16:07:14 得分 0

baoaya(点头)
具体点可以么？
不了解collection呢。
谢谢Top

6 楼baoaya（点头)(大风起兮云飞扬）回复于 2004-12-01 16:15:07 得分 0

等下我给你写个例子Top

7 楼ziyantan（gdsspt.com）回复于 2004-12-01 16:16:08 得分 0

留个联系方法可以？

我Q23638564

能加你么？

谢谢Top

8 楼baoaya（点头)(大风起兮云飞扬）回复于 2004-12-01 16:30:23 得分 20

Option Explicit

Private m_col As New Collection

'add one
Private Sub Command1_Click()
Dim nCount As Integer
nCount = WebBrowser1.UBound
nCount = nCount + 1
Load WebBrowser1(nCount)
WebBrowser1(nCount).Visible = True
m_col.Add WebBrowser1(nCount), CStr(nCount)
WebBrowser1(nCount).Tag = m_col.Count 'Tag属性为Collection里的编号
End Sub

'remove
Private Sub Command2_Click()
Dim MyWebBrowser As WebBrowser
On Error GoTo psExit
Set MyWebBrowser = m_col.Item(1) '获取第一个项目
Unload MyWebBrowser '卸载
Call m_col.Remove(1)
Exit Sub
psExit:
MsgBox Err.Description
End SubTop

9 楼ziyantan（gdsspt.com）回复于 2004-12-01 16:32:34 得分 0

谢谢。我先试试~~~Top

10 楼ziyantan（gdsspt.com）回复于 2004-12-01 16:38:02 得分 0

谢谢。
结了。
Top