加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

VB中Collection的使用

(2013-08-13 22:33:17)
分类: VB

本文地址:http://www.bhcode.net/article/20100324/7499.html


Collection 对象是项目所组成的有序集合,可以把这个集合作为单元来引用。

说明

Collection 对象提供了简便方法,直截了当将一组相关的项目视为单一对象来引用。集合中的项目或成员被这样一个事实联系起来:它们都属于这个集合。集合的成员不一定都是同一种数据类型的。

建立集合的方法与建立其它对象的方法一样。例如:

Dim X As New Collection

一旦建立集合之后,就可以用 Add 方法添加成员,用 Remove 方法删除成员。在用 For Each...Next 语句重复整个集合时,可以用 Item 方法从集合返回特定成员,以下为模块代码

Public clt As Collection
Sub main()
 Set clt = New Collection
 Form1.Show
End Sub

Form1 的代码:
Private Sub Form_Load()
    clt.Add Me         //  这里添加 了clt的成员
    With Me
        .Left = 0
        .Top = 0
    End With
    Form2.Show
End Sub

Private Sub Form_LostFocus()
    Image1.Visible = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
    End
End Sub

Private Sub Timer1_Timer()
    Randomize
    clt(Int(Rnd * 3) + 1).SetFocus
    Screen.ActiveForm.Image1.Visible = True
End Sub 
同理还有Form2和form3的代码:
Private Sub Form_Load()
    clt.Add Me
    With Me
        .Left = Form1.Left + Form1.Width
        .Top = Form1.Top + Form1.Height
    End With
    Form3.Show
End Sub

Private Sub Form_Unload(Cancel As Integer)
    clt.Remove 2
    End
End Sub
Private Sub Form_LostFocus()
    Image1.Visible = False
End Sub



Private Sub Form_Load()
    clt.Add Me
    With Me
        .Left = Form2.Left + Form3.Width
        .Top = Form2.Top + Form3.Height
    End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
    clt.Remove 3
    End
End Sub
Private Sub Form_LostFocus()
    Image1.Visible = False
End Sub

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有