VB经典代码 VB经典代码

1、添加资源文件编辑器， 　　 启动VB6.0的IDE集成环境，新建一个工种。点选菜单“Add －Ins”下的“Add －in Manager”,在弹出的对话框的列表框中选择“VB Resource (RES) Editor”,单击“OK“后退出对话框。这样在“Tools”菜单栏中就有一项“Resource Editor”了。打开这个工具就可以进行资源文件的编辑了。 　　 2、编辑资源文件 　　 在资源编辑器中编辑资源文件非常简单。它可是编辑我们在上面先提到的位图、图标、光标、字符串及定制资源五种类型的资源，如图1所示： 　　 在进行编辑时，点击相应的图标就可以添加资源了。 　　 编辑资源的方法也很容易，以添加图片为例看一看添加位图的方法：点击添加位图按钮，在弹出的对话框中选择一个位图文件，单击“OK”后，位图的添加就完成了，在这里要注意属性按钮，点击它以后，可以选择请语言版本并输入资源的ID号，这个ID号是标识一类资源的唯一编号，必须记住资源的ID号，以使在应用程序中调用。编辑好资源后，关闭资源编辑器，资文件自动加入新建的工种内。另外，也必须将资源文件保存。其它资源的编辑方法也大体上一样。 　　 3、使用资源文件，在应用程序中调用资源文件与直接使用资源基本上是一致的。对了，在一个工种中只能保存一个资源文件，在使用资源文件之前，请必须保证资源已经加入到资源文件中了。 　　 调用资源文件中资源的函数有： 　　 LoadResString 返回一个文本字符串。语法：LoadResString(index) index必需是一个整数，它用来指定资源文件中数据的标识符（即经常提到的ID号），如果ID号为1的资源保留给应用程序图标。 　　 LoadResPicture 用以从资源 (.res) 文件装载位图、图标或光标。它的语法： 　　 Lo灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰灰adResPicture(index, format) 　　 LoadResPicture 函数的语法包含下列部分： 　　 参数&nbsā噌?
?R> 　　 LoadResPicture(index, format) 　　 LoadResPicture 函数的语法包含下列部分： 　　 参数 描述 　　 index 一个整数或字符串，它用来指定资源文件中数据的标识 　　 符 (ID) 。ID标识符为 1 　　 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