编程学习biancheng.45soft.com 本站提供了各种在线教程和资料,供大家学习与参考.
编程学习
当前位置: 主页 > VB6 > 界面设计 > VB6 界面设计 在ImageList控件中添加图像

VB6 界面设计 在ImageList控件中添加图像

ImageList控件不能单独使用,专门为其它控件提供图像库,是一个图像容器控件。工具栏按钮的图像就是通过ToolBar控件从ImageList的图像库中获得的。(指向窗体上的ImageList1(缺省名)控件再单击右键选择快捷菜单中的属性菜单项来显示ImageList控件的属性页,通过对图像选项卡相关属性的设置即可制作出满足需要的图形库)。ImageList属性页见如下两个图形。


在ImageList控件中添加图像_界面设计_VB6


在ImageList控件中添加图像_界面设计_VB6


在ImageLis属性页中图形按钮选项开中的属性有:

“索引(Index)”表示每个图像的编号、在ToolBar的按钮中引用。

“关键字(Key)”表示每个图形的标识名,在ToolBar的按钮中引用。

“图像数”表示已插入的图像数目。

“插入图片”按钮,插入新的图像。图象文件的扩展名为: .ico、.bmp、.gif、.jpg等。

“删除图片”按钮,将已加入到图像库中的某个图像选中并删除(删除后索引和图像数框中的内容自动变化,而关键字框的内容也自动删除)

注:要插入的图片可到Program Files\Microsoft Visual Studio\Common\Graphics\Bitmaps\TlBr_W95目录中选择


[例]

依次反复显示加载在Imagelist控件中的图片,并且具有在运行时向控件加载新图片的功能

Private Sub Command1_Click() '加入图片命令
    Static Num As Integer '静态变量,作为加载图片的索引(Index)
    Num = Num + 1
    On Error GoTo hand
    CommonDialog1.Filter = "gif文件|*.gif|jpg文件| *.jpg|bmp文件|*.bmp"
    CommonDialog1.ShowOpen()
    ImageList1.ListImages.Add(Num, , LoadPicture(CommonDialog1.FileName))
    '向ImageList控件内加载图片的格式:
    '格式:ImageList1.ListImages.Add Index,key , Picture
    '从ImageList控件内删除图片的格式:
格式:imagelist1.ListImages.Remove Index 删除ImageList控件内的索引号为Inde的图片
    '图片送入imagelist1控件的图片库中,结束运行时,用这种方法装入的图片不能保存在ImageList1中,下次运行如需要,还得重新装入。
    Exit Sub
hand:  '错误处理程序代码段
    MsgBox("按了取消按钮")
End Sub

Private Sub Command2_Click()
    End
End Sub

Private Sub Form_Load()
    Timer1.Interval = 1000
    Image1.Top = 0
    Image1.Left = 0
End Sub

Private Sub Form_Resize()
    Image1.Height = Form1.Height
    Image1.Width = Form1.Width
    Image1.Top = 0
    Image1.Left = 0
    Command2.Left = Form1.ScaleWidth - Command2.Width
    Command1.Left = Form1.ScaleWidth - (Command1.Width + Command2.Width) - 200
    Command1.Top = Form1.ScaleHeight - Command1.Height
    Command2.Top = Form1.ScaleHeight - Command2.Height
End Sub

Private Sub Timer1_Timer() '计时器事件,反复轮流显示imagelist控件内的图片
    Static i As Integer
    On Error GoTo hand
    i = i + 1
    If i > ImageList1.ListImages.Count Then i = 1
    'ImageList1.ListImages.Count 表示ImageList中图片的数量
    Image1.Picture = ImageList1.ListImages(i).Picture '显示第Index 张图片
    Exit Sub
hand:
End Sub



编程学习 VB6 界面设计 在ImageList控件中添加图像 转载请保留此行.谢谢.

VB6