【实例说明】 在一个程序中,我们可能需要调用多个图标、光标、图片文件,一般来说我们主要是使用 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
|