VB第4章 抽奖程序.ppt(2)

例如，定义一个ArrayList集合的代码为： Dim a1 As ArrayList=New ArrayList() '没有指定容量 Dim a1n As ArrayList=New ArrayList(5) '指定集合容量为5 1.向ArrayList添加元素 ArrayList提供的Add方法可以向ArrayList中添加元素，新添加的元素将被放在ArrayList的末尾处。Add方法的语法为： ArrayListAdd(元素值) 例如：定义一个ArrayList，向其中添加三个元素，元素值分别是1，2，3。代码为： 在ArrayList中可以存储任何类型的数据。 例如：下面的代码是正确的，显示的结果为3。 任务4.4 学习ArrayList集合 2．存取ArrayList中的单个元素 ArrayList采用索引访问元素，第一个元素的索引是0。 例如，显示ArrayList中第2个元素内容的代码为： MessageBox.Show(a1(1).ToString()) 当访问的索引小于0或大于ArrayList中元素的最大索引时，将会引发异常。 例如：当前的ArrayList中有3个元素，下面的代码将会引发异常。

2. 迭代器遍历元素与增强for循环变量元素的区别：使用迭代器遍历集合的元素时可以删除集合的元素，而增强for循环变量集合的元素时，不能调用迭代器的remove方法删除元素。如果需要输出集合元素,则可以根据集合元素的索引来输出集合元素,集合元素的索引以方括号指定.假设有索引:。用于对set集合进行元素的指定顺序排序，排序需要依据元素自身具备的比较性。

请看下面的代码： 任务4.5 学习泛型和泛型集合 程序执行时，将会出现错误！错误如图4-9所示。 任务4.5 学习泛型和泛型集合 1.泛型集合的定义 在SystemCollectionsGeneric名字空间中定义了许多泛型集合，其中List(Of T)泛型集合使用非常广泛。List(Of T)中的T代表集合中元素约束的类型，集合定义语法为： Dim集合名称 As new List( Of 数据类型) 例如，定义一个只能存放int型数据的集合的代码为： Dim list As new List(Of Integer) 再如，定义一个类型约束为字符串的集合代码为： Dim lt As New List(Of String) 任务4.5 学习泛型和泛型集合 2.List(Of T)的使用 List(Of T)泛型集合的操作方法与ArrayList的完全相同，只不过List(Of T)集合中的元素的类型是相同的，必须是T所描述的类型。例如： 当向List(Of T)集合中添加不是约束类型的数据时，运行时将会出现错误！如图4-10所示。 任务4.6 学习文件操作 4.6.1 File类 1.Exists方法 Exists方法用于检查指定文件是否存在。

该方法返回布尔类型结果，true表示文件存在，false表示文件不存在。 2.Copy方法 Copy方法用于复制文件。该方法语法为： FileCopy(源文件名，目标文件名) 3.Delete方法 Delete方法用于删除指定文件。该方法语法为： FileDelete(文件名) 例如,将c:\ NTDETECT.COM文件复制到c:\windows目录的代码为： FileCopy("c:\NTDETECT.COM","c:\windows\NTDETECT.COM") 例如，删除c:＼logs.txt文件的代码为： If File.Exists("c:\logs.txt") Then '判断文件是否存在File.Delete("c:\logs.txt") '删除文件 任务4.6 学习文件操作 4.6.2 文件读写操作 在本章的抽奖程序中，所有参与抽奖的人的名单存放在一个名称为Names.txt的文本文件中，如图4-11所示。要将抽奖人名单中的每个人的姓名读取到系统当中，就需要使用到FileStream类和StreamReader 类。

当两个应用程序打开同一个文件时，问题就可能产生：一个进程可以调用readfile函数来读取文件的一个部分，并修改它的数据，然后使用writefile函数将数据重新写入文件，而第二个进程的文件映射对象却不知道第一个进程执行的这些操作。还有一种情况就是：“读取—修改—写入”操作，这种操作（比如递增一个计数器）中，基于对象之前的状态来定义对象状态的转换。socket起源于unix，在unix一切皆文件哲学的思想下，socket是一种"打开—读/写—关闭"模式的实现，服务器和客户端各自维护一个"文件"，在建立连接打开后，可以向自己文件写入内容供对方读取或者读取对方内容，通讯结束时关闭文件。

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/ruanjian/article-107928-2.html