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

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

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

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

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

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

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

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

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

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

为何提示Label1为定义？

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


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

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