编程论坛 → VB6论坛

这个能用VB实现吗？

事业男儿发布于 2012-06-09 21:13， 932 次点击

只有本站会员才能查看附件，请登录

这是360软件上的截图，我想用VB上的List1实现，最主要是在List1放很多的按钮，要是按钮最可以点击右边那个条上下的移动？谢谢？

8 回复

风吹过b2012-06-10 10:04

VB上实现，需要自己写代码进行实现，用系统自带的控件是无法实现的。

风吹过b2012-06-10 11:17

只有本站会员才能查看附件，请登录

这是使用自定义控件，然后排列成的。可以与这个类似。

事业男儿2012-06-10 17:39

风吹过b麻烦你写个代码！谢谢！

风吹过b2012-06-10 20:49

等明天吧，如果有空的话。

风吹过b2012-06-11 10:13

效果图：

只有本站会员才能查看附件，请登录

简单的代码：

只有本站会员才能查看附件，请登录

如果你有其它要求，还可以继续修改代码。如使用按钮来操作。

[ 本帖最后由风吹过b 于 2012-6-11 10:15 编辑 ]

风吹过b2012-06-11 11:04

在控件内，需要增加一个函数，用来清除所有图标：

程序代码：

Public Sub clearimg()
Dim obj As Image
For Each obj In Image1
    If obj.Index > 0 Then
        Unload Label1(obj.Index)
        Unload obj
    End If
Next
End Sub

为了防止出错，不建议添加删除指定图标的函数，那样会导致索引号混乱，增加程序的复杂性。

yuk_yu2012-06-11 23:17

回复 7楼风吹过b

为何提示Label1为定义？

风吹过b2012-06-12 09:36

那一句报错？我测试着没错误啊。

是 7 楼的内容吗？
7楼是放在控件的代码内，不是窗体的代码内的。

[ 本帖最后由风吹过b 于 2012-6-12 10:25 编辑 ]