调用资源文件中的各类图标图片


【实例说明】
    在一个程序中,我们可能需要调用多个图标、光标、图片文件,一般来说我们主要是使用 ImageList 控件,不过其时使用资源文件是最好的方法(可以少使用一个控件)。

【编程思路】
    资源文件中图标、光标、图片文件的直接调用。

【设计步骤】
    1.新建一个标准工程,创建一个新窗体,默认名为Form1。
    2.启动 VB6.0,在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”。
    3.在 VB 资源编辑器窗口中,点击“添加光标”,“添加图标”,“添加位图”,装载所需要的文件。
    4.将Form1的MousePointer属性改为“99-Custom”。

    5.源程序  [素材源程序下载]


Option Explicit

Private Sub Form_Load()
        With Form1
                '加载位图
                '.Picture = LoadResPicture(101, vbResBitmap)
                .Picture = LoadResPicture(101, 0)
                '加载图标
                '.Icon = LoadResPicture(101, vbResIcon)
                .Icon = LoadResPicture(101, 1)
                '加载光标
                '.MouseIcon = LoadResPicture(101, vbResCursor)
                .MouseIcon = LoadResPicture(101, 2)
        End With
End Sub