如何用VB创建文件并对它 *** 作。

VB可用Open 语句 *** 作或建立文件。

Open 语句，能够对文件输入/输出 (I/O)。

说明

对文件做任何 I/O *** 作之前都必须先打开文件。Open 语句分配一个缓冲区供文件进行 I/O 之用，并决定缓冲区所使用的访问方式。

如果 pathname 指定的文件不存在，那么，在用

Append、Binary、Output、或 Random

方式打开文件时，可以建立这一文件。

如果文件已由其它进程打开，而且不允许指定的访问类型，则 Open *** 作失败，而且会有错误发生。

如果 mode 是 Binary 方式，则

Len 子句会被忽略掉。

重要 在 Binary、Input 和 Random 方式下可以用不同的文件号打开同一文件，而不必先将该文件关闭。在 Append 和

Output 方式下，如果要用不同的文件号打开同一文件，则必须在打开文件之前先关闭该文件。

Open 语句示例，本示例示范 Open 语句的不同用法来做到文件的输出与输入。

下列代码以顺序输入模式打开 TESTFILE 文件。

Open "TESTFILE" For Input As #1

' 若要以其他方式打开文件，必需先关闭此文件。

Close #1

下列代码以只允许写 *** 作的二进制方式打开文件。

Open "TESTFILE" For Binary Access Write As #1

' 若要以其他方式打开文件，必需先关闭此文件。

Close #1

下列代码以随机方式打开文件，文件中含有用户自定义数据类型 Record 的记录。

Type Record   ' 定义用户自定义数据类型。

   ID As Integer

   Name As String * 20

End Type

Dim MyRecord As Record   ' 声明变量。

Open "TESTFILE" For Random As #1 Len = Len(MyRecord)

' 若要以其他方式打开文件，必需先关闭此文件。

Close #1

1、添加资源文件编辑器，

启动VB6.0的IDE集成环境，新建一个工程。点选菜单“Add －Ins”下的“Add －in Manager”,在d出的对话框的列表框中选择“VB Resource (RES) Editor”,单击“OK“后退出对话框。这样在“Tools”菜单栏中就有一项“Resource Editor”了。打开这个工具就可以进行资源文件的编辑了。

2、编辑资源文件

在资源编辑器中编辑资源文件非常简单。它可是编辑我们在上面先提到的位图、图标、光标、字符串及定制资源五种类型的资源，在进行编辑时，点击相应的图标就可以添加资源了。

编辑资源的方法也很容易，以添加图片为例看一看添加位图的方法：

点击添加位图按钮，在d出的对话框中选择一个位图文件，单击“OK”后，位图的添加就完成了，在这里要注意属性按钮，点击它以后，可以选择请语言版本并输入资源的ID号，这个ID号是标识一类资源的唯一编号，必须记住资源的ID号，以使在应用程序中调用。编辑好资源后，关闭资源编辑器，资文件自动加入新建的工种内。另外，也必须将资源文件保存。其它资源的编辑方法也大体上一样。

3、使用资源文件，在应用程序中调用资源文件与直接使用资源基本上是一致的。对了，在一个工种中只能保存一个资源文件，在使用资源文件之前，请必须保证资源已经加入到资源文件中了。

调用资源文件中资源的函数有：

LoadResString 返回一个文本字符串。语法：LoadResString(index) index必需是一个整数，它用来指定资源文件中数据的标识符（即经常提到的ID号），如果ID号为1的资源保留给应用程序图标。

LoadResPicture 用以从资源 (.res) 文件装载位图、图标或光标。它的语法：

LoadResPicture(index, format)

LoadResPicture 函数的语法包含下列部分：

参数 描述

index 一个整数或字符串，它用来指定资源文件中数据的标识 符 (ID) 。

ID标识符为 1 的资源保留给应用程序的图标。

format 必需的。一个数值或常数，如下列“设值"中所描述的，

指定返回数据的格式。

用于 format 的设置值有：

常数 值 描述

vbResBitmap 位数 0 位图资源

vbResIcon 图标 1 图标资源

vbResCursor 2 光标资源

说明：可以使用 LoadResPicture 函数代替对存储在 Form 或控件的 Picture 属性中的图形的引用。

LoadResData 返回一个Byte数组，用以从资源 (.res) 文件装载若干可能类型的数据。语法为：

LoadResData(index, format)

LoadResData 函数的语法包含下列部分：

部分 描述

index 必需的。一个整数或字符串，它用来指定资源文件中数据的标识 符 （ID)。ID 标识为 1 的资源保留给应用程序的图标。

Format 必需的。一个数值，它用来按照下列“设置值"中的描述，指定返 回数据的原始格式。该数值也可以是用户定义资源的字符串名。

设置值 用于 format 的设置值有：

设置值 描述

1 光标资源

2 位图资源

3 图标资源

4 菜单资源

5 对话框

6 字符串资源

7 字体目录资源

8 字体资源

9 加速键表

10 用户定义资源

12 群组光标

14 群组图标

说明：LoadResData 从资源文件装载的数据可以达到 64K。

最后我们用一个简单的例子来说明这几个函数的用法：

（1）建立一个窗体，在窗体上放置三个按钮,一个图片框用来显示图片、图标。其属性如图2所示。

按照前面讲述的方法添加资源文件编辑器并建立工程文件，里面包含一个字符串，位图、图标、光标和一个自定义的资源。

程序代码如下所示：

Private Sub cmdLoadData_Click()

Dim tt As Byte

End Sub

Private Sub cmdLoadPicture_Click()

picTest.Picture = LoadResPicture(101, 1)

'如何为0表示位图，为2表示光标

End Sub

Private Sub cmdLoadstring_Click()

Dim str As String

str = LoadResString(101)

MsgBox str

End Sub

1、菜单：

单击【工具】-【菜单编辑器】，在菜单编辑器对话框中进行编辑，比较简单。特别说明：1、子菜单要点击右箭头，编辑完子菜单，再点击右箭头返回主菜单编辑。2、菜单编辑器中的标题是菜单中显示的名称，而名称是菜单在软件中的识别符，一般用英文或汉语拼音，这个识别符可以在软件中编辑他的动作。其他你可以自己琢磨。

2、工具栏：

工具栏必须在【工程】-【部件】的部件对话框中添加Microsoft Windows Common Controls 6.0(SP4)，添加后在左边工具栏或出现8个工具，其中Toolbar是工具栏工具，ImageList是图片编辑工具。单击Toolbar工具放到窗体，会出现工具栏编辑对话框，单击下一步，如果需要传统工具栏，在这里点击左边项目，再点击右箭头，如果不需要点击下一步，单击完成。然后右击Toolbar1控件，单击【属性】，在对话框中点击bottons标签，点击insert button按钮，即可编辑工具栏项目了。注意：在编辑工具栏前，你必须放置ImageList工具，在ImageList1控件的属性中放置工具栏的图标。详细你慢慢熟悉就可以了。

3、增强文本框？可能你需要的是可以显示多行文字的textbox控件吧？其实就是textbox控件的几个属性:MultiLine属性设置为1，可以显示多行文字， ScrollBars属性是设置是否显示滚动条，0为不显示，1为显示水平滚动条，2为显示垂直滚动条，3为显示水平和垂直滚动条。例如：

Text1.MultiLine = 1

Text1.ScrollBars = 2

---